--- a/ToolApplicationModel.st Thu Apr 02 18:50:19 1998 +0200
+++ b/ToolApplicationModel.st Sat Apr 04 19:08:16 1998 +0200
@@ -237,6 +237,9 @@
#historyMenuItem
'Evaluates the text of the menu item for loading.'
+#settings
+'Settings functions.'
+
#test
'Test functions.'
@@ -1167,11 +1170,11 @@
menuHistory
- |menu a|
+ |menu|
menu := Menu new receiver: self.
(self history collect: [:histEntry| histEntry value]) asSet asOrderedCollection do:
[:historyEntryType|
- menu addItemGroup: ((a := self history select: [:histEntry| histEntry value = historyEntryType]) collect: [:histEntry| MenuItem new label: histEntry key printString; value: histEntry value; argument: histEntry key; activeHelpKey: #historyMenuItem]).
+ 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).
@@ -1384,5 +1387,5 @@
!ToolApplicationModel class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.51 1998-04-02 16:50:19 tz Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.52 1998-04-04 17:08:16 tz Exp $'
! !