adornments submenu may be a valueHolder.
authorClaus Gittinger <cg@exept.de>
Thu, 18 Jun 1998 16:54:43 +0200
changeset 960 fee5a1a50374
parent 959 e9ce2b7f8397
child 961 babdad518c1d
adornments submenu may be a valueHolder.
MenuItem.st
--- 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 $'
 ! !