--- /home/mike/install/smalltalk-2.1.7/gtk/MoreFuncs.st	Wed Dec 17 09:19:53 2003
+++ /home/mike/work/smalltalk-2.1.7/gtk/MoreFuncs.st	Wed Jan  7 09:38:07 2004
@@ -124,3 +124,43 @@
 	withSelectorArgs: 'child: widget propertiesAt: name put: anObject'
 	returning: #void
 	args: #( #self #cObject #string #smalltalk )!
+
+GtkTreeStore superclass: GtkTreeModel!
+
+GtkListStore superclass: GtkTreeModel!
+
+GtkTextIter class 
+	defineCFunc: 'gtk_text_iter_sizeof'
+	withSelectorArgs: 'sizeof'
+	returning: #int
+	args: #( #void )!
+
+GtkTreeIter class 
+	defineCFunc: 'gtk_tree_iter_sizeof'
+	withSelectorArgs: 'sizeof'
+	returning: #int
+	args: #( #void )!
+
+GValue class
+	defineCFunc: 'g_type_from_name'
+	withSelectorArgs: 'typeFromName: aName'
+	returning: #int
+	args: #( #string )!
+
+GtkTreeModel 
+	defineCFunc: 'gtk_tree_model_get_oop'
+	withSelectorArgs: 'getOop: iter column: aColumn'
+	returning: #smalltalk
+	args: #( #self #cObject #int )!
+
+GtkTreeStore
+	defineCFunc: 'gtk_tree_store_set_oop'
+	withSelectorArgs: 'setOop: iter column: aColumn value: aValue'
+	returning: #void
+	args: #( #self #cObject #int #smalltalk)!
+
+GtkListStore
+	defineCFunc: 'gtk_list_store_set_oop'
+	withSelectorArgs: 'setOop: iter column: aColumn value: aValue'
+	returning: #void
+	args: #( #self #cObject #int #smalltalk )!