# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 895862172 -7200
# Node ID 0001a9185d99a253ae85eb07cb231a73fae14a7b
# Parent  88f7f0ab76235506026c950e667e3936d19ce277
translate labels in the test-menu.

diff -r 88f7f0ab7623 -r 0001a9185d99 MenuEditor.st
--- 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