PopUpMenu.st
changeset 1403 ddc59498d1c3
parent 1354 c260c896ea66
child 1404 1085b9e9fb09
--- a/PopUpMenu.st	Sat Nov 15 15:38:36 1997 +0100
+++ b/PopUpMenu.st	Thu Nov 20 19:02:23 1997 +0100
@@ -1187,10 +1187,10 @@
 keyPress:key x:x y:y
     <resource: #keyboard (#Tab)>
 
-    (x isNil or:[x == 0]) ifTrue:[
-        "/ already redelegated
-        ^ self
-    ].
+"/    (x isNil or:[x == 0]) ifTrue:[
+"/        "/ already redelegated
+"/        ^ self
+"/    ].
 
     key == #Tab ifTrue:[
         self hide.
@@ -1328,5 +1328,5 @@
 !PopUpMenu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.67 1997-10-21 18:12:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.68 1997-11-20 18:02:23 cg Exp $'
 ! !