# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1285158050 -7200
# Node ID 2d1ab34d18366fe87a71bbd16461ef9b297bfc57
# Parent  e6c70eef987cb980404dbfbed5bf21051bd32515
+submenuProvider

diff -r e6c70eef987c -r 2d1ab34d1836 MenuItem.st
--- 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 $'
 ! !