--- a/SubCanvas.st	Thu Feb 28 16:47:32 2008 +0100
+++ b/SubCanvas.st	Thu Feb 28 17:22:39 2008 +0100
@@ -451,6 +451,7 @@
             ] ifFalse:[
                 clientView extent:(subSpec window bounds extent)
             ].
+            self sizeChanged:nil.  "/ to force recomputation of the scrollbar
         ].
 
         self realized ifTrue:[
@@ -593,5 +594,5 @@
 !SubCanvas class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/SubCanvas.st,v 1.57 2008-02-18 08:33:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SubCanvas.st,v 1.58 2008-02-28 16:22:39 cg Exp $'
 ! !