--- a/ToolApplicationModel.st	Mon May 11 22:56:57 1998 +0200
+++ b/ToolApplicationModel.st	Tue May 19 19:18:32 1998 +0200
@@ -1193,14 +1193,23 @@
     "returns a history submenu"
 
     |menu|
+
     menu := Menu new receiver: self.
     (self history collect: [:histEntry| histEntry value]) asSet asOrderedCollection do:
     [:historyEntryType|    
         menu addItemGroup: ((self history select: [:histEntry| histEntry value = historyEntryType]) collect: [:histEntry|  MenuItem new label: histEntry key printString; value: histEntry value; argument: histEntry key; activeHelpKey: #historyMenuItem]).
     ]. 
-    menu addItem: (MenuItem new label: 'Empty History'; value: #emptyHistory; activeHelpKey: #historyEmptyMenu).
 
+    menu addItem: (MenuItem new 
+                        label: 'Empty History'; 
+                        value: #emptyHistory; 
+                        activeHelpKey: #historyEmptyMenu;
+                        translateLabel:true).
+
+    menu findGuiResourcesIn:self.
     ^menu
+
+    "Modified: / 19.5.1998 / 19:17:34 / cg"
 !
 
 removeFromHistory: aHistoryEntry
@@ -1403,5 +1412,5 @@
 !ToolApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.54 1998-04-25 22:19:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.55 1998-05-19 17:18:32 cg Exp $'
 ! !