--- a/UIBuilder.st	Mon Feb 04 13:24:35 2008 +0100
+++ b/UIBuilder.st	Mon Feb 04 15:42:43 2008 +0100
@@ -245,6 +245,22 @@
     "Modified: 3.3.1997 / 18:44:02 / cg"
 !
 
+buildViewForSpec:aSpec in:aView
+    "used when building a subSpec; moved from the UISPec class to here,
+     to allow different behavior in WebBuilder..."
+
+    |window|
+
+    aSpec class == FullSpec ifTrue:[
+        aSpec component buildViewFor:self in:aView.
+        (window := aSpec window) notNil ifTrue:[
+            aView preferredExtent:(window bounds extent)
+        ].
+    ] ifFalse:[
+        aSpec buildViewFor:self in:aView.
+    ].
+!
+
 buildWindowFromSpec:aSpecOrSpecArray
     spec := UISpecification from:aSpecOrSpecArray.
     window notNil ifTrue:[
@@ -419,7 +435,7 @@
 !UIBuilder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/UIBuilder.st,v 1.59 2008-01-09 17:58:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/UIBuilder.st,v 1.60 2008-02-04 14:42:43 cg Exp $'
 ! !
 
 UIBuilder initialize!