--- a/Scroller.st Mon Mar 13 12:32:31 2006 +0100
+++ b/Scroller.st Mon Mar 13 12:37:16 2006 +0100
@@ -1036,6 +1036,10 @@
pagedBelowPointer
lastMousePosition notNil ifTrue:[
+ thumbFrame isNil ifTrue:[
+ self computeThumbFrame.
+ thumbFrame isNil ifTrue:[^ false].
+ ].
orientation == #horizontal ifTrue:[
^ lastMousePosition x < thumbFrame center x
] ifFalse:[
@@ -2661,5 +2665,5 @@
!Scroller class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.183 2005-05-11 16:36:50 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.184 2006-03-13 11:37:16 cg Exp $'
! !