blob: a275ea2183ff3bdcbcc7257be3fecd3d787cbf17 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
implementation module Gtk.Tune
import StdEnv
import Control.Applicative
import Control.Monad
import Gtk
(<<@) infixl 2 :: !(GtkM elem) !option -> GtkM elem | tune elem option
(<<@) elemf option = elemf >>= tune option
instance tune w GtkMargins | gtkWidget w
where
tune margins widget = setMargins margins widget
instance tune w GtkCSSClass | gtkWidget w
where
tune cls widget = addCSSClass cls widget
|
