--- a/ToolApplicationModel.st Sun Sep 09 15:14:21 2012 +0200
+++ b/ToolApplicationModel.st Sun Sep 09 21:05:30 2012 +0200
@@ -1416,14 +1416,13 @@
anyItem := true.
MenuItem new
label: histEntry printStringInMenu;
- value: #loadFromHistoryEntry: ;
- argument: histEntry;
+ itemValue: #loadFromHistoryEntry: argument: histEntry;
activeHelpKey: #historyMenuItem]).
].
clearItem := MenuItem new
label: 'Clear History';
- value: #emptyHistory;
+ itemValue: #emptyHistory;
activeHelpKey: #historyEmptyMenu;
translateLabel:true.
clearItem enabled:anyItem.
@@ -1432,7 +1431,7 @@
menu findGuiResourcesIn:self.
^menu
- "Modified: / 29.7.1998 / 11:40:11 / cg"
+ "Modified: / 09-09-2012 / 13:10:38 / cg"
!
remove:aHistoryEntry fromHistory: aHistory
@@ -1647,5 +1646,5 @@
!ToolApplicationModel class methodsFor:'documentation'!
version_CVS
- ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.141 2012-08-13 14:23:34 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.142 2012-09-09 19:05:30 cg Exp $'
! !