TopView.st
changeset 8485 17e245765f1d
parent 8484 03f94160fb5d
child 8489 f10b9fff9139
--- a/TopView.st	Tue Sep 25 10:38:44 2018 +0200
+++ b/TopView.st	Thu Sep 27 16:50:24 2018 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1995 by Claus Gittinger
 	      All Rights Reserved
@@ -860,45 +862,6 @@
 
 !TopView methodsFor:'misc'!
 
-raiseDeiconified
-    "deiconify & bring to front"
-
-    self isCollapsed ifTrue:[
-"/        self unmap.
-	self realize.
-    ].
-    self raise
-
-    "
-     Transcript topView raiseDeiconified
-    "
-
-    "Modified: 3.5.1996 / 23:49:36 / stefan"
-!
-
-waitUntilClosed
-    "wait until the receiver has been closed.
-     Can be used to synchronize multiple-window applications,
-     and (especially) to wait until an application session is finished
-     when invoking commands with the rDoit mechanism"
-
-    [self drawableId isNil] whileFalse:[
-	Delay waitForSeconds:0.1.
-    ].
-
-    "asynchronous:
-
-     EditTextView open
-    "
-
-    "synchronous:
-
-     EditTextView open topView waitUntilClosed
-    "
-
-    "Modified: / 20.5.1998 / 18:03:37 / cg"
-!
-
 withCursor:aCursor do:aBlock
     "evaluate aBlock while showing aCursor in all my views.
      Return the value as returned by aBlock."
@@ -1116,27 +1079,6 @@
     ^ super windowStyle
 ! !
 
-!TopView methodsFor:'realization'!
-
-openModal
-    "added bell to wake up user"
-
-    (self beepWhenOpening) ifTrue:[
-	self beep.
-    ].
-    super openModal
-
-    "
-     self warn:'hello'
-     self information:'hello'
-     ModalBox new openModal
-     WarningBox new openModal
-     InfoBox new openModal
-    "
-
-    "Modified: 28.5.1996 / 16:59:01 / cg"
-! !
-
 !TopView methodsFor:'show & hide'!
 
 activate
@@ -1240,6 +1182,25 @@
     "Created: 24.7.1997 / 12:48:21 / cg"
 !
 
+openModal
+    "added bell to wake up user"
+
+    (self beepWhenOpening) ifTrue:[
+	self beep.
+    ].
+    super openModal
+
+    "
+     self warn:'hello'
+     self information:'hello'
+     ModalBox new openModal
+     WarningBox new openModal
+     InfoBox new openModal
+    "
+
+    "Modified: 28.5.1996 / 16:59:01 / cg"
+!
+
 positionOffset
     "return the delta, by which the box should be
      displaced from the mouse pointer.
@@ -1252,6 +1213,23 @@
     "Created: 28.2.1997 / 22:56:34 / cg"
 !
 
+raiseDeiconified
+    "deiconify & bring to front"
+
+    self isCollapsed ifTrue:[
+        "/ self unmap.
+        self realize.
+    ].
+    self raise
+
+    "
+     Transcript topView raiseDeiconified
+    "
+
+    "Modified: / 03-05-1996 / 23:49:36 / stefan"
+    "Modified (format): / 27-09-2018 / 16:41:56 / Claus Gittinger"
+!
+
 setForegroundWindow
     "make a window the foreground window (so raise and activate it).
      Under Win 98/Me/XP/2000 the window is not raised/activated, if a window from
@@ -1267,6 +1245,29 @@
      Transcript topView raise
      Transcript topView setForegroundWindow
     "
+!
+
+waitUntilClosed
+    "wait until the receiver has been closed.
+     Can be used to synchronize multiple-window applications,
+     and (especially) to wait until an application session is finished
+     when invoking commands with the rDoit mechanism"
+
+    [self drawableId isNil] whileFalse:[
+	Delay waitForSeconds:0.1.
+    ].
+
+    "asynchronous:
+
+     EditTextView open
+    "
+
+    "synchronous:
+
+     EditTextView open topView waitUntilClosed
+    "
+
+    "Modified: / 20.5.1998 / 18:03:37 / cg"
 ! !
 
 !TopView methodsFor:'startup'!