--- 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 $'
! !