Add GtkScrolledWindow

4 files changed, 21 insertions, 0 deletions

diff --git a/src/Gtk/Internal.dcl b/src/Gtk/Internal.dcl
index d3821f7..1b24e94 100644
--- a/src/Gtk/Internal.dcl
+++ b/src/Gtk/Internal.dcl
@@ -35,6 +35,8 @@ gtk_paned_pack1 :: !Pointer !Pointer !Bool !Bool !.a -> .a
 gtk_paned_pack2 :: !Pointer !Pointer !Bool !Bool !.a -> .a
 gtk_paned_set_wide_handle :: !Pointer !Bool !.a -> .a
 
+gtk_scrolled_window_new :: !Pointer !Pointer !.a -> (!Pointer, !.a)
+
 gtk_style_context_add_class :: !Pointer !String !.a -> .a
 gtk_style_context_add_provider :: !Pointer !Pointer !Int !.a -> .a
 gtk_style_context_add_provider_for_screen :: !Pointer !Pointer !Int !.a -> .a
diff --git a/src/Gtk/Internal.icl b/src/Gtk/Internal.icl
index ffa801e..9bc0c7b 100644
--- a/src/Gtk/Internal.icl
+++ b/src/Gtk/Internal.icl
@@ -138,6 +138,11 @@ gtk_paned_set_wide_handle paned setting env = code {
 	ccall gtk_paned_set_wide_handle "pI:V:A"
 }
 
+gtk_scrolled_window_new :: !Pointer !Pointer !.a -> (!Pointer, !.a)
+gtk_scrolled_window_new hadjust vadjust env = code {
+	ccall gtk_scrolled_window_new "pp:p:A"
+}
+
 gtk_style_context_add_class :: !Pointer !String !.a -> .a
 gtk_style_context_add_class context cls env = add context (packString cls) env
 where
diff --git a/src/Gtk/Widgets.dcl b/src/Gtk/Widgets.dcl
index def39c9..5b594a3 100644
--- a/src/Gtk/Widgets.dcl
+++ b/src/Gtk/Widgets.dcl
@@ -57,6 +57,12 @@ newPaned :: !GtkOrientation !GtkPanedHandleWidth -> GtkM GtkPaned
 packPane1 :: !w !GtkPaned !GtkResize !GtkShrink -> GtkM () | gtkWidget w
 packPane2 :: !w !GtkPaned !GtkResize !GtkShrink -> GtkM () | gtkWidget w
 
+:: GtkScrolledWindow
+instance gtkWidget GtkScrolledWindow
+instance gtkContainer GtkScrolledWindow
+
+newScrolledWindow :: GtkM GtkScrolledWindow
+
 :: GtkTextBuffer
 
 insertAtCursor :: !String !GtkTextBuffer -> GtkM ()
diff --git a/src/Gtk/Widgets.icl b/src/Gtk/Widgets.icl
index e485364..4e2f2c4 100644
--- a/src/Gtk/Widgets.icl
+++ b/src/Gtk/Widgets.icl
@@ -107,6 +107,14 @@ packPane2 :: !w !GtkPaned !GtkResize !GtkShrink -> GtkM () | gtkWidget w
 packPane2 widget paned resize shrink =
 	toState ('I'.gtk_paned_pack2 paned (gtkWidget widget) resize=:Resize shrink=:Shrink)
 
+:: GtkScrolledWindow :== Pointer
+
+instance gtkWidget GtkScrolledWindow where gtkWidget sw = sw
+instance gtkContainer GtkScrolledWindow where gtkContainer sw = sw
+
+newScrolledWindow :: GtkM GtkScrolledWindow
+newScrolledWindow = toStateR ('I'.gtk_scrolled_window_new 0 0) >>= show
+
 :: GtkTextBuffer :== Pointer
 
 insertAtCursor :: !String !GtkTextBuffer -> GtkM ()