--- a/MenuItem.st	Sat Aug 31 13:58:04 2013 +0200
+++ b/MenuItem.st	Sat Aug 31 19:00:52 2013 +0200
@@ -114,6 +114,14 @@
     "Created: / 09-09-2012 / 13:23:05 / cg"
 !
 
+label:labelString submenuChannel:aSymbolOrValueHolder
+    "create and return a new menuItem, given its label and value"
+
+    ^ (self new) 
+        label:labelString submenuChannel:aSymbolOrValueHolder; 
+        yourself
+!
+
 label:labelString value:selectorOrValue
     <resource: #obsolete>
     "create and return a new menuItem, given its label and value"
@@ -457,6 +465,31 @@
     keepLinkedMenu := aBoolean ? false.
 !
 
+label:aString icon:anImage
+    self label:aString.
+    self resourceRetriever: (ResourceRetriever icon:anImage string:'')
+!
+
+label:labelString itemValue:selectorOrBlock
+    label := labelString.
+    itemValue := selectorOrBlock
+
+    "Created: / 09-09-2012 / 13:18:34 / cg"
+!
+
+label:labelString itemValue:selectorOrBlock argument:something
+    label := labelString.
+    itemValue := selectorOrBlock.
+    argument := something
+
+    "Created: / 09-09-2012 / 13:19:36 / cg"
+!
+
+label:labelString submenuChannel:aSymbolOrValueHolder
+    label := labelString.
+    submenuChannel := aSymbolOrValueHolder
+!
+
 labelImage
     ^ labelImage
 !
@@ -754,26 +787,6 @@
     "Created: 25.2.1997 / 19:55:16 / cg"
 !
 
-label:aString icon:anImage
-    self label:aString.
-    self resourceRetriever: (ResourceRetriever icon:anImage string:'')
-!
-
-label:labelString itemValue:selectorOrBlock
-    label := labelString.
-    itemValue := selectorOrBlock
-
-    "Created: / 09-09-2012 / 13:18:34 / cg"
-!
-
-label:labelString itemValue:selectorOrBlock argument:something
-    label := labelString.
-    itemValue := selectorOrBlock.
-    argument := something
-
-    "Created: / 09-09-2012 / 13:19:36 / cg"
-!
-
 startGroup
     "start group #left #right #conditionalRight ... or nil
      at the moment only #right and #conditionalRight are implemented"
@@ -1126,10 +1139,10 @@
 !MenuItem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.103 2013-08-23 18:20:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.104 2013-08-31 17:00:52 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.103 2013-08-23 18:20:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.104 2013-08-31 17:00:52 cg Exp $'
 ! !