--- a/StandardSystemView.st	Fri Feb 24 12:27:01 2006 +0100
+++ b/StandardSystemView.st	Fri Feb 24 12:27:27 2006 +0100
@@ -1503,7 +1503,7 @@
 
     drawableId := device 
                       createWindowFor:self 
-                      type:nil
+                      type:(self windowType)
                       origin:(left @ top)
                       extent:(width @ height)
                       minExtent:minExtent
@@ -1619,7 +1619,7 @@
 !StandardSystemView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.165 2006-02-09 16:09:32 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.166 2006-02-24 11:27:27 cg Exp $'
 ! !
 
 StandardSystemView initialize!