diff options
Diffstat (limited to 'src/Gtk/Widgets.icl')
| -rw-r--r-- | src/Gtk/Widgets.icl | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/Gtk/Widgets.icl b/src/Gtk/Widgets.icl index ba0cb16..f2c942f 100644 --- a/src/Gtk/Widgets.icl +++ b/src/Gtk/Widgets.icl @@ -224,6 +224,12 @@ instance gtkContainer GtkScrolledWindow where gtkContainer sw = sw newScrolledWindow :: GtkM GtkScrolledWindow newScrolledWindow = toStateR (gtk_scrolled_window_new 0 0) >>= show +instance tune GtkScrolledWindow (GtkScrollbarPolicy, GtkScrollbarPolicy) +where + tune (hp,vp) window = + toState (gtk_scrolled_window_set_policy window (toInt hp) (toInt vp)) >>| + pure window + :: GtkSeparator :== Pointer instance gtkWidget GtkSeparator where gtkWidget s = s |