--- a/Scroller.st	Thu Feb 05 12:20:54 1998 +0100
+++ b/Scroller.st	Thu Feb 05 12:21:44 1998 +0100
@@ -1479,18 +1479,23 @@
 sizeChanged:how
     "size of scroller changed - recompute thumbs frame and redraw it"
 
-    |oldFrame|
-
-    shown ifTrue:[
-        oldFrame := thumbFrame.
-        self computeThumbFrame.
+    thumbFrame := nil.
+    ^ self.
 
-        oldFrame ~= thumbFrame ifTrue:[
-            self invalidate.
-        ]
-    ]
+"/ Not needed - we get exposes anyway.
+"/
+"/    |oldFrame|
+"/
+"/    shown ifTrue:[
+"/        oldFrame := thumbFrame.
+"/        self computeThumbFrame.
+"/
+"/        oldFrame ~= thumbFrame ifTrue:[
+"/            self invalidate.
+"/        ]
+"/    ]
 
-    "Modified: 7.3.1997 / 22:48:56 / cg"
+    "Modified: / 4.2.1998 / 23:52:14 / cg"
 !
 
 update:something with:aParameter from:changedObject
@@ -2109,5 +2114,5 @@
 !Scroller class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.98 1998-02-02 23:33:03 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.99 1998-02-05 11:21:44 cg Exp $'
 ! !