--- a/EventListener.st	Wed Oct 27 13:45:12 1999 +0200
+++ b/EventListener.st	Thu Oct 28 17:29:28 1999 +0200
@@ -135,16 +135,18 @@
     ^ false
 
     "Modified: 23.4.1996 / 21:58:17 / cg"
+!
+
+postCreateView:aView
+    ^ self
+!
+
+preCreateView:aView
+    ^ self
 ! !
 
 !EventListener methodsFor:'events - window creation'!
 
-postCreateView:aView
-    "invoked right after a view was physically created."
-
-    ^ self
-!
-
 preCreateView:aView origin:org
     "invoked right before a view is about to be physically created.
      May return a new origin."
@@ -157,7 +159,7 @@
 listen
     "install myself as listener"
 
-    WindowSensor eventListener:self
+    WindowSensor addEventListener:self
 
     "
      |listener|
@@ -169,14 +171,19 @@
     "
 !
 
+processEvent:ev
+    ^ ev dispatchWithViewArgumentTo:self
+
+!
+
 unlisten
     "uninstall myself as listener"
 
-    WindowSensor eventListener:nil 
+    WindowSensor removeEventListener:self 
 ! !
 
 !EventListener class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/EventListener.st,v 1.16 1999-05-25 16:02:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/EventListener.st,v 1.17 1999-10-28 15:29:28 cg Exp $'
 ! !