adornments submenu may be a valueHolder.
--- a/MenuItem.st Mon Jun 15 16:32:28 1998 +0200
+++ b/MenuItem.st Thu Jun 18 16:54:43 1998 +0200
@@ -329,7 +329,7 @@
findGuiResourcesIn:aResourceContainerOrApplication
"setup a resource container
"
- |lblImg|
+ |lblImg m|
self translateLabel ifTrue:[
label := ResourceRetriever findResourceLabel: label in: aResourceContainerOrApplication
@@ -340,10 +340,15 @@
lblImg findGuiResourcesIn:aResourceContainerOrApplication.
lblImg labelText notNil ifTrue: [lblImg labelText: label].
].
- adornment submenu notNil ifTrue:[
- adornment submenu findGuiResourcesIn:aResourceContainerOrApplication
+ (m := adornment submenu) notNil ifTrue:[
+ m := m value.
+ m notNil ifTrue:[
+ m findGuiResourcesIn:aResourceContainerOrApplication
+ ]
].
]
+
+ "Modified: / 18.6.1998 / 16:54:25 / cg"
! !
!MenuItem methodsFor:'converting'!
@@ -621,5 +626,5 @@
!MenuItem class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.20 1998-01-30 14:58:31 ca Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.21 1998-06-18 14:54:43 cg Exp $'
! !