ModalBox.st
changeset 3313 acf38fcda6e9
parent 3266 4db6dd90cc17
child 3328 c383ce98f22e
--- a/ModalBox.st	Tue Sep 26 17:15:56 2000 +0200
+++ b/ModalBox.st	Wed Sep 27 09:41:36 2000 +0200
@@ -594,8 +594,11 @@
     realized ifFalse:[^ self].
 
     shadowView notNil ifTrue:[shadowView unmap].
-    windowGroup notNil ifTrue:[windowGroup focusView:nil].
-    masterGroup := windowGroup previousGroup.
+    windowGroup notNil ifTrue:[
+        windowGroup focusView:nil.
+        masterGroup := windowGroup previousGroup.
+    ].
+
     exclusiveKeyboard ifTrue:[
         self forceUngrabKeyboard
     ].
@@ -898,6 +901,6 @@
 !ModalBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.71 2000-08-22 14:15:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.72 2000-09-27 07:41:36 cg Exp $'
 ! !
 ModalBox initialize!