--- ../gtk-orig/MoreFuncs.st	Thu Sep  4 06:49:07 2003
+++ MoreFuncs.st	Tue Dec 16 20:36:39 2003
@@ -60,10 +60,10 @@
         args: #()!
 
 GObject
-	defineCFunc: 'bloxGtkConnectSignal'
-	withSelectorArgs: 'connectSignal: name to: handler userData: userData'
-	returning: #void
-	args: #( #selfSmalltalk #string #smalltalk #smalltalk )!
+       defineCFunc: 'bloxGtkConnectSignal'
+       withSelectorArgs: 'connectSignal: name to: receiver send: message userData: userData'
+       returning: #void
+       args: #( #selfSmalltalk #string #smalltalk #smalltalk #smalltalk )!
 
 GObject
 	defineCFunc: 'bloxGtkNarrowGObjectOOP'
@@ -75,7 +75,7 @@
 	defineCFunc: 'bloxGtkFreeGObjectOOP'
 	withSelectorArgs: 'free'
 	returning: #void
-	args: #()!
+	args: #( #self )!
 
 GObject
 	defineCFunc: 'bloxGtkGetProperty'