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