diff options
| author | Camil Staps | 2019-10-28 20:38:48 +0100 |
|---|---|---|
| committer | Camil Staps | 2019-10-28 20:38:48 +0100 |
| commit | 3b20b6a7bc4c438032902246edbbc7aa4fb0f438 (patch) | |
| tree | 790c2c41791e44aa77dbb15e4a6d9527580d966e /src/Gtk/Widgets.icl | |
| parent | Cleanup clean_gtk_support.c (diff) | |
Add GtkSeparatorMenuItem
Diffstat (limited to 'src/Gtk/Widgets.icl')
| -rw-r--r-- | src/Gtk/Widgets.icl | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/Gtk/Widgets.icl b/src/Gtk/Widgets.icl index 80dad7a..5290d9f 100644 --- a/src/Gtk/Widgets.icl +++ b/src/Gtk/Widgets.icl @@ -282,6 +282,14 @@ setActive active item=:(GtkCheckMenuItem cmi) = toState (gtk_check_menu_item_set_active cmi active) >>| pure item +instance gtkWidget GtkSeparatorMenuItem where gtkWidget (GtkSeparatorMenuItem smi) = GtkWidget smi +instance gtkMenuItem GtkSeparatorMenuItem where gtkMenuItem (GtkSeparatorMenuItem smi) = GtkMenuItem smi + +newSeparatorMenuItem :: GtkM GtkSeparatorMenuItem +newSeparatorMenuItem = + toStateR gtk_separator_menu_item_new >>= \smi -> + show (GtkSeparatorMenuItem smi) + instance gtkWidget GtkMenuShell where gtkWidget (GtkMenuShell ms) = GtkWidget ms instance gtkMenuShell GtkMenu where gtkMenuShell (GtkMenu m) = GtkMenuShell m |