--- a/SubCanvas.st	Thu Jun 18 14:30:37 1998 +0200
+++ b/SubCanvas.st	Thu Jun 18 21:44:28 1998 +0200
@@ -1,3 +1,16 @@
+"
+ COPYRIGHT (c) 1998 by eXept Software AG
+              All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice.   This software may not
+ be provided or otherwise made available to, or used by, any
+ other person.  No title to or ownership of the software is
+ hereby transferred.
+"
+
+
 ScrollableView subclass:#SubCanvas
 	instanceVariableNames:'builder spec client clientHolder specHolder'
 	classVariableNames:''
@@ -5,6 +18,32 @@
 	category:'Views-Basic'
 !
 
+!SubCanvas class methodsFor:'documentation'!
+
+copyright
+"
+ COPYRIGHT (c) 1998 by eXept Software AG
+              All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice.   This software may not
+ be provided or otherwise made available to, or used by, any
+ other person.  No title to or ownership of the software is
+ hereby transferred.
+"
+
+!
+
+documentation
+"
+    a view for a subApplication.
+
+    [author:]
+        Claus Atzkern
+"
+
+! !
 
 !SubCanvas methodsFor:'accessing'!
 
@@ -117,30 +156,40 @@
 rebuild
     "rebuild
     "
-    |win|
+    |subSpec savedView|
 
     scrolledView notNil ifTrue:[
         scrolledView destroySubViews
     ].
 
     spec notNil ifTrue:[
-        (win := spec) isSymbol ifTrue:[
+        (subSpec := spec) isSymbol ifTrue:[
             client isNil ifTrue:[
                 ^ self
             ].
-            (win := client class interfaceSpecFor:spec) isNil ifTrue:[
+            (subSpec := client class interfaceSpecFor:spec) isNil ifTrue:[
                 ^ self
             ]
         ].
         builder isNil ifTrue:[
             builder := UIBuilder new
         ].
-        builder buildFromSpec:win in:scrolledView.
+        "/ old:
+        "/ builder buildFromSpec:win in:scrolledView.
+
+        "/ new:
+        savedView := builder window.
+        builder window:scrolledView.
+        client buildSubCanvas:subSpec withBuilder:builder.
+        builder window:savedView.
+
 
         self realized ifTrue:[
             scrolledView realizeAllSubViews
         ]
     ]
+
+    "Modified: / 18.6.1998 / 20:13:37 / cg"
 !
 
 releaseAllComponents
@@ -224,5 +273,5 @@
 !SubCanvas class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/SubCanvas.st,v 1.7 1998-03-10 17:12:02 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SubCanvas.st,v 1.8 1998-06-18 19:44:28 cg Exp $'
 ! !