--- a/SubCanvas.st	Tue Dec 19 10:23:41 2000 +0100
+++ b/SubCanvas.st	Mon Jan 08 11:18:00 2001 +0100
@@ -14,12 +14,12 @@
 "{ Package: 'stx:libwidg2' }"
 
 ScrollableView subclass:#SubCanvas
-	instanceVariableNames:'builder spec client clientHolder specHolder clientView
-		clientViewIsScrolled lateBuild useApplicationSubView
-		keepClientView useOwnBuilder'
-	classVariableNames:''
-	poolDictionaries:''
-	category:'Views-Basic'
+        instanceVariableNames:'builder spec client clientHolder specHolder clientView
+                clientViewIsScrolled lateBuild useApplicationSubView
+                keepClientView useOwnBuilder'
+        classVariableNames:''
+        poolDictionaries:''
+        category:'Views-Basic'
 !
 
 !SubCanvas class methodsFor:'documentation'!
@@ -373,6 +373,7 @@
         ].
 
         [
+            clientView superView:self.
 
             client buildSubCanvas:subSpec withBuilder:builder.
             keepClientView ifFalse:[    
@@ -434,10 +435,11 @@
 updateFromChannels
     "update canvas from channel
     "
-    |client spec|
+    |client spec bldr|
 
     clientHolder isNil ifTrue:[
-        client := self application
+        client := self application.
+        bldr := UIBuilder new.
     ] ifFalse:[
         client := clientHolder value
     ].
@@ -455,8 +457,7 @@
         client := nil.
         spec := #windowSpec.  "/ is that true ?
     ].
-
-    self client:client spec:spec builder:nil
+    self client:client spec:spec builder:bldr
 
     "Modified: / 5.8.1999 / 13:35:26 / cg"
 ! !
@@ -538,5 +539,5 @@
 !SubCanvas class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/SubCanvas.st,v 1.35 2000-12-15 16:42:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SubCanvas.st,v 1.36 2001-01-08 10:18:00 martin Exp $'
 ! !