--- a/MenuItem.st Wed Sep 08 17:28:25 2010 +0200
+++ b/MenuItem.st Wed Sep 22 14:20:50 2010 +0200
@@ -14,11 +14,11 @@
Object subclass:#MenuItem
instanceVariableNames:'activeHelpKey enabled label itemValue value nameKey
translateLabel isButton startGroup isVisible hideMenuOnActivated
- triggerOnDown indication submenu submenuChannel shortcutKey
- labelImage accessCharacterPosition argument choice choiceValue
- font auxValue showBusyCursorWhilePerforming keepLinkedMenu
- horizontalLayout sendToOriginator ignoreMnemonicKeys
- ignoreShortcutKeys isMenuSlice uuid'
+ triggerOnDown indication submenu submenuChannel submenuProvider
+ shortcutKey labelImage accessCharacterPosition argument choice
+ choiceValue font auxValue showBusyCursorWhilePerforming
+ keepLinkedMenu horizontalLayout sendToOriginator
+ ignoreMnemonicKeys ignoreShortcutKeys isMenuSlice uuid'
classVariableNames:''
poolDictionaries:''
category:'Views-Support'
@@ -468,6 +468,26 @@
submenuChannel := something.
!
+submenuProvider
+ "useful if a sub-menu is plugged in from another application (i.e. when
+ a submenu is fetched via a channel AND the top-menus application cannot provide
+ it"
+
+ ^ submenuProvider
+
+ "Created: / 22-09-2010 / 13:55:55 / cg"
+!
+
+submenuProvider:something
+ "useful if a sub-menu is plugged in from another application (i.e. when
+ a submenu is fetched via a channel AND the top-menus application cannot provide
+ it"
+
+ submenuProvider := something.
+
+ "Created: / 22-09-2010 / 13:55:40 / cg"
+!
+
uuid
^ uuid
@@ -957,9 +977,9 @@
!MenuItem class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.89 2009-12-04 13:34:12 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.90 2010-09-22 12:20:50 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.89 2009-12-04 13:34:12 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.90 2010-09-22 12:20:50 cg Exp $'
! !