--- a/MenuPanel.st	Sun Oct 20 13:39:52 2019 +0200
+++ b/MenuPanel.st	Sun Oct 20 15:01:08 2019 +0200
@@ -2181,6 +2181,17 @@
     ^ items notNil ifTrue:[items at:anIndex ifAbsent:nil] ifFalse:[nil]
 !
 
+itemForWhich:checkBlock
+    items notNil ifTrue:[
+        items do:[:each |
+            (checkBlock value:each) ifTrue:[^ each].
+        ]
+    ].
+    ^ nil
+
+    "Created: / 09-11-2010 / 10:05:54 / cg"
+!
+
 items
     "returns the list of items or nil.
      Warning: do not change this list - it is mine !!"