--- a/SubCanvas.st	Tue Sep 21 20:13:04 1999 +0200
+++ b/SubCanvas.st	Tue Sep 21 21:19:40 1999 +0200
@@ -13,7 +13,7 @@
 
 ScrollableView subclass:#SubCanvas
 	instanceVariableNames:'builder spec client clientHolder specHolder clientView
-		clientViewIsScrolled'
+		clientViewIsScrolled lateBuild'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Views-Basic'
@@ -179,11 +179,25 @@
 
 !SubCanvas methodsFor:'building'!
 
+container:aView
+    super container:aView.
+    lateBuild == true ifTrue:[
+        lateBuild := false.
+        self rebuild
+    ].
+
+!
+
 rebuild
     "rebuild
     "
     |v subSpec savedView builderClass|
 
+    superView isNil ifTrue:[
+        lateBuild := true.
+        ^ self
+    ].
+
     clientView notNil ifTrue:[
         clientView destroySubViews
     ].
@@ -327,5 +341,5 @@
 !SubCanvas class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/SubCanvas.st,v 1.17 1999-09-21 18:09:45 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SubCanvas.st,v 1.18 1999-09-21 19:19:40 stefan Exp $'
 ! !