--- ../gtk-orig/example_arrow.st	Thu Sep  4 06:49:07 2003
+++ example_arrow.st	Wed Dec 17 08:33:59 2003
@@ -52,7 +52,7 @@
 
 !ArrowExample methodsFor: 'event handling'!
 
-destroy: object data: data
+destroy
     Gtk mainQuit
 ! !
 
@@ -62,7 +62,7 @@
     | window button box |
     window := GtkWindow new: Gtk gtkWindowToplevel.
     window setTitle: 'Arrow Buttons'.
-    window connectSignal: 'destroy' to: self userData: nil.
+    window connectSignal: 'destroy' to: self send: #destroy userData: nil.
     window setBorderWidth: 10.
 
     box := GtkHBox new: false spacing: 0.
--- ../gtk-orig/example_aspectframe.st	Thu Sep  4 06:49:07 2003
+++ example_aspectframe.st	Wed Dec 17 08:34:00 2003
@@ -39,7 +39,7 @@
 
 !AspectFrameExample methodsFor: 'event handling'!
 
-destroy: object data: data
+destroy
 	Gtk mainQuit
 ! !
 
@@ -48,7 +48,7 @@
 open
     | window aspectFrame drawingArea |
     window := GtkWindow new: Gtk gtkWindowToplevel.
-    window connectSignal: 'destroy' to: self userData: nil.
+    window connectSignal: 'destroy' to: self send: #destroy userData: nil.
     window setTitle: 'Aspect Frame'.
     window setBorderWidth: 10.
     
--- ../gtk-orig/example_buttonbox.st	Thu Sep  4 06:49:07 2003
+++ example_buttonbox.st	Wed Dec 17 08:34:00 2003
@@ -65,7 +65,7 @@
 
 !ButtonBoxExample methodsFor: 'event handling'!
 
-destroy: object data: data
+destroy
 	Gtk mainQuit
 ! !
 
@@ -75,7 +75,7 @@
     | window mainVBox hbox vbox frameHorz frameVert |
     window := GtkWindow new: Gtk gtkWindowToplevel.
     window setTitle: 'Button Boxes'.
-    window connectSignal: 'destroy' to: self userData: nil.
+    window connectSignal: 'destroy' to: self send: #destroy userData: nil.
     window setBorderWidth: 10.
     
     mainVBox := GtkVBox new: false spacing: 0.
--- ../gtk-orig/example_entry.st	Thu Sep  4 06:49:07 2003
+++ example_entry.st	Wed Dec 17 08:34:00 2003
@@ -41,11 +41,11 @@
 
 !EntryExample methodsFor: 'event handling'!
 
-activate: object data: data
+activate
     entry getText displayNl
 !
 
-clicked: object data: data
+clicked
     window destroy
 !
 
@@ -53,7 +53,7 @@
     entry perform: selector with: object getActive
 !
 
-destroy: object data: data
+destroy
     Gtk mainQuit
 !
 
@@ -70,8 +70,8 @@
     window setSizeRequest: 200 height: 100.
     window setTitle: 'GTK Entry'.
     
-    window connectSignal: 'destroy' to: self userData: nil.
-    window connectSignal: 'delete_event' to: self userData: nil.
+    window connectSignal: 'destroy' to: self send: #destroy userData: nil.
+    window connectSignal: 'delete_event' to: self send: #deleteEvent:data:event: userData: nil.
     
     vbox := GtkVBox new: false spacing: 0.
     window add: vbox.
@@ -79,7 +79,7 @@
     
     entry := GtkEntry new.
     entry setMaxLength: 50.
-    entry connectSignal: 'activate' to: self userData: nil.
+    entry connectSignal: 'activate' to: self send: #activate userData: nil.
     entry setText: 'hello'.
     
     "This function needs an int* as the last parameter, so we allocate it."
@@ -98,18 +98,18 @@
     
     check := GtkCheckButton newWithLabel: 'Editable'.
     hbox packStart: check expand: true fill: true padding: 0.
-    check connectSignal: 'toggled' to: self userData: #setEditable:.
+    check connectSignal: 'toggled' to: self send: #toggled:data: userData: #setEditable:.
     check setActive: true.
     check show.
     
     check := GtkCheckButton newWithLabel: 'Visible'.
     hbox packStart: check expand: true fill: true padding: 0.
-    check connectSignal: 'toggled' to: self userData: #setVisibility:.
+    check connectSignal: 'toggled' to: self send: #toggled:data: userData: #setVisibility:.
     check setActive: true.
     check show.
     
     button := GtkButton newFromStock: 'gtk-close'.
-    button connectSignal: 'clicked' to: self userData: nil.
+    button connectSignal: 'clicked' to: self send: #clicked userData: nil.
     vbox packStart: button expand: true fill: true padding: 0.
     button setFlags: Gtk gtkCanDefault.
     button grabDefault.
--- ../gtk-orig/example_eventbox.st	Thu Sep  4 06:49:07 2003
+++ example_eventbox.st	Wed Dec 17 08:34:01 2003
@@ -31,6 +31,8 @@
 
 Namespace current: GTK!
 
+GdkWindowObject superclass: GdkWindow!
+
 Object subclass: #EventBoxExample
 	instanceVariableNames: ''
 	classVariableNames: ''
@@ -39,11 +41,11 @@
 
 !EventBoxExample methodsFor: 'event handling'!
 
-buttonPressEvent: object data: data event: event
+buttonPressEvent: object event: event data: data 
 	data destroy
 !
 
-destroy: object data: data
+destroy
 	Gtk mainQuit
 ! !
 
@@ -53,7 +55,7 @@
     | window eventBox label |
 
     window := GtkWindow new: Gtk gtkWindowToplevel.
-    window connectSignal: 'destroy' to: self userData: nil.
+    window connectSignal: 'destroy' to: self send: #destroy userData: nil.
     window setTitle: 'Event Box'.
     window setBorderWidth: 10.
 
@@ -67,7 +69,7 @@
     label setSizeRequest: 110 height: 20.
 
     eventBox setEvents: Gdk gdkButtonPressMask.
-    eventBox connectSignal: 'button_press_event' to: self userData: window.
+    eventBox connectSignal: 'button_press_event' to: self send: #buttonPressEvent:event:data: userData: window.
 
     eventBox realize.
     eventBox getWindow setCursor: (GdkCursor new: Gdk gdkHand1).
--- ../gtk-orig/example_hello.st	Thu Sep  4 06:49:07 2003
+++ example_hello.st	Wed Dec 17 08:34:01 2003
@@ -43,7 +43,7 @@
 	data displayNl
 !
 
-destroy: object data: data
+destroy
 	Gtk mainQuit
 ! !
 
@@ -62,8 +62,8 @@
     l show.
     w setTitle: 'GTK+ bindings demo'.
 
-    b connectSignal: 'clicked' to: self userData: 'Hello, world!'.
-    w connectSignal: 'destroy' to: self userData: nil.
+    w connectSignal: 'destroy' to: self send: #destroy userData: nil.
+    b connectSignal: 'clicked' to: self send: #clicked:data: userData: 'Hello, world!'.
     w show.
 ! !
 
--- ../gtk-orig/example_tictactoe.st	Thu Sep  4 06:49:07 2003
+++ example_tictactoe.st	Wed Dec 17 08:34:01 2003
@@ -88,7 +88,7 @@
 	ifFalse: [ self play: data ]
 !
 
-destroy: object data: data
+destroy
     Gtk mainQuit
 ! !
 
@@ -109,7 +109,7 @@
     | button vbox hbox |
     window := GtkWindow new: Gtk gtkWindowToplevel.
     window setTitle: 'Tic-tac-toe'.
-    window connectSignal: 'destroy' to: self userData: nil.
+    window connectSignal: 'destroy' to: self send: #destroy userData: nil.
     window setBorderWidth: 10.
     
     vbox := GtkVBox new: false spacing: 0.
@@ -122,13 +122,13 @@
 	vbox packStart: hbox expand: true fill: true padding: 0.
         i to: i + 2 do: [ :j |
 	    buttons at: j put: (button := GtkButton newWithLabel: '').
-	    button connectSignal: 'clicked' to: self userData: j.
+	    button connectSignal: 'clicked' to: self send: #clicked:data: userData: j.
 	    hbox packStart: button expand: true fill: true padding: 0.
 	]
     ].
     
     button := GtkButton newWithLabel: 'Reset'.
-    button connectSignal: 'clicked' to: self userData: nil.
+    button connectSignal: 'clicked' to: self send: #clicked:data: userData: nil.
     vbox packEnd: button expand: false fill: false padding: 0.
     vbox packEnd: GtkHSeparator new expand: false fill: false padding: 5.