--- a/Menu.st	Wed Jun 29 19:18:11 2011 +0200
+++ b/Menu.st	Thu Jun 30 10:30:35 2011 +0200
@@ -215,6 +215,14 @@
 
 !Menu methodsFor:'accessing'!
 
+atMenuItemLabeled:aString putSubmenu:aMenu visible:visible
+    (self menuItemLabeled:aString)
+        subMenu:aMenu;
+        visible:visible
+
+    "Created: / 30-06-2011 / 10:30:22 / cg"
+!
+
 atNameKey:aNameKey
     "return the menuItem for the given nameKey; nil if no such item is in the menu.
      Searches in allItems (i.e. also in subMenus)"
@@ -1202,10 +1210,6 @@
 
 !Menu class methodsFor:'documentation'!
 
-version
-    ^ '$Header: /cvs/stx/stx/libview2/Menu.st,v 1.78 2011-04-19 13:16:00 cg Exp $'
-!
-
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/Menu.st,v 1.78 2011-04-19 13:16:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Menu.st,v 1.79 2011-06-30 08:30:35 cg Exp $'
 ! !