From 1af27a3bb964caad3a1fd5ec80e94e681ae57e10 Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Mon, 28 Oct 2019 09:24:11 +0100
Subject: Add GtkLabel, GtkGrid, and alignment tuning for GtkWidget

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

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

diff --git a/src/Gtk/Internal.icl b/src/Gtk/Internal.icl
index f77299e..976e6c3 100644
--- a/src/Gtk/Internal.icl
+++ b/src/Gtk/Internal.icl
@@ -233,6 +233,16 @@ gtk_frame_set_label_align frame xalign yalign env = code {
 	ccall gtk_frame_set_label_align "prr:V:A"
 }
 
+gtk_grid_attach :: !Pointer !Pointer !Int !Int !Int !Int !.a -> .a
+gtk_grid_attach grid child left top width height env = code {
+	ccall gtk_grid_attach "ppIIII:V:A"
+}
+
+gtk_grid_new :: !.a -> (!Pointer, !.a)
+gtk_grid_new env = code {
+	ccall gtk_grid_new ":p:A"
+}
+
 gtk_init :: !.a -> .a
 gtk_init env = init 0 0 env
 where
@@ -241,6 +251,22 @@ where
 		ccall gtk_init "pp:V:A"
 	}
 
+gtk_label_new :: !.a -> (!Pointer, !.a)
+gtk_label_new env = new 0 env
+where
+	new :: !Pointer !.a -> (!Pointer, !.a)
+	new _ _ = code {
+		ccall gtk_label_new "p:p:A"
+	}
+
+gtk_label_set_markup :: !Pointer !String !.a -> .a
+gtk_label_set_markup label text env = set label (packString text) env
+where
+	set :: !Pointer !String !.a -> .a
+	set _ _ _ = code {
+		ccall gtk_label_set_markup "ps:V:A"
+	}
+
 gtk_list_store_append :: !Pointer -> .{#Int}
 gtk_list_store_append store
 	# iter = createArray 4 0 // size of GtkTreeIter
@@ -634,6 +660,11 @@ gtk_widget_hide widget env = code {
 	ccall gtk_widget_hide "p:V:A"
 }
 
+gtk_widget_set_halign :: !Pointer !Int !.a -> .a
+gtk_widget_set_halign widget align env = code {
+	ccall gtk_widget_set_halign "pI:V:A"
+}
+
 gtk_widget_set_margin_bottom :: !Pointer !Int !.a -> .a
 gtk_widget_set_margin_bottom widget padding env = code {
 	ccall gtk_widget_set_margin_bottom "pI:V:A"
@@ -664,6 +695,11 @@ gtk_widget_set_size_request widget hsize vsize env = code {
 	ccall gtk_widget_set_size_request "pII:V:A"
 }
 
+gtk_widget_set_valign :: !Pointer !Int !.a -> .a
+gtk_widget_set_valign widget align env = code {
+	ccall gtk_widget_set_valign "pI:V:A"
+}
+
 gtk_widget_show :: !Pointer !.a -> .a
 gtk_widget_show widget env = code {
 	ccall gtk_widget_show "p:V:A"
-- 
cgit v1.2.3