translate labels in the test-menu.
--- a/MenuEditor.st Fri May 22 20:29:51 1998 +0200
+++ b/MenuEditor.st Fri May 22 20:36:12 1998 +0200
@@ -1604,16 +1604,21 @@
!MenuEditor methodsFor:'accessing'!
submenuTest
- "return submenu assigned to item test"
-
- |menu|
+ "return the submenu assigned to item test;
+ this is dynamically constructed, to reflect the current
+ edited menu."
+
+ |menu cls|
(menu := self treeView asMenu) allItemsDo:
[:anItem|
anItem value:nil.
anItem enabled:true.
].
- ^menu
+
+ cls := self resolveName:specClass.
+ menu findGuiResourcesIn:cls.
+ ^ menu
!
useHelpTool: aHelpTool