--- a/PopUpMenu.st	Thu Mar 07 13:38:02 1996 +0100
+++ b/PopUpMenu.st	Thu Mar 07 13:57:36 1996 +0100
@@ -950,6 +950,8 @@
 !
 
 keyPress:key x:x y:y
+    <resource: #keyboard (#Tab)>
+
     (x isNil or:[x == 0]) ifTrue:[
         "/ already redelegated
         ^ self
@@ -962,7 +964,7 @@
         menuView keyPress:key x:x y:y.
     ].
 
-    "Modified: 4.3.1996 / 23:26:31 / cg"
+    "Modified: 7.3.1996 / 13:17:54 / cg"
 !
 
 mapped
@@ -1069,5 +1071,5 @@
 !PopUpMenu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.40 1996-03-04 22:28:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.41 1996-03-07 12:56:44 cg Exp $'
 ! !