--- a/Scroller.st Sat Mar 18 06:16:50 1995 +0100
+++ b/Scroller.st Sat Mar 18 16:25:44 1995 +0100
@@ -37,7 +37,7 @@
COPYRIGHT (c) 1989 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.17 1995-03-18 05:16:01 claus Exp $
+$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.18 1995-03-18 15:25:44 claus Exp $
'!
!Scroller class methodsFor:'documentation'!
@@ -58,7 +58,7 @@
version
"
-$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.17 1995-03-18 05:16:01 claus Exp $
+$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.18 1995-03-18 15:25:44 claus Exp $
"
!
@@ -1163,25 +1163,27 @@
buttonShiftPress:button x:x y:y
"mouse-click with shift - jump to position"
- |pos curr limit1 limit2 org|
+ |pos curr curr2 limit1 limit2 org|
(moveDirection == #y) ifTrue:[
curr := y.
+ curr2 := y - (thumbFrame height // 2).
limit1 := height.
limit2 := thumbFrame top
] ifFalse:[
curr := x.
+ curr2 := x - (thumbFrame width // 2).
limit1 := width.
limit2 := thumbFrame left
].
- (curr < 0) ifTrue:[ "check against limits"
+ (curr2 < 0) ifTrue:[ "check against limits"
pos := 0
] ifFalse:[
- (curr > limit1) ifTrue:[
+ (curr2 > limit1) ifTrue:[
pos := limit1
] ifFalse:[
- pos := curr
+ pos := curr2
]
].