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