#DOCUMENTATION
authorClaus Gittinger <cg@exept.de>
Fri, 25 Mar 2016 16:55:04 +0100
changeset 7233 65e40c2485b5
parent 7232 316a6bdc26a7
child 7234 335f9a3179bd
#DOCUMENTATION class: TopView comment/format in: #mapped #openIn: #openWithExtent: #unmapped
TopView.st
--- 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.