--- a/ModalBox.st Mon Mar 20 13:27:08 1995 +0100
+++ b/ModalBox.st Thu Mar 23 17:54:10 1995 +0100
@@ -21,7 +21,7 @@
COPYRIGHT (c) 1990 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.17 1995-03-06 19:22:06 claus Exp $
+$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.18 1995-03-23 16:52:28 claus Exp $
'!
!ModalBox class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
version
"
-$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.17 1995-03-06 19:22:06 claus Exp $
+$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.18 1995-03-23 16:52:28 claus Exp $
"
!
@@ -539,6 +539,7 @@
shadowView notNil ifTrue:[shadowView unrealize].
windowGroup notNil ifTrue:[windowGroup focusView:nil].
+ self leaveControl.
self unrealize.
device synchronizeOutput.
@@ -554,7 +555,6 @@
(Delay forSeconds:0.1) wait.
p processExposeEvents
].
- self leaveControl.
!
autoHideAfter:seconds with:anAction