From b06163ae767f945dd91c5709872b5566a9ec4aea Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Sun, 27 Oct 2019 13:14:06 +0100
Subject: Add GtkSeparator

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

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

diff --git a/src/Gtk/Widgets.icl b/src/Gtk/Widgets.icl
index ae72f44..ef1f0bc 100644
--- a/src/Gtk/Widgets.icl
+++ b/src/Gtk/Widgets.icl
@@ -214,6 +214,17 @@ instance gtkContainer GtkScrolledWindow where gtkContainer sw = sw
 newScrolledWindow :: GtkM GtkScrolledWindow
 newScrolledWindow = toStateR (gtk_scrolled_window_new 0 0) >>= show
 
+:: GtkSeparator :== Pointer
+
+instance gtkWidget GtkSeparator where gtkWidget s = s
+instance ptr GtkSeparator
+where
+	toPtr   s = s
+	fromPtr s = s
+
+newSeparator :: !GtkOrientation -> GtkM GtkSeparator
+newSeparator orientation = toStateR (gtk_separator_new orientation=:Vertical) >>= show
+
 :: GtkSpinner :== Pointer
 
 instance gtkWidget GtkSpinner where gtkWidget s = s
-- 
cgit v1.2.3