From 3b20b6a7bc4c438032902246edbbc7aa4fb0f438 Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Mon, 28 Oct 2019 20:38:48 +0100
Subject: Add GtkSeparatorMenuItem

---
 src/Gtk/Widgets.icl | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'src/Gtk/Widgets.icl')

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
-- 
cgit v1.2.3