*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Mon, 13 Mar 2006 12:37:16 +0100
changeset 3281 bff085fdfa78
parent 3280 703642244271
child 3282 d843f934408c
*** empty log message ***
Scroller.st
--- 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 $'
 ! !