--- a/Scroller.st	Tue Aug 05 16:19:45 1997 +0200
+++ b/Scroller.st	Thu Aug 07 12:54:08 1997 +0200
@@ -1161,6 +1161,11 @@
         ^ self buttonShiftPress:button x:x y:y
     ].
 
+    thumbFrame isNil ifTrue:[
+        self computeThumbFrame.
+        thumbFrame isNil ifTrue:[^ self].
+    ].
+
     (orientation == #vertical) ifTrue:[
         curr := y.
         limit1 := thumbFrame top.
@@ -1185,7 +1190,7 @@
     ].
     self highlightThumbForPointerX:x y:y
 
-    "Modified: 1.8.1996 / 18:00:33 / cg"
+    "Modified: 6.8.1997 / 16:12:30 / cg"
 !
 
 buttonRelease:button x:x y:y
@@ -1957,5 +1962,5 @@
 !Scroller class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.86 1997-07-26 19:06:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.87 1997-08-07 10:54:08 cg Exp $'
 ! !