diff options
Diffstat (limited to 'src/Gtk/Widgets.icl')
| -rw-r--r-- | src/Gtk/Widgets.icl | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/Gtk/Widgets.icl b/src/Gtk/Widgets.icl index db69b81..9573966 100644 --- a/src/Gtk/Widgets.icl +++ b/src/Gtk/Widgets.icl @@ -355,6 +355,7 @@ newScrolledWindow = instance tune GtkScrolledWindow (GtkScrollbarPolicy, GtkScrollbarPolicy) where + tune :: !(!GtkScrollbarPolicy, !GtkScrollbarPolicy) !GtkScrolledWindow -> GtkM GtkScrolledWindow tune (hp,vp) window=:(GtkScrolledWindow sw) = toState (gtk_scrolled_window_set_policy sw (toInt hp) (toInt vp)) >>| pure window @@ -537,6 +538,7 @@ where instance tune w (GtkAlign,GtkAlign) | gtkWidget w where + tune :: !(!GtkAlign, !GtkAlign) !w -> GtkM w | gtkWidget w tune (halign,valign) widget = let (GtkWidget w) = gtkWidget widget in toState (gtk_widget_set_halign w (toInt halign)) >>| @@ -545,6 +547,7 @@ where instance tune w (GtkExpand,GtkExpand) | gtkWidget w where + tune :: !(!GtkExpand, !GtkExpand) !w -> GtkM w | gtkWidget w tune (hexpand,vexpand) widget = let (GtkWidget w) = gtkWidget widget in toState (gtk_widget_set_hexpand w hexpand=:Expand) >>| |