--- 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 $'
! !