1 files changed, 108 insertions, 0 deletions

diff --git a/src/Gtk/Internal.icl b/src/Gtk/Internal.icl
index a5e2256..36ef0c7 100644
--- a/src/Gtk/Internal.icl
+++ b/src/Gtk/Internal.icl
@@ -51,6 +51,11 @@ gtk_box_pack_end box child expand fill spacing env = code {
 	ccall gtk_box_pack_end "ppIII:V:A"
 }
 
+gtk_cell_renderer_text_new :: !.a -> (!Pointer, !.a)
+gtk_cell_renderer_text_new env = code {
+	ccall gtk_cell_renderer_text_new ":p:A"
+}
+
 gtk_check_menu_item_get_active :: !Pointer !.a -> (!Bool, !.a)
 gtk_check_menu_item_get_active item env = code {
 	ccall gtk_check_menu_item_get_active "p:I:A"
@@ -208,6 +213,72 @@ where
 		ccall gtk_init "pp:V:A"
 	}
 
+gtk_list_store_append :: !Pointer -> .{#Int}
+gtk_list_store_append store
+	# iter = createArray 4 0 // size of GtkTreeIter
+	# r = append store (get_array_pointer iter) 0
+	| r <> 0
+		= abort "internal error in gtk_list_store_append\n"
+		= iter
+where
+	append :: !Pointer !Pointer !a -> a
+	append _ _ _ = code {
+		ccall gtk_list_store_append "pp:V:A"
+	}
+
+gtk_list_store_newv :: !{#Int} !.a -> (!Pointer, !.a)
+gtk_list_store_newv types env = newv (size types) (get_array_pointer types) env
+where
+	newv :: !Int !Pointer !.a -> (!Pointer, !.a)
+	newv _ _ _ = code {
+		ccall gtk_list_store_newv "Ip:p:A"
+	}
+
+gtk_list_store_set_bool :: !Pointer !.{#Int} !Int !Bool !.a -> .a
+gtk_list_store_set_bool store iter col val env =
+	set store (get_array_pointer iter) col val -1 env
+where
+	set :: !Pointer !Pointer !Int !Bool !Int !.a -> .a
+	set _ _ _ _ _ _ = code {
+		ccall gtk_list_store_set "ppIII:V:A"
+	}
+
+gtk_list_store_set_char :: !Pointer !.{#Int} !Int !Char !.a -> .a
+gtk_list_store_set_char store iter col val env =
+	set store (get_array_pointer iter) col val -1 env
+where
+	set :: !Pointer !Pointer !Int !Char !Int !.a -> .a
+	set _ _ _ _ _ _ = code {
+		ccall gtk_list_store_set "ppIII:V:A"
+	}
+
+gtk_list_store_set_int :: !Pointer !.{#Int} !Int !Int !.a -> .a
+gtk_list_store_set_int store iter col val env =
+	set store (get_array_pointer iter) col val -1 env
+where
+	set :: !Pointer !Pointer !Int !Int !Int !.a -> .a
+	set _ _ _ _ _ _ = code {
+		ccall gtk_list_store_set "ppIII:V:A"
+	}
+
+gtk_list_store_set_real :: !Pointer !.{#Int} !Int !Real !.a -> .a
+gtk_list_store_set_real store iter col val env =
+	set store (get_array_pointer iter) col val -1 env
+where
+	set :: !Pointer !Pointer !Int !Real !Int !.a -> .a
+	set _ _ _ _ _ _ = code {
+		ccall gtk_list_store_set "ppIRI:V:A"
+	}
+
+gtk_list_store_set_string :: !Pointer !.{#Int} !Int !String !.a -> .a
+gtk_list_store_set_string store iter col val env =
+	set store (get_array_pointer iter) col (packString val) -1 env
+where
+	set :: !Pointer !Pointer !Int !String !Int !.a -> .a
+	set _ _ _ _ _ _ = code {
+		ccall gtk_list_store_set "ppIsI:V:A"
+	}
+
 gtk_main_iteration :: !.a -> (!Bool, !.a)
 gtk_main_iteration env = code {
 	ccall gtk_main_iteration "G:I:A"
@@ -409,6 +480,43 @@ gtk_text_view_set_wrap_mode text_view mode env = code {
 	ccall gtk_text_view_set_wrap_mode "pI:V:A"
 }
 
+gtk_tree_view_column_add_attribute :: !Pointer !Pointer !String !Int !.a -> .a
+gtk_tree_view_column_add_attribute tree_column renderer attr column env =
+	add tree_column renderer (packString attr) column env
+where
+	add :: !Pointer !Pointer !String !Int !.a -> .a
+	add _ _ _ _ _ = code {
+		ccall gtk_tree_view_column_add_attribute "ppsI:V:A"
+	}
+
+gtk_tree_view_column_new :: !.a -> (!Pointer, !.a)
+gtk_tree_view_column_new env = code {
+	ccall gtk_tree_view_column_new ":p:A"
+}
+
+gtk_tree_view_column_pack_start :: !Pointer !Pointer !Bool !.a -> .a
+gtk_tree_view_column_pack_start column renderer expand env = code {
+	ccall gtk_tree_view_column_pack_start "ppI:V:A"
+}
+
+gtk_tree_view_column_set_title :: !Pointer !String !.a -> .a
+gtk_tree_view_column_set_title column title env = set column (packString title) env
+where
+	set :: !Pointer !String !.a -> .a
+	set _ _ _ = code {
+		ccall gtk_tree_view_column_set_title "ps:V:A"
+	}
+
+gtk_tree_view_append_column :: !Pointer !Pointer !.a -> .a
+gtk_tree_view_append_column tree column env = code {
+	ccall gtk_tree_view_append_column "pp:V:A"
+}
+
+gtk_tree_view_new_with_model :: !Pointer !.a -> (!Pointer, !.a)
+gtk_tree_view_new_with_model model env = code {
+	ccall gtk_tree_view_new_with_model "p:p:A"
+}
+
 gtk_widget_destroy :: !Pointer !.a -> .a
 gtk_widget_destroy widget env = code {
 	ccall gtk_widget_destroy "p:V:A"