--- a/UIBuilder.st	Mon Mar 03 11:14:14 1997 +0100
+++ b/UIBuilder.st	Mon Mar 03 11:15:07 1997 +0100
@@ -78,13 +78,14 @@
     "Modified: 16.1.1997 / 00:45:07 / cg"
 !
 
-buildFromSpec:aSpecArray
+buildFromSpec:aSpecOrSpecArray
     |m spec|
 
-"/ old:
-"/    self readSpec:aSpecArray.
+    window notNil ifTrue:[
+        ^ self buildFromSpec:aSpecOrSpecArray in:window
+    ].
 
-    spec := UISpecification from:aSpecArray.
+    spec := UISpecification from:aSpecOrSpecArray.
     window := view := spec buildViewFor:self.
 
 "/    menuAspect notNil ifTrue:[
@@ -109,7 +110,6 @@
     |m spec|
 
     spec := UISpecification from:aSpecArray.
-
     view := spec buildViewFor:self in:aView.
 
 "/    menuAspect notNil ifTrue:[
@@ -138,6 +138,6 @@
 !UIBuilder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/UIBuilder.st,v 1.19 1997-01-17 20:36:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/UIBuilder.st,v 1.20 1997-03-03 10:15:07 ca Exp $'
 ! !
 UIBuilder initialize!