--- a/Menu.st	Thu Jun 18 21:42:19 1998 +0200
+++ b/Menu.st	Fri Jun 19 00:58:02 1998 +0200
@@ -178,7 +178,8 @@
 
     ^ items collect:[:anItem | anItem label]
 
-    "Created: 25.2.1997 / 19:47:53 / cg"
+    "Created: / 25.2.1997 / 19:47:53 / cg"
+    "Modified: / 18.6.1998 / 23:58:55 / cg"
 !
 
 lastItem
@@ -594,15 +595,15 @@
     "evaluate block on each item and submenu items
     "
     self itemsDo:[:anItem|
-	|sub|
+        |sub|
 
-	aOneArgBlock value:anItem.
-	(sub := anItem submenu value) notNil ifTrue:[
-	    sub allItemsDo:aOneArgBlock
-	]
+        aOneArgBlock value:anItem.
+        (sub := anItem submenu) notNil ifTrue:[
+            sub allItemsDo:aOneArgBlock
+        ]
     ]
 
-    "Modified: / 27.10.1997 / 15:09:08 / cg"
+    "Modified: / 19.6.1998 / 00:34:53 / cg"
 !
 
 detectItem:aBlock
@@ -643,23 +644,23 @@
     |item|
 
     items notNil ifTrue:[
-	items do:[:anItem|
-	    |sub|
+        items do:[:anItem|
+            |sub|
 
-	    (aOneArgBlock value:anItem) ifTrue:[
-		^ anItem
-	    ].
-	    (sub := anItem submenu value) notNil ifTrue:[
-		item := sub menuAndSubmenusDetectItem:aOneArgBlock.
-		item notNil ifTrue:[
-		    ^ item
-		]
-	    ]
-	]
+            (aOneArgBlock value:anItem) ifTrue:[
+                ^ anItem
+            ].
+            (sub := anItem submenu) notNil ifTrue:[
+                item := sub menuAndSubmenusDetectItem:aOneArgBlock.
+                item notNil ifTrue:[
+                    ^ item
+                ]
+            ]
+        ]
     ].
     ^ nil
 
-    "Modified: / 27.10.1997 / 15:09:43 / cg"
+    "Modified: / 19.6.1998 / 00:35:00 / cg"
 ! !
 
 !Menu methodsFor:'kludged fixes'!
@@ -839,5 +840,5 @@
 !Menu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Menu.st,v 1.31 1998-05-28 13:23:08 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Menu.st,v 1.32 1998-06-18 22:58:02 cg Exp $'
 ! !