equal
deleted
inserted
replaced
12 "{ Package: 'stx:libview2' }" |
12 "{ Package: 'stx:libview2' }" |
13 |
13 |
14 Object subclass:#MenuItem |
14 Object subclass:#MenuItem |
15 instanceVariableNames:'activeHelpKey enabled label itemValue value nameKey |
15 instanceVariableNames:'activeHelpKey enabled label itemValue value nameKey |
16 translateLabel isButton startGroup isVisible hideMenuOnActivated |
16 translateLabel isButton startGroup isVisible hideMenuOnActivated |
17 triggerOnDown indication submenu submenuChannel shortcutKey |
17 triggerOnDown indication submenu submenuChannel submenuProvider |
18 labelImage accessCharacterPosition argument choice choiceValue |
18 shortcutKey labelImage accessCharacterPosition argument choice |
19 font auxValue showBusyCursorWhilePerforming keepLinkedMenu |
19 choiceValue font auxValue showBusyCursorWhilePerforming |
20 horizontalLayout sendToOriginator ignoreMnemonicKeys |
20 keepLinkedMenu horizontalLayout sendToOriginator |
21 ignoreShortcutKeys isMenuSlice uuid' |
21 ignoreMnemonicKeys ignoreShortcutKeys isMenuSlice uuid' |
22 classVariableNames:'' |
22 classVariableNames:'' |
23 poolDictionaries:'' |
23 poolDictionaries:'' |
24 category:'Views-Support' |
24 category:'Views-Support' |
25 ! |
25 ! |
26 |
26 |
464 |
464 |
465 submenuChannel:something |
465 submenuChannel:something |
466 "set the submenuChannel or nil" |
466 "set the submenuChannel or nil" |
467 |
467 |
468 submenuChannel := something. |
468 submenuChannel := something. |
|
469 ! |
|
470 |
|
471 submenuProvider |
|
472 "useful if a sub-menu is plugged in from another application (i.e. when |
|
473 a submenu is fetched via a channel AND the top-menus application cannot provide |
|
474 it" |
|
475 |
|
476 ^ submenuProvider |
|
477 |
|
478 "Created: / 22-09-2010 / 13:55:55 / cg" |
|
479 ! |
|
480 |
|
481 submenuProvider:something |
|
482 "useful if a sub-menu is plugged in from another application (i.e. when |
|
483 a submenu is fetched via a channel AND the top-menus application cannot provide |
|
484 it" |
|
485 |
|
486 submenuProvider := something. |
|
487 |
|
488 "Created: / 22-09-2010 / 13:55:40 / cg" |
469 ! |
489 ! |
470 |
490 |
471 uuid |
491 uuid |
472 |
492 |
473 ^ uuid |
493 ^ uuid |
955 ! ! |
975 ! ! |
956 |
976 |
957 !MenuItem class methodsFor:'documentation'! |
977 !MenuItem class methodsFor:'documentation'! |
958 |
978 |
959 version |
979 version |
960 ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.89 2009-12-04 13:34:12 cg Exp $' |
980 ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.90 2010-09-22 12:20:50 cg Exp $' |
961 ! |
981 ! |
962 |
982 |
963 version_CVS |
983 version_CVS |
964 ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.89 2009-12-04 13:34:12 cg Exp $' |
984 ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.90 2010-09-22 12:20:50 cg Exp $' |
965 ! ! |
985 ! ! |