--- a/SubCanvas.st	Mon Oct 04 12:47:13 1999 +0200
+++ b/SubCanvas.st	Mon Oct 04 22:32:27 1999 +0200
@@ -191,7 +191,7 @@
 rebuild
     "rebuild
     "
-    |v subSpec savedView builderClass|
+    |v subSpec savedView builderClass boundsOrLayout|
 
     superView isNil ifTrue:[
         lateBuild := true.
@@ -237,8 +237,12 @@
             builder window:savedView.
         ].
         clientViewIsScrolled ifTrue:[
+            boundsOrLayout := builder spec window layout.
+            boundsOrLayout isNil ifTrue:[
+                 boundsOrLayout := builder spec window bounds
+            ].
             clientView
-                extent:(builder spec window layout rectangleRelativeTo:self bounds preferred:nil) extent.
+                extent:(boundsOrLayout rectangleRelativeTo:self bounds preferred:nil) extent.
         ].
 
         self realized ifTrue:[
@@ -341,5 +345,5 @@
 !SubCanvas class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/SubCanvas.st,v 1.18 1999-09-21 19:19:40 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SubCanvas.st,v 1.19 1999-10-04 20:32:27 cg Exp $'
 ! !