--- a/SimpleView.st	Fri Feb 24 10:29:11 2006 +0100
+++ b/SimpleView.st	Fri Feb 24 12:25:54 2006 +0100
@@ -7695,6 +7695,12 @@
 
     "Created: 2.5.1997 / 14:29:48 / cg"
     "Modified: 2.5.1997 / 14:30:14 / cg"
+!
+
+windowType
+    "return a symbol describing my type (one of: #mdichild or nil)"
+
+    ^ nil
 ! !
 
 !SimpleView methodsFor:'realization'!
@@ -8015,20 +8021,20 @@
     isInputOnly := self isInputOnly.
 
     drawableId := device
-		      createWindowFor:self
-			  type:nil
-			  origin:(left @ top)
-			  extent:(width @ height)
-			  minExtent:nil
-			  maxExtent:nil
-			  borderWidth:borderWidth
-			  subViewOf:sv
-			  style:(self windowStyle)
-			  inputOnly:isInputOnly
-			  label:nil
-			  owner:nil
-			  icon:nil iconMask:nil
-			  iconView:nil.
+                      createWindowFor:self
+                          type:(self windowType)
+                          origin:(left @ top)
+                          extent:(width @ height)
+                          minExtent:nil
+                          maxExtent:nil
+                          borderWidth:borderWidth
+                          subViewOf:sv
+                          style:(self windowStyle)
+                          inputOnly:isInputOnly
+                          label:nil
+                          owner:nil
+                          icon:nil iconMask:nil
+                          iconView:nil.
 
     Lobby registerChange:self.
 
@@ -8042,30 +8048,30 @@
     self originChangedFlag:false.
 
     (borderColor notNil and:[borderColor ~= Black]) ifTrue:[
-	isInputOnly ifFalse:[
+        isInputOnly ifFalse:[
 "/          borderColor := borderColor on:device.
-	    self setBorderColor
-	]
+            self setBorderColor
+        ]
     ].
     (viewGravity notNil "and:[viewGravity ~~ #NorthWest]") ifTrue:[
-	device setWindowGravity:viewGravity in:drawableId
+        device setWindowGravity:viewGravity in:drawableId
     ].
     (bitGravity notNil "and:[bitGravity ~~ #NorthWest]") ifTrue:[
-	isInputOnly ifFalse:[
-	    device setBitGravity:bitGravity in:drawableId
-	]
+        isInputOnly ifFalse:[
+            device setBitGravity:bitGravity in:drawableId
+        ]
     ].
     viewShape notNil ifTrue:[
-	self setViewShape
+        self setViewShape
     ].
     (backed notNil and:[backed ~~ false]) ifTrue:[
-	device setBackingStore:backed in:drawableId
+        device setBackingStore:backed in:drawableId
     ].
     self saveUnder ifTrue:[
-	device setSaveUnder:true in:drawableId
+        device setSaveUnder:true in:drawableId
     ].
     cursor notNil ifTrue:[
-	self setCursor
+        self setCursor
     ].
 
     "Modified: / 9.4.1998 / 20:18:12 / cg"
@@ -9693,7 +9699,7 @@
 !SimpleView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.540 2006-02-23 21:05:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.541 2006-02-24 11:25:54 cg Exp $'
 ! !
 
 SimpleView initialize!