From c0b119e20d4874bd330c9cd9d352fd2666f19191 Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Sun, 20 Oct 2019 10:02:46 +0200
Subject: Add rudimentary support for GtkPaned and GtkTextView

---
 src/Gtk/Internal.icl | 46 +++++++++++++++++++++++++++++++++++++++++++---
 1 file changed, 43 insertions(+), 3 deletions(-)

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

diff --git a/src/Gtk/Internal.icl b/src/Gtk/Internal.icl
index 827cae6..b88a703 100644
--- a/src/Gtk/Internal.icl
+++ b/src/Gtk/Internal.icl
@@ -35,6 +35,11 @@ where
 		ccall clean_g_signal_pop ":p:A"
 	}
 
+gtk_container_add :: !Pointer !Pointer !.a -> .a
+gtk_container_add container widget env = code {
+	ccall gtk_container_add "pp:V:A"
+}
+
 gtk_init :: !.a -> .a
 gtk_init env = init 0 0 env
 where
@@ -53,14 +58,49 @@ gtk_main_quit env = code {
 	ccall gtk_main_quit ":V:A"
 }
 
+gtk_paned_new :: !Bool !.a -> (!Pointer, !.a)
+gtk_paned_new vertical env = code {
+	ccall gtk_paned_new "I:p:A"
+}
+
+gtk_paned_pack1 :: !Pointer !Pointer !Bool !Bool !.a -> .a
+gtk_paned_pack1 paned child resize shrink env = code {
+	ccall gtk_paned_pack1 "ppII:V:A"
+}
+
+gtk_paned_pack2 :: !Pointer !Pointer !Bool !Bool !.a -> .a
+gtk_paned_pack2 paned child resize shrink env = code {
+	ccall gtk_paned_pack2 "ppII:V:A"
+}
+
+gtk_paned_set_wide_handle :: !Pointer !Bool !.a -> .a
+gtk_paned_set_wide_handle paned setting env = code {
+	ccall gtk_paned_set_wide_handle "pI:V:A"
+}
+
+gtk_text_buffer_insert_at_cursor :: !Pointer !String !Int !.a -> .a
+gtk_text_buffer_insert_at_cursor buffer string len env = code {
+	ccall gtk_text_buffer_insert_at_cursor "psI:V:A"
+}
+
+gtk_text_view_new :: !.a -> (!Pointer, !.a)
+gtk_text_view_new env = code {
+	ccall gtk_text_view_new ":p:A"
+}
+
+gtk_text_view_get_buffer :: !Pointer -> Pointer
+gtk_text_view_get_buffer text_view = code {
+	ccall gtk_text_view_get_buffer "p:p"
+}
+
 gtk_widget_set_size_request :: !Pointer !Int !Int !.a -> .a
 gtk_widget_set_size_request widget hsize vsize env = code {
 	ccall gtk_widget_set_size_request "pII:V:A"
 }
 
-gtk_widget_show_all :: !Pointer !.a -> .a
-gtk_widget_show_all widget env = code {
-	ccall gtk_widget_show_all "p:V:A"
+gtk_widget_show :: !Pointer !.a -> .a
+gtk_widget_show widget env = code {
+	ccall gtk_widget_show "p:V:A"
 }
 
 gtk_window_new :: !Bool !.a -> (!Pointer, !.a)
-- 
cgit v1.2.3