--- a/Menu.st	Thu Jul 17 11:56:06 1997 +0200
+++ b/Menu.st	Thu Jul 17 12:06:34 1997 +0200
@@ -354,6 +354,17 @@
 
 !Menu methodsFor:'enumerating'!
 
+allItemsDo:aOneArgBlock
+    "evaluate block on each item and submenu items
+    "
+    self itemsDo:[:anItem|
+        aOneArgBlock value:anItem.
+        anItem submenu notNil ifTrue:[
+            anItem submenu itemsDo:aOneArgBlock
+        ]
+    ]
+!
+
 itemsDo:aOneArgBlock
     "evaluate the block for each item in the current menu
     "
@@ -450,5 +461,5 @@
 !Menu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Menu.st,v 1.14 1997-06-26 05:54:49 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Menu.st,v 1.15 1997-07-17 10:06:34 ca Exp $'
 ! !