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