--- a/SubCanvas.st	Mon Jan 08 11:18:00 2001 +0100
+++ b/SubCanvas.st	Mon Jan 08 11:21:26 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'!
@@ -372,10 +372,16 @@
             client builder:builder.
         ].
 
-        [
+        [   |savedSuperView|
+
+            "/ kludge: need superView to be set correctly, in order for
+            "/ postBuildAsSubCanvas to be invoked (instead of postBuild)
+            "/ however, must unset the superView for code below ...
+            savedSuperView := clientView superView.
             clientView superView:self.
+            client buildSubCanvas:subSpec withBuilder:builder.
+            clientView superView:savedSuperView.
 
-            client buildSubCanvas:subSpec withBuilder:builder.
             keepClientView ifFalse:[    
                 (scrolledView notNil and:[clientView isComponentOf:scrolledView]) ifTrue:[
                     self error:'this should not happen'
@@ -539,5 +545,5 @@
 !SubCanvas class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/SubCanvas.st,v 1.36 2001-01-08 10:18:00 martin Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SubCanvas.st,v 1.37 2001-01-08 10:21:26 martin Exp $'
 ! !