Menu.st
changeset 2867 b745ee0a04ac
parent 2864 f90017f2da66
child 2908 e21010b76553
--- a/Menu.st	Wed Sep 22 14:20:50 2010 +0200
+++ b/Menu.st	Wed Sep 22 14:21:41 2010 +0200
@@ -516,7 +516,9 @@
     resolvedItems := OrderedCollection new.
 
     items do:[:anItem |
-        anItem isMenuSlice ifTrue:[ |resItems|
+        anItem isMenuSlice ifTrue:[ 
+            |resItems|
+
             rcv := aResourceContainerOrApplication.
             [rcv notNil and:[resItems isNil]] whileTrue:[
                 resItems := anItem resolveSliceMenuItemsIn:rcv
@@ -537,7 +539,7 @@
     ].
     items := resolvedItems.
 
-    "Modified: / 26-10-2006 / 16:45:14 / cg"
+    "Modified: / 22-09-2010 / 13:34:38 / cg"
 ! !
 
 !Menu methodsFor:'adding & removing'!
@@ -669,7 +671,8 @@
 
     |menuView itemsShown|
 
-    itemsShown := items select:[:each |
+    itemsShown := items 
+        select:[:each |
             |visibilityInItem|
 
             visibilityInItem := each isVisible.
@@ -716,6 +719,8 @@
     menuView actions:(itemsShown collect:[:each | [ receiver perform:each value ]]).
 
     ^ PopUpMenu forMenu:menuView
+
+    "Modified: / 22-09-2010 / 13:52:06 / cg"
 !
 
 fromLiteralArrayEncoding:aLiteralEncodedArray
@@ -1182,9 +1187,9 @@
 !Menu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Menu.st,v 1.76 2010-08-08 12:43:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Menu.st,v 1.77 2010-09-22 12:21:41 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/Menu.st,v 1.76 2010-08-08 12:43:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Menu.st,v 1.77 2010-09-22 12:21:41 cg Exp $'
 ! !