WindowBuilder.st
changeset 2897 ea76bd971a64
parent 2896 96d5a0b6fc56
child 2899 807ebeb72418
--- a/WindowBuilder.st	Thu Mar 03 20:24:01 2011 +0100
+++ b/WindowBuilder.st	Thu Mar 03 20:40:08 2011 +0100
@@ -1498,7 +1498,11 @@
         ^ window openModal.
     ].
 
-    (type == #normal or:[type = #slave or:[type = #partner or:[type = #popUpNotModal or:[type = #undecorated]]]]) ifTrue:[
+    (type == #normal 
+    or:[type = #slave or:[type = #partner 
+    or:[type = #popUpNotModal 
+    or:[type = #undecorated
+    or:[type = #undecoratedResizable]]]]]) ifTrue:[
         window isNil ifTrue:[
             application notNil ifTrue:[
                 appWinClass := application applicationWindowClass
@@ -1563,7 +1567,11 @@
                 ] ifFalse:[
                     type == #undecorated ifTrue:[
                         window beUndecorated.
-                    ]
+                    ] ifFalse:[
+                        type == #undecoratedResizable ifTrue:[
+                            window beUndecoratedResizable.
+                        ]
+                    ].
                 ]
             ].
         ].
@@ -1597,7 +1605,7 @@
     self shouldImplement
 
     "Created: / 14-02-1997 / 20:22:24 / cg"
-    "Modified: / 03-03-2011 / 20:23:50 / cg"
+    "Modified: / 03-03-2011 / 20:27:05 / cg"
 ! !
 
 !WindowBuilder methodsFor:'translating'!
@@ -1615,9 +1623,9 @@
 !WindowBuilder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.147 2011-03-03 19:24:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.148 2011-03-03 19:40:08 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.147 2011-03-03 19:24:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.148 2011-03-03 19:40:08 cg Exp $'
 ! !