--- a/PopUpMenu.st	Fri Feb 09 22:52:53 1996 +0100
+++ b/PopUpMenu.st	Fri Feb 09 22:53:50 1996 +0100
@@ -854,7 +854,14 @@
 
 keyPress:key x:x y:y
 "/    hideOnRelease := true.
-    menuView keyPress:key x:x y:y.
+    key == #Tab ifTrue:[
+        self hide.
+        super keyPress:key x:x y:y.
+    ] ifFalse:[
+        menuView keyPress:key x:x y:y.
+    ].
+
+    "Modified: 9.2.1996 / 22:07:06 / cg"
 !
 
 mapped
@@ -961,5 +968,5 @@
 !PopUpMenu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.33 1996-02-09 18:59:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.34 1996-02-09 21:53:50 cg Exp $'
 ! !