--- a/UIBuilder.st	Tue Jan 08 20:47:04 2008 +0100
+++ b/UIBuilder.st	Wed Jan 09 18:32:29 2008 +0100
@@ -232,6 +232,19 @@
 !UIBuilder methodsFor:'building'!
 
 buildFromSpec:aSpecOrSpecArray
+    ^ self buildWindowFromSpec:aSpecOrSpecArray
+!
+
+buildFromSpec:aSpecArray in:aView
+    "build a window hierarchy according to my spec into an existing view"
+
+    spec := UISpecification from:aSpecArray.
+    ^ spec buildViewFor:self in:aView.
+
+    "Modified: 3.3.1997 / 18:44:02 / cg"
+!
+
+buildWindowFromSpec:aSpecOrSpecArray
     spec := UISpecification from:aSpecOrSpecArray.
     window notNil ifTrue:[
         spec buildViewFor:self in:window.
@@ -241,13 +254,6 @@
     ^ window
 !
 
-buildFromSpec:aSpecArray in:aView
-    spec := UISpecification from:aSpecArray.
-    ^ spec buildViewFor:self in:aView.
-
-    "Modified: 3.3.1997 / 18:44:02 / cg"
-!
-
 doFinalHookup
 
     "Created: 14.2.1997 / 14:52:27 / cg"
@@ -412,7 +418,7 @@
 !UIBuilder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/UIBuilder.st,v 1.57 2008-01-07 13:33:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/UIBuilder.st,v 1.58 2008-01-09 17:32:29 cg Exp $'
 ! !
 
 UIBuilder initialize!