--- a/SubCanvas.st	Sat Jun 20 10:29:02 1998 +0200
+++ b/SubCanvas.st	Sat Jun 20 14:29:05 1998 +0200
@@ -171,13 +171,17 @@
                 ^ self
             ]
         ].
+
         builder isNil ifTrue:[
-            builder := UIBuilder new
+            builder := client builderClass new.
         ].
+
         "/ old:
-        "/ builder buildFromSpec:win in:scrolledView.
+"/         builder buildFromSpec:subSpec in:scrolledView.
 
-        "/ new:
+        "/ new (let app know (somehow) that this is a build
+        "/ for a subcanvas (i.e. it can redefine the buildSubCanvase-method
+        "/:
         savedView := builder window.
         builder window:scrolledView.
         client buildSubCanvas:subSpec withBuilder:builder.
@@ -189,7 +193,7 @@
         ]
     ]
 
-    "Modified: / 18.6.1998 / 20:13:37 / cg"
+    "Modified: / 20.6.1998 / 14:29:00 / cg"
 !
 
 releaseAllComponents
@@ -273,5 +277,5 @@
 !SubCanvas class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/SubCanvas.st,v 1.8 1998-06-18 19:44:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SubCanvas.st,v 1.9 1998-06-20 12:29:05 cg Exp $'
 ! !