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