--- a/MemoryMonitor.st	Wed Aug 05 14:55:48 1998 +0200
+++ b/MemoryMonitor.st	Wed Aug 05 14:59:07 1998 +0200
@@ -630,38 +630,34 @@
     |m items moreItems specialMenu|
 
     items := #(
-                    ('scavenge'                             scavenge)
-                    ('tenure'                               tenure)
-                    ('hi prio incremental collect'          incrementalCollect)
+                    ('background collect now'       backgroundCollect)
+                    ('hi prio incremental collect'  incrementalCollect)
+                    ('-')
+                    ('scavenge'                     scavenge)
+                    ('tenure'                       tenure)
                     ('-')
-                    ('cleanup memory'                       cleanupMemory)
-                    ('flush method history'                 cleanupMethodHistory)
-                    ('unload autoloaded classes'            unloadAllAutoloadedClasses)
+                    ('cleanup memory'               cleanupMemory)
+                    ('flush method history'         cleanupMethodHistory)
+                    ('unload autoloaded classes'    unloadAllAutoloadedClasses)
                     ('-')
-                    ('compress sources'                     compressSources)
+                    ('compress sources'             compressSources)
               ).
 
     ObjectMemory backgroundCollectorRunning ifFalse:[
         moreItems := #(
-                    ('background collect now'       backgroundCollect          )
                     ('start background collector'   restartBackgroundCollector )
-                    ('-')
                  ) 
     ] ifTrue:[
         (ObjectMemory backgroundCollectProcess priorityRange notNil)
         ifTrue:[
             moreItems := #(
-                    ('background collect now'                backgroundCollect            )
                     ('background collect with fix priority'  backgroundCollectWithFixPrio )
                     ('stop background collector'             stopBackgroundCollector      )
-                    ('-')
                      ) 
         ] ifFalse:[
             moreItems := #(
-                    ('background collect now'                   backgroundCollect                 )
                     ('background collect with dynamic priority' backgroundCollectWithDynamicPrio )
                     ('stop background collector'                stopBackgroundCollector      )
-                    ('-')
                      ) 
         ].
     ].
@@ -690,7 +686,7 @@
 
     ^ m
 
-    "Modified: / 5.8.1998 / 14:25:20 / cg"
+    "Modified: / 5.8.1998 / 14:58:10 / cg"
 !
 
 realize
@@ -955,5 +951,5 @@
 !MemoryMonitor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/MemoryMonitor.st,v 1.54 1998-08-05 12:55:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/MemoryMonitor.st,v 1.55 1998-08-05 12:59:07 cg Exp $'
 ! !