diff options
| author | Camil Staps | 2019-10-21 11:11:35 +0200 |
|---|---|---|
| committer | Camil Staps | 2019-10-21 11:11:35 +0200 |
| commit | ed2f12a5115ff63247025c6f0c10c5285cf337e1 (patch) | |
| tree | 15e7a4d9cca0ecff539a7fa359f2b06eb8c75f60 /src/Gtk/Widgets.icl | |
| parent | Add GtkMenu* functionality and reorder combinator arguments to ease binding (diff) | |
Reorder more combinator arguments to ease binding
Diffstat (limited to 'src/Gtk/Widgets.icl')
| -rw-r--r-- | src/Gtk/Widgets.icl | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/src/Gtk/Widgets.icl b/src/Gtk/Widgets.icl index 1ea63df..2e7c1de 100644 --- a/src/Gtk/Widgets.icl +++ b/src/Gtk/Widgets.icl @@ -149,13 +149,15 @@ newPaned orientation handle_width = toState ('I'.gtk_paned_set_wide_handle paned handle_width=:WideHandle) >>| show paned -packPane1 :: !w !GtkPaned !GtkResize !GtkShrink -> GtkM () | gtkWidget w -packPane1 widget paned resize shrink = - toState ('I'.gtk_paned_pack1 paned (gtkWidget widget) resize=:Resize shrink=:Shrink) +packPane1 :: !GtkPaned !GtkResize !GtkShrink !w -> GtkM w | gtkWidget w +packPane1 paned resize shrink widget = + toState ('I'.gtk_paned_pack1 paned (gtkWidget widget) resize=:Resize shrink=:Shrink) >>| + pure widget -packPane2 :: !w !GtkPaned !GtkResize !GtkShrink -> GtkM () | gtkWidget w -packPane2 widget paned resize shrink = - toState ('I'.gtk_paned_pack2 paned (gtkWidget widget) resize=:Resize shrink=:Shrink) +packPane2 :: !GtkPaned !GtkResize !GtkShrink !w -> GtkM w | gtkWidget w +packPane2 paned resize shrink widget = + toState ('I'.gtk_paned_pack2 paned (gtkWidget widget) resize=:Resize shrink=:Shrink) >>| + pure widget :: GtkScrolledWindow :== Pointer |