added:
#beUndecoratedResizable
#windowType:
changed: #isMDIClientView
--- 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!