no longer send buttonShiftPress messages (has to be done in the
authorClaus Gittinger <cg@exept.de>
Thu, 01 Aug 1996 18:19:16 +0200
changeset 327 08f7c1c026b6
parent 326 ab4e3df5c5d5
child 328 f429f549b40a
no longer send buttonShiftPress messages (has to be done in the buttonPress method)
EventListener.st
InputView.st
--- 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 $'
 ! !