From 19622ae72b27d70a79e31e8454c8edcdb0d6c05b Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Sun, 20 Oct 2019 12:43:09 +0200
Subject: Add GtkBox support

---
 src/Gtk/Internal.icl | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

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

diff --git a/src/Gtk/Internal.icl b/src/Gtk/Internal.icl
index b88a703..bd68e1e 100644
--- a/src/Gtk/Internal.icl
+++ b/src/Gtk/Internal.icl
@@ -35,6 +35,21 @@ where
 		ccall clean_g_signal_pop ":p:A"
 	}
 
+gtk_box_new :: !Bool !Int !.a -> (!Pointer, !.a)
+gtk_box_new vertical spacing env = code {
+	ccall gtk_box_new "II:p:A"
+}
+
+gtk_box_pack_start :: !Pointer !Pointer !Bool !Bool !Int !.a -> .a
+gtk_box_pack_start box child expand fill spacing env = code {
+	ccall gtk_box_pack_start "ppIII:V:A"
+}
+
+gtk_box_pack_end :: !Pointer !Pointer !Bool !Bool !Int !.a -> .a
+gtk_box_pack_end box child expand fill spacing env = code {
+	ccall gtk_box_pack_end "ppIII:V:A"
+}
+
 gtk_container_add :: !Pointer !Pointer !.a -> .a
 gtk_container_add container widget env = code {
 	ccall gtk_container_add "pp:V:A"
-- 
cgit v1.2.3