MenuPanel.st
changeset 709 4fbc1048fe05
parent 708 245b1aa06151
child 710 4453e463ff16
--- a/MenuPanel.st	Thu Jan 29 16:49:32 1998 +0100
+++ b/MenuPanel.st	Fri Jan 30 00:02:07 1998 +0100
@@ -3011,10 +3011,18 @@
 
         (subm := subm value) isArray ifTrue:[
             subm := Menu new fromLiteralArrayEncoding:subm.
+            "/ cg: linked menus also may contain translations ...
+            subm notNil ifTrue:[
+                appl notNil ifTrue:[
+                    subm findGuiResourcesIn:appl.
+                ]                
+            ].
         ].
         self submenu:subm.
     ].
   ^ subMenu
+
+    "Modified: / 30.1.1998 / 00:00:20 / cg"
 !
 
 submenuChannel
@@ -4107,6 +4115,6 @@
 !MenuPanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.55 1998-01-29 15:49:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.56 1998-01-29 23:02:07 cg Exp $'
 ! !
 MenuPanel initialize!