#DOCUMENTATION
class: TopView
comment/format in:
#mapped
#openIn:
#openWithExtent:
#unmapped
--- a/TopView.st Fri Mar 25 16:54:13 2016 +0100
+++ b/TopView.st Fri Mar 25 16:55:04 2016 +0100
@@ -1320,13 +1320,13 @@
openIn:aBoundaryRectangle
"set origin & extent and open.
- The given extent overrides the receivers preferredExtent.
+ The given extent overrides the receiver's preferredExtent.
Added for ST-80 compatibility"
self
- origin:aBoundaryRectangle origin;
- extent:aBoundaryRectangle extent;
- sizeFixed:true.
+ origin:aBoundaryRectangle origin;
+ extent:aBoundaryRectangle extent;
+ sizeFixed:true.
self open
"Modified: 12.2.1997 / 11:58:21 / cg"
@@ -1366,7 +1366,7 @@
openWithExtent:anExtent
"set extent and open. The given extent overrides the
- receivers preferredExtent.
+ receiver's preferredExtent.
Added for ST-80 compatibility"
self extent:anExtent; sizeFixed:true.
@@ -1386,7 +1386,7 @@
!TopView methodsFor:'window events'!
mapped
- "the recevier was mapped (i.e. deiconified);
+ "the receiver was mapped (i.e. deiconified);
look for partners and slaves."
realized := true.
@@ -1398,34 +1398,34 @@
self masterSlaveMessage:#remap inGroup:windowGroup.
self isModal ifTrue:[
- "take it away from any popup menu possibly still active"
+ "take it away from any popup menu possibly still active"
- self forceUngrabKeyboard.
- self forceUngrabPointer.
- "
- get the focus
- "
- self getKeyboardFocus.
- self enableEnterLeaveEvents
+ self forceUngrabKeyboard.
+ self forceUngrabPointer.
+ "
+ get the focus
+ "
+ self getKeyboardFocus.
+ self enableEnterLeaveEvents
] ifFalse:[
- "
- ask for the focus - this avoids having to click on the
- view with WM's which need an explicit click.
- Q: is this a good idea ?
- "
- TakeFocusWhenMapped == true ifTrue:[
- self getKeyboardFocus.
- ]
+ "
+ ask for the focus - this avoids having to click on the
+ view with WM's which need an explicit click.
+ Q: is this a good idea ?
+ "
+ TakeFocusWhenMapped == true ifTrue:[
+ self getKeyboardFocus.
+ ]
].
self graphicsDevice isWindowsPlatform ifTrue:[
- self raise
+ self raise
].
false "self isScreenDialog" ifTrue:[
- self setForegroundWindow.
- self activate.
+ self setForegroundWindow.
+ self activate.
].
subViews notNil ifTrue:[
- subViews do:[:eachSubView | eachSubView topViewWasMapped ].
+ subViews do:[:eachSubView | eachSubView topViewWasMapped ].
]
"Modified: / 09-12-2010 / 18:13:20 / cg"
@@ -1452,19 +1452,19 @@
!
unmapped
- "the recevier was unmapped (i.e. iconified);
+ "the receiver was unmapped (i.e. iconified);
look for partners and slaves."
|r|
(windowGroup notNil and:[windowGroup isModal]) ifTrue:[
- "keep the realized flag true (to avoid exiting the modal event loop).
- Consider this a kludge."
- self markAsUnmappedModalBox.
- r := realized.
+ "keep the realized flag true (to avoid exiting the modal event loop).
+ Consider this a kludge."
+ self markAsUnmappedModalBox.
+ r := realized.
] ifFalse:[
- self unmarkAsUnmappedModalBox.
- r := realized := false.
+ self unmarkAsUnmappedModalBox.
+ r := realized := false.
].
super unmapped.
realized := r.