--- a/TopView.st	Thu Mar 03 19:32:32 2011 +0100
+++ b/TopView.st	Thu Mar 03 20:23:01 2011 +0100
@@ -489,6 +489,15 @@
     type := nil
 !
 
+beUndecoratedResizable
+    "make me an undecorated Window"
+    "experimental - do not use"
+
+    type := #undecoratedResizable
+
+    "Created: / 03-03-2011 / 20:22:14 / cg"
+!
+
 focusSequence:aCollectionOfSubcomponents
     "define the sequence for stepping through my components."
 
@@ -509,6 +518,14 @@
     ^ false
 
     "Created: / 29-08-2006 / 14:28:54 / cg"
+!
+
+windowType:aTypeSymbol
+    "experimental - do not use"
+
+    type := aTypeSymbol
+
+    "Created: / 03-03-2011 / 20:12:40 / cg"
 ! !
 
 !TopView methodsFor:'accessing-look'!
@@ -939,7 +956,11 @@
 !
 
 isMDIClientView
+    type isInteger ifFalse:[^ false].
+
     ^ (type bitAnd:MDIClientMask) == MDIClient.
+
+    "Modified: / 03-03-2011 / 20:14:09 / cg"
 !
 
 isMaster
@@ -1472,11 +1493,11 @@
 !TopView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.140 2011-03-03 18:32:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.141 2011-03-03 19:23:01 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.140 2011-03-03 18:32:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.141 2011-03-03 19:23:01 cg Exp $'
 ! !
 
 TopView initialize!