diff options
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 |