no longer send buttonShiftPress messages (has to be done in the
buttonPress method)
--- a/EventListener.st Fri Jul 26 18:09:31 1996 +0200
+++ b/EventListener.st Thu Aug 01 18:19:16 1996 +0200
@@ -19,7 +19,7 @@
category:'Interface-Support'
!
-!EventListener class methodsFor:'documentation'!
+!EventListener class methodsFor:'documentation'!
copyright
"
@@ -93,14 +93,6 @@
"Modified: 23.4.1996 / 21:58:03 / cg"
!
-buttonShiftPress:button x:x y:y view:aView
- "not handled here - should be redefined in a concrete subclas"
-
- ^ false
-
- "Modified: 23.4.1996 / 21:58:06 / cg"
-!
-
keyPress:key x:x y:y view:aView
"not handled here - should be redefined in a concrete subclas"
@@ -156,8 +148,8 @@
WindowSensor eventListener:nil
! !
-!EventListener class methodsFor:'documentation'!
+!EventListener class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/EventListener.st,v 1.11 1996-04-25 16:33:32 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/EventListener.st,v 1.12 1996-08-01 16:18:57 cg Exp $'
! !
--- a/InputView.st Fri Jul 26 18:09:31 1996 +0200
+++ b/InputView.st Thu Aug 01 18:19:16 1996 +0200
@@ -17,7 +17,7 @@
category:'Views-Special'
!
-!InputView class methodsFor:'documentation'!
+!InputView class methodsFor:'documentation'!
copyright
"
@@ -86,14 +86,6 @@
]
!
-buttonShiftPress:button x:x y:y
- "redefined to forward event"
-
- eventReceiver notNil ifTrue:[
- eventReceiver buttonShiftPress:button x:x y:y
- ]
-!
-
exposeX:x y:y width:w height:h
"will never be received"
^ self
@@ -162,8 +154,8 @@
^ self
! !
-!InputView class methodsFor:'documentation'!
+!InputView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/InputView.st,v 1.13 1996-06-01 11:23:59 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/InputView.st,v 1.14 1996-08-01 16:19:16 cg Exp $'
! !