equal
deleted
inserted
replaced
32 |
32 |
33 PullDownMenu comment:' |
33 PullDownMenu comment:' |
34 COPYRIGHT (c) 1989 by Claus Gittinger |
34 COPYRIGHT (c) 1989 by Claus Gittinger |
35 All Rights Reserved |
35 All Rights Reserved |
36 |
36 |
37 $Header: /cvs/stx/stx/libwidg/PullDownMenu.st,v 1.22 1995-08-27 00:34:39 claus Exp $ |
37 $Header: /cvs/stx/stx/libwidg/PullDownMenu.st,v 1.23 1995-09-07 12:45:45 claus Exp $ |
38 '! |
38 '! |
39 |
39 |
40 !PullDownMenu class methodsFor:'documentation'! |
40 !PullDownMenu class methodsFor:'documentation'! |
41 |
41 |
42 copyright |
42 copyright |
53 " |
53 " |
54 ! |
54 ! |
55 |
55 |
56 version |
56 version |
57 " |
57 " |
58 $Header: /cvs/stx/stx/libwidg/PullDownMenu.st,v 1.22 1995-08-27 00:34:39 claus Exp $ |
58 $Header: /cvs/stx/stx/libwidg/PullDownMenu.st,v 1.23 1995-09-07 12:45:45 claus Exp $ |
59 " |
59 " |
60 ! |
60 ! |
61 |
61 |
62 documentation |
62 documentation |
63 " |
63 " |
1053 self hideActiveMenu. |
1053 self hideActiveMenu. |
1054 super showNoFocus |
1054 super showNoFocus |
1055 ! |
1055 ! |
1056 |
1056 |
1057 keyPress:key x:x y:y |
1057 keyPress:key x:x y:y |
|
1058 <resource: #keyboard (#CursorLeft #CursorRight #MenuSelect)> |
|
1059 |
1058 |index m sel| |
1060 |index m sel| |
1059 |
1061 |
1060 " |
1062 " |
1061 handle CursorLeft/Right for non-mouse operation |
1063 handle CursorLeft/Right for non-mouse operation |
1062 (for example, if it has the explicit focus) |
1064 (for example, if it has the explicit focus) |