diff -r ce306c6c6bc4 -r c101043c91f7 PullDownMenu.st
--- a/PullDownMenu.st	Tue Mar 05 17:36:46 1996 +0100
+++ b/PullDownMenu.st	Tue Mar 05 17:42:52 1996 +0100
@@ -970,16 +970,19 @@
     |m|
 
     activeMenuNumber notNil ifTrue:[
-	(m := menus at:activeMenuNumber) notNil ifTrue:[
-	    m beInvisible.
-	].
-	self unHighlightActiveTitle.
-	activeMenuNumber := nil
+        (m := menus at:activeMenuNumber) notNil ifTrue:[
+            m beInvisible.
+        ].
+        self unHighlightActiveTitle.
+        activeMenuNumber := nil
     ].
     aBoolean ifTrue:[
-	device ungrabPointer. 
-	self cursor:Cursor normal
+        device ungrabKeyboard.
+        device ungrabPointer. 
+        self cursor:Cursor normal
     ].
+
+    "Modified: 5.3.1996 / 17:41:46 / cg"
 !
 
 pullMenu:aNumber
@@ -1023,11 +1026,11 @@
 regainControl
     keepMenu ifTrue:[
         device grabPointerInView:self.
-device grabKeyboardInView:self.
+        device grabKeyboardInView:self.
         self cursor:Cursor upRightArrow
     ]
 
-    "Modified: 1.3.1996 / 13:20:25 / cg"
+    "Modified: 5.3.1996 / 17:41:53 / cg"
 ! !
 
 !PullDownMenu methodsFor:'initialize / release'!
@@ -1338,5 +1341,5 @@
 !PullDownMenu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/PullDownMenu.st,v 1.37 1996-03-04 22:29:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/PullDownMenu.st,v 1.38 1996-03-05 16:42:52 cg Exp $'
 ! !