4 files changed, 21 insertions, 0 deletions
diff --git a/src/Gtk/Internal.dcl b/src/Gtk/Internal.dcl
index d31a11f..3528628 100644
--- a/src/Gtk/Internal.dcl
+++ b/src/Gtk/Internal.dcl
@@ -102,6 +102,8 @@ gtk_paned_set_wide_handle :: !Pointer !Bool !.a -> .a
 gtk_scrolled_window_new :: !Pointer !Pointer !.a -> (!Pointer, !.a)
 gtk_scrolled_window_set_policy :: !Pointer !Int !Int !.a -> .a
 
+gtk_separator_menu_item_new :: !.a -> (!Pointer, !.a)
+
 gtk_separator_new :: !Bool !.a -> (!Pointer, !.a)
 
 gtk_spinner_new :: !.a -> (!Pointer, !.a)
diff --git a/src/Gtk/Internal.icl b/src/Gtk/Internal.icl
index 51285e6..dc2e17a 100644
--- a/src/Gtk/Internal.icl
+++ b/src/Gtk/Internal.icl
@@ -469,6 +469,11 @@ gtk_scrolled_window_set_policy window hpolicy vpolicy env = code {
 	ccall gtk_scrolled_window_set_policy "pII:V:A"
 }
 
+gtk_separator_menu_item_new :: !.a -> (!Pointer, !.a)
+gtk_separator_menu_item_new env = code {
+	ccall gtk_separator_menu_item_new ":p:A"
+}
+
 gtk_separator_new :: !Bool !.a -> (!Pointer, !.a)
 gtk_separator_new vertical env = code {
 	ccall gtk_separator_new "I:p:A"
diff --git a/src/Gtk/Widgets.dcl b/src/Gtk/Widgets.dcl
index c931a53..7497b3e 100644
--- a/src/Gtk/Widgets.dcl
+++ b/src/Gtk/Widgets.dcl
@@ -128,6 +128,12 @@ newCheckMenuItem :: !String -> GtkM GtkCheckMenuItem
 isActive :: !GtkCheckMenuItem -> GtkM Bool
 setActive :: !Bool !GtkCheckMenuItem -> GtkM GtkCheckMenuItem
 
+:: GtkSeparatorMenuItem =: GtkSeparatorMenuItem Pointer
+instance gtkWidget GtkSeparatorMenuItem
+instance gtkMenuItem GtkSeparatorMenuItem
+
+newSeparatorMenuItem :: GtkM GtkSeparatorMenuItem
+
 :: GtkMenuShell =: GtkMenuShell Pointer
 instance gtkWidget GtkMenuShell
 
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