MenuPanel.st
changeset 2579 114e5cf689a2
parent 2574 366e5807711f
child 2603 edb5408fd3e7
--- a/MenuPanel.st	Thu Oct 30 06:28:38 2003 +0100
+++ b/MenuPanel.st	Tue Nov 11 15:24:51 2003 +0100
@@ -3447,11 +3447,10 @@
     "
     super ungrabKeyboard.
 
-    previousKeyboardGrab notNil ifTrue:[
-	device grabKeyboardInView:previousKeyboardGrab.
-    ].
-
-
+    (previousKeyboardGrab notNil
+    and:[ previousKeyboardGrab realized ]) ifTrue:[
+        device grabKeyboardInView:previousKeyboardGrab.
+    ].
 !
 
 ungrabMouseAndKeyboard
@@ -3466,8 +3465,9 @@
     "
     super ungrabPointer.
 
-    previousPointerGrab notNil ifTrue:[
-	device grabPointerInView:previousPointerGrab.
+    (previousPointerGrab notNil
+    and:[ previousPointerGrab realized ]) ifTrue:[
+        device grabPointerInView:previousPointerGrab.
     ].
 
 
@@ -7395,7 +7395,7 @@
 !MenuPanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.372 2003-10-25 13:04:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.373 2003-11-11 14:24:51 james Exp $'
 ! !
 
 MenuPanel initialize!