--- a/ToolApplicationModel.st	Tue Jul 28 22:06:10 1998 +0200
+++ b/ToolApplicationModel.st	Wed Jul 29 13:25:41 1998 +0200
@@ -981,7 +981,16 @@
     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 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 
@@ -993,7 +1002,7 @@
     menu findGuiResourcesIn:self.
     ^menu
 
-    "Modified: / 19.5.1998 / 19:17:34 / cg"
+    "Modified: / 29.7.1998 / 11:40:11 / cg"
 !
 
 removeFromHistory: aHistoryEntry
@@ -1211,5 +1220,5 @@
 !ToolApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.65 1998-07-27 07:58:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.66 1998-07-29 11:25:41 cg Exp $'
 ! !