--- a/MenuItem.st	Thu Jul 17 12:06:34 1997 +0200
+++ b/MenuItem.st	Thu Jul 17 12:07:02 1997 +0200
@@ -6,8 +6,8 @@
 !
 
 Object subclass:#MenuItemAdornment
-	instanceVariableNames:'color indication submenu shortcutKey labelText labelImage
-		accessCharacterPosition'
+	instanceVariableNames:'color indication submenu submenuChannel shortcutKey labelText
+		labelImage accessCharacterPosition'
 	classVariableNames:''
 	poolDictionaries:''
 	privateIn:MenuItem
@@ -151,6 +151,17 @@
     "Created: 25.2.1997 / 20:56:20 / cg"
 !
 
+submenuChannel
+    adornment notNil ifTrue:[
+        ^ adornment submenuChannel
+    ].
+    ^ nil
+!
+
+submenuChannel:something
+    self adornment submenuChannel:something
+!
+
 value
     ^ value
 
@@ -293,11 +304,15 @@
         ].
         (something := self indication) notNil ifTrue:[
             coll add:#indication: ; add:(something literalArrayEncoding)
-        ]
-    ].
+        ].
 
-    self hasSubmenu ifTrue:[
-        coll add:#submenu:; add:(self submenu literalArrayEncoding)
+        (something := self submenuChannel) notNil ifTrue:[
+            coll add:#submenuChannel: ; add:(something literalArrayEncoding)
+        ].
+
+        self hasSubmenu ifTrue:[
+            coll add:#submenu:; add:(self submenu literalArrayEncoding)
+        ].
     ].
 
   ^ coll asArray
@@ -444,10 +459,22 @@
     submenu := something.
 
     "Created: 25.2.1997 / 20:59:28 / cg"
+!
+
+submenuChannel
+    "get the submenuChannel or nil
+    "
+    ^ submenuChannel
+!
+
+submenuChannel:something
+    "set the submenuChannel or nil
+    "
+    submenuChannel := something.
 ! !
 
 !MenuItem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.14 1997-07-05 14:53:36 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.15 1997-07-17 10:07:02 ca Exp $'
 ! !