*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Tue, 15 Sep 2009 23:17:21 +0200
changeset 3920 28936fdd049b
parent 3919 9a5d0db0c12e
child 3921 f7f8661be48b
*** empty log message ***
Scroller.st
--- a/Scroller.st	Tue Sep 15 21:03:04 2009 +0200
+++ b/Scroller.st	Tue Sep 15 23:17:21 2009 +0200
@@ -1464,7 +1464,7 @@
 
     sensor := self sensor.
     (sensor shiftDown
-     or:[DefaultMiddleButtonJump and:[button ~~ #select and:[button ~~ 1]]]) ifTrue:[
+     or:[DefaultMiddleButtonJump and:[button ~~ 1]]) ifTrue:[
         ^ self buttonShiftPress:button x:x y:y
     ].
     sensor ctrlDown ifTrue:[
@@ -1540,7 +1540,7 @@
         repeatBlock := nil
     ].
 
-    (button == 1 or:[button == #select or:[DefaultMiddleButtonJump]])
+    (button == 1 or:[DefaultMiddleButtonJump])
     ifFalse:[
         ^ super buttonRelease:button x:x y:y
     ].
@@ -2670,5 +2670,5 @@
 !Scroller class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.188 2008-10-26 20:10:10 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.189 2009-09-15 21:17:21 cg Exp $'
 ! !