--- a/WindowBuilder.st	Wed Feb 23 11:26:42 2000 +0100
+++ b/WindowBuilder.st	Wed Feb 23 22:31:30 2000 +0100
@@ -1206,6 +1206,8 @@
         as popUp (also blocking)
         or as a normal view."
 
+    |appWinClass|
+
     origin notNil ifTrue:[
         "/ kludge
         origin ~~ #center ifTrue:[
@@ -1231,7 +1233,12 @@
 
     type == #normal ifTrue:[
         window isNil ifTrue:[
-            self setupWindowFor:(ApplicationWindow new).
+            application notNil ifTrue:[
+                appWinClass := application applicationWindowClass
+            ] ifFalse:[
+                appWinClass := ApplicationWindow
+            ].
+            self setupWindowFor:(appWinClass new).
         ].
         origin == #center ifTrue:[
             window origin:(window device center - window extent // 2)
@@ -1258,5 +1265,5 @@
 !WindowBuilder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.88 2000-02-21 23:34:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.89 2000-02-23 21:30:45 cg Exp $'
 ! !