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