--- a/Menu.st	Sat May 17 17:13:44 2014 +0200
+++ b/Menu.st	Fri May 23 09:19:21 2014 +0200
@@ -237,6 +237,20 @@
     "Modified: / 27.10.1997 / 15:12:00 / cg"
 !
 
+atNameKey:aNameKey ifPresentDo:aBlock
+    "look for a menuItem withthe given nameKey. If one is found, aBlock is evaluated for it.
+     If not, nothing is done.
+     Searches in allItems (i.e. also in subMenus).
+     Returns the item or nil."
+
+    |item|
+
+    (item := self atNameKey:aNameKey) notNil ifTrue:[
+        aBlock value:item.
+    ].
+    ^ item
+!
+
 groupSizes
     ^ groupSizes
 !
@@ -1289,6 +1303,6 @@
 !Menu class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/Menu.st,v 1.91 2013-10-04 18:28:31 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Menu.st,v 1.92 2014-05-23 07:19:21 cg Exp $'
 ! !