Add GtkFrame

1 files changed, 14 insertions, 0 deletions

diff --git a/src/Gtk/Internal.icl b/src/Gtk/Internal.icl
index bd68e1e..56e9f4e 100644
--- a/src/Gtk/Internal.icl
+++ b/src/Gtk/Internal.icl
@@ -55,6 +55,20 @@ gtk_container_add container widget env = code {
 	ccall gtk_container_add "pp:V:A"
 }
 
+gtk_frame_new :: !(Maybe String) !.a -> (!Pointer, !.a)
+gtk_frame_new Nothing env = new 0 env
+where
+	new :: !Int !.a -> (!Pointer, !.a)
+	new _ _ = code {
+		ccall gtk_frame_new "p:p:A"
+	}
+gtk_frame_new (Just label) env = new label env
+where
+	new :: !String !.a -> (!Pointer, !.a)
+	new _ _ = code {
+		ccall gtk_frame_new "s:p:A"
+	}
+
 gtk_init :: !.a -> .a
 gtk_init env = init 0 0 env
 where