--- a/PopUpMenu.st	Thu Nov 20 19:02:23 1997 +0100
+++ b/PopUpMenu.st	Thu Nov 20 19:32:27 1997 +0100
@@ -1263,6 +1263,15 @@
 	^ aMessage sendTo:menuView
     ].
     ^ super doesNotUnderstand:aMessage
+!
+
+regainControl
+    device ungrabPointer.
+    device ungrabKeyboard.
+    device grabPointerInView:self.
+    device grabKeyboardInView:self.
+
+    "Modified: 20.11.1997 / 00:32:32 / cg"
 ! !
 
 !PopUpMenu methodsFor:'private accessing'!
@@ -1328,5 +1337,5 @@
 !PopUpMenu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.68 1997-11-20 18:02:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.69 1997-11-20 18:32:27 cg Exp $'
 ! !