EventListener.st
changeset 123 39e9679c132d
parent 114 e577a2f332d0
child 127 4b1051c23b9b
--- a/EventListener.st	Thu Nov 23 02:26:40 1995 +0100
+++ b/EventListener.st	Thu Nov 23 11:37:35 1995 +0100
@@ -12,8 +12,6 @@
 
 
 
-'From Smalltalk/X, Version:2.10.5 on 25-mar-1995 at 11:44:17 am'!
-
 Object subclass:#EventListener
 	 instanceVariableNames:''
 	 classVariableNames:''
@@ -23,8 +21,20 @@
 
 !EventListener class methodsFor:'documentation'!
 
-version
-    ^ '$Header: /cvs/stx/stx/libview2/EventListener.st,v 1.6 1995-11-11 16:04:26 cg Exp $'
+copyright
+"
+ COPYRIGHT (c) 1995 by Claus Gittinger
+	      All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice.   This software may not
+ be provided or otherwise made available to, or used by, any
+ other person.  No title to or ownership of the software is
+ hereby transferred.
+"
+
+
 !
 
 documentation
@@ -43,32 +53,14 @@
 "
 !
 
-copyright
-"
- COPYRIGHT (c) 1995 by Claus Gittinger
-	      All Rights Reserved
-
- This software is furnished under a license and may be used
- only in accordance with the terms of that license and with the
- inclusion of the above copyright notice.   This software may not
- be provided or otherwise made available to, or used by, any
- other person.  No title to or ownership of the software is
- hereby transferred.
-"
-
-
+version
+    ^ '$Header: /cvs/stx/stx/libview2/EventListener.st,v 1.7 1995-11-23 10:37:35 cg Exp $'
 ! !
 
 !EventListener methodsFor:'events'!
 
-buttonRelease:button x:x y:y view:aView
+buttonMotion:state x:x y:y view:aView
     ^ false
-
-!
-
-keyPress:key x:x y:y view:aView
-    ^ false
-
 !
 
 buttonMultiPress:button x:x y:y view:aView
@@ -81,11 +73,22 @@
 
 !
 
-buttonMotion:state x:x y:y view:aView
+buttonRelease:button x:x y:y view:aView
     ^ false
+
 !
 
-pointerLeave:state view:view
+buttonShiftPress:button x:x y:y view:aView
+    ^ false
+
+!
+
+keyPress:key x:x y:y view:aView
+    ^ false
+
+!
+
+keyRelease:key x:x y:y view:aView
     ^ false
 
 !
@@ -95,12 +98,7 @@
 
 !
 
-buttonShiftPress:button x:x y:y view:aView
-    ^ false
-
-!
-
-keyRelease:key x:x y:y view:aView
+pointerLeave:state view:view
     ^ false
 
 ! !
@@ -127,3 +125,4 @@
 
     WindowSensor eventListener:nil 
 ! !
+