--- a/Menu.st	Sat Apr 16 22:32:59 2011 +0200
+++ b/Menu.st	Tue Apr 19 15:16:00 2011 +0200
@@ -333,6 +333,22 @@
     "Modified: / 27.10.1997 / 15:23:33 / cg"
 !
 
+menuItemWithArgument:aValue
+    "return the menuItem for the given value; nil if no such item is in the menu.
+     Searches all items (i.e. also submenu items)"
+
+    self allItemsDo:[:anItem|
+                |l|
+
+                (anItem argument = aValue) ifTrue:[
+                    ^ anItem
+                ].
+             ].
+    ^ nil
+
+    "Created: / 19-04-2011 / 14:42:18 / cg"
+!
+
 menuItemWithValue:aValue
     "return the menuItem for the given value; nil if no such item is in the menu.
      Searches all items (i.e. also submenu items)"
@@ -1187,9 +1203,9 @@
 !Menu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Menu.st,v 1.77 2010-09-22 12:21:41 cg Exp $'
+    ^ '$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.77 2010-09-22 12:21:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Menu.st,v 1.78 2011-04-19 13:16:00 cg Exp $'
 ! !