equal
deleted
inserted
replaced
917 ]. |
917 ]. |
918 self pullMenu:index. |
918 self pullMenu:index. |
919 ^ self |
919 ^ self |
920 ]. |
920 ]. |
921 |
921 |
922 activeMenuNumber isNil ifTrue:[^self]. |
922 activeMenuNumber isNil ifTrue:[^ super keyPress:key x:x y:y]. |
923 |
923 |
924 " |
924 " |
925 Return, space or the (virtual) MenuSelect key trigger |
925 Return, space or the (virtual) MenuSelect key trigger |
926 a menu entry (for non-submenu entries). |
926 a menu entry (for non-submenu entries). |
927 Otherwise, if we have a submenu open, |
927 Otherwise, if we have a submenu open, |
1339 ! ! |
1339 ! ! |
1340 |
1340 |
1341 !PullDownMenu class methodsFor:'documentation'! |
1341 !PullDownMenu class methodsFor:'documentation'! |
1342 |
1342 |
1343 version |
1343 version |
1344 ^ '$Header: /cvs/stx/stx/libwidg/PullDownMenu.st,v 1.39 1996-03-06 17:07:50 cg Exp $' |
1344 ^ '$Header: /cvs/stx/stx/libwidg/PullDownMenu.st,v 1.40 1996-03-07 09:33:53 ca Exp $' |
1345 ! ! |
1345 ! ! |