diff options
| author | Camil Staps | 2019-10-20 16:03:52 +0200 |
|---|---|---|
| committer | Camil Staps | 2019-10-20 16:03:52 +0200 |
| commit | 3670cdea024845e211cbf840cd9aebb20b5e74ae (patch) | |
| tree | 54f535e0873bea5ef4ed3fe11a151bdd0850d5f0 /src/Gtk/Tune.icl | |
| parent | Add synonym type GtkM a :== State GtkState a (diff) | |
Add tune class for margins
Diffstat (limited to 'src/Gtk/Tune.icl')
| -rw-r--r-- | src/Gtk/Tune.icl | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/src/Gtk/Tune.icl b/src/Gtk/Tune.icl new file mode 100644 index 0000000..26a05f3 --- /dev/null +++ b/src/Gtk/Tune.icl @@ -0,0 +1,15 @@ +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 |