--- a/EventListener.st	Thu May 01 13:27:19 1997 +0200
+++ b/EventListener.st	Wed May 07 15:09:22 1997 +0200
@@ -42,27 +42,30 @@
     abstract class for event listeners. EventListeners can be used to intercept
     incoming events (keyboard & mouse) directly from a sensor, or even
     for a complete display device.
-    One application is the automatic help, which tracks entering/leaving
-    views, to popup some help message. See concrete code in ActiveHelp.
+    A concrete application is the bubble help, which tracks entering/leaving
+    views, and pops up some help message. 
+    See concrete code in ActiveHelp.
+
     For each intercepted event, a corresponding method is called for in instances
-    of myself - these should return true, if the event is to be ignored (i.e.
-    assumed to be processed and consumed by the reader, or false, if the normal
-    event procedure should be performed. Since this is an abstract class,
-    all of my intercept methods return false. They are meant to be redefined
-    in concrete subclasses.
+    of myself - these MUST return true, if the event is to be ignored (i.e.
+    assumed to be processed and consumed by the reader, 
+    and MUST return false, if the normal event procedure should be performed. 
+    Since this is an abstract class,
+    all of my intercept methods return false. 
+    They are meant to be redefined in concrete subclasses.
 
     [see also:]
-        WindowSensor WindowEvent WindowGroup
+	WindowSensor WindowEvent WindowGroup
 
     [author:]
-        Claus Gittinger
+	Claus Gittinger
 "
 ! !
 
 !EventListener methodsFor:'events'!
 
 buttonMotion:state x:x y:y view:aView
-    "not handled here - should be redefined in a concrete subclas"
+    "not handled here - should be redefined in a concrete subclass"
 
     ^ false
 
@@ -70,7 +73,7 @@
 !
 
 buttonMultiPress:button x:x y:y view:aView
-    "not handled here - should be redefined in a concrete subclas"
+    "not handled here - should be redefined in a concrete subclass"
 
     ^ false
 
@@ -78,7 +81,7 @@
 !
 
 buttonPress:button x:x y:y view:aView
-    "not handled here - should be redefined in a concrete subclas"
+    "not handled here - should be redefined in a concrete subclass"
 
     ^ false
 
@@ -86,7 +89,7 @@
 !
 
 buttonRelease:button x:x y:y view:aView
-    "not handled here - should be redefined in a concrete subclas"
+    "not handled here - should be redefined in a concrete subclass"
 
     ^ false
 
@@ -94,7 +97,7 @@
 !
 
 keyPress:key x:x y:y view:aView
-    "not handled here - should be redefined in a concrete subclas"
+    "not handled here - should be redefined in a concrete subclass"
 
     ^ false
 
@@ -102,7 +105,7 @@
 !
 
 keyRelease:key x:x y:y view:aView
-    "not handled here - should be redefined in a concrete subclas"
+    "not handled here - should be redefined in a concrete subclass"
 
     ^ false
 
@@ -110,7 +113,7 @@
 !
 
 pointerEnter:state x:x y:y view:view
-    "not handled here - should be redefined in a concrete subclas"
+    "not handled here - should be redefined in a concrete subclass"
 
     ^ false
 
@@ -118,13 +121,28 @@
 !
 
 pointerLeave:state view:view
-    "not handled here - should be redefined in a concrete subclas"
+    "not handled here - should be redefined in a concrete subclass"
 
     ^ false
 
     "Modified: 23.4.1996 / 21:58:17 / cg"
 ! !
 
+!EventListener methodsFor:'events - window creation'!
+
+preCreateView:aView origin:org
+    "invoked right before a view is about to be physically created.
+     May return a new origin."
+
+    ^ org
+!
+
+postCreateView:aView
+    "invoked right after a view was physically created."
+
+    ^ self
+! !
+
 !EventListener methodsFor:'listen'!
 
 listen
@@ -151,5 +169,5 @@
 !EventListener  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/EventListener.st,v 1.12 1996-08-01 16:18:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/EventListener.st,v 1.13 1997-05-07 13:09:22 cg Exp $'
 ! !