--- 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
! !
+