--- 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 $'
! !