implementation module Gtk.Tune

import Control.Applicative
import Control.Monad
import Control.Monad.Identity
import Control.Monad.State

import Gtk

instance tune w GtkMargins | gtkWidget w
where
	tune widgetf margins =
		widgetf >>= \widget ->
		setMargins margins widget >>|
		pure widget

instance tune w GtkCSSClass | gtkWidget w
where
	tune widgetf cls =
		widgetf >>= \widget ->
		addCSSClass cls widget >>|
		pure widget