--- a/ModalBox.st	Fri Oct 27 15:14:57 2000 +0200
+++ b/ModalBox.st	Fri Oct 27 15:16:08 2000 +0200
@@ -637,26 +637,26 @@
 
     super mapped.
 
-    "take it away from any popup menu possibly still active"
-
-    self forceUngrabKeyboard.
-    self forceUngrabPointer.
-
+"/    "take it away from any popup menu possibly still active"
+"/
+"/    self forceUngrabKeyboard.
+"/    self forceUngrabPointer.
+"/
     "
      if I am a super-modal box, take the keyboard
     "
     exclusiveKeyboard ifTrue:[
+        self forceUngrabKeyboard.
         self grabKeyboard.
     ].
-
-"/    UseTransientViews ifFalse:[
-        "
-         get the focus
-        "
-        self getKeyboardFocus.
-        self enableEnterLeaveEvents
-"/    ]
-!
+"/
+"/"/    UseTransientViews ifFalse:[
+"/        "
+"/         get the focus
+"/        "
+"/        self getKeyboardFocus.
+"/        self enableEnterLeaveEvents
+"/"/    ]!
 
 open
     "default for modalboxes is to come up modal at the pointer position"
@@ -901,6 +901,6 @@
 !ModalBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.73 2000-10-09 15:32:08 src Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.74 2000-10-27 13:16:08 ca Exp $'
 ! !
 ModalBox initialize!