--- a/UIBuilder.st	Wed Feb 23 11:26:42 2000 +0100
+++ b/UIBuilder.st	Wed Feb 23 22:31:30 2000 +0100
@@ -255,7 +255,7 @@
 !UIBuilder methodsFor:'building - programatically'!
 
 add:aSpec
-    |collectedComponents|
+    |collectedComponents appWinClass|
 
     composite notNil ifTrue:[
         (collectedComponents := composite collection) isNil ifTrue:[
@@ -276,7 +276,12 @@
                 spec component:aSpec.
 
                 window isNil ifTrue:[
-                    window := ApplicationWindow new.
+                    application notNil ifTrue:[
+                        appWinClass := application applicationWindowClass
+                    ] ifFalse:[
+                        appWinClass := ApplicationWindow
+                    ].
+                    window := appWinClass new.
                     window extent:300@300.
                 ].
                 aSpec buildViewWithLayoutFor:self in:window.
@@ -393,6 +398,6 @@
 !UIBuilder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/UIBuilder.st,v 1.47 2000-01-31 13:53:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/UIBuilder.st,v 1.48 2000-02-23 21:31:30 cg Exp $'
 ! !
 UIBuilder initialize!