Add GtkSeparator

4 files changed, 24 insertions, 0 deletions

diff --git a/src/Gtk/Internal.dcl b/src/Gtk/Internal.dcl
index 450700a..76eb13c 100644
--- a/src/Gtk/Internal.dcl
+++ b/src/Gtk/Internal.dcl
@@ -67,6 +67,8 @@ gtk_paned_set_wide_handle :: !Pointer !Bool !.a -> .a
 
 gtk_scrolled_window_new :: !Pointer !Pointer !.a -> (!Pointer, !.a)
 
+gtk_separator_new :: !Bool !.a -> (!Pointer, !.a)
+
 gtk_spinner_new :: !.a -> (!Pointer, !.a)
 gtk_spinner_start :: !Pointer !.a -> .a
 gtk_spinner_stop :: !Pointer !.a -> .a
diff --git a/src/Gtk/Internal.icl b/src/Gtk/Internal.icl
index e3982dd..6f54acc 100644
--- a/src/Gtk/Internal.icl
+++ b/src/Gtk/Internal.icl
@@ -281,6 +281,11 @@ gtk_scrolled_window_new hadjust vadjust env = code {
 	ccall gtk_scrolled_window_new "pp:p:A"
 }
 
+gtk_separator_new :: !Bool !.a -> (!Pointer, !.a)
+gtk_separator_new vertical env = code {
+	ccall gtk_separator_new "I:p:A"
+}
+
 gtk_spinner_new :: !.a -> (!Pointer, !.a)
 gtk_spinner_new env = code {
 	ccall gtk_spinner_new ":p:A"
diff --git a/src/Gtk/Widgets.dcl b/src/Gtk/Widgets.dcl
index faf7712..7ff4616 100644
--- a/src/Gtk/Widgets.dcl
+++ b/src/Gtk/Widgets.dcl
@@ -111,6 +111,12 @@ instance gtkContainer GtkScrolledWindow
 
 newScrolledWindow :: GtkM GtkScrolledWindow
 
+:: GtkSeparator
+instance gtkWidget GtkSeparator
+instance ptr GtkSeparator
+
+newSeparator :: !GtkOrientation -> GtkM GtkSeparator
+
 :: GtkSpinner
 instance gtkWidget GtkSpinner
 instance ptr GtkSpinner
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