--- 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 $'
! !