--- a/MemoryMonitor.st	Tue Jun 27 04:30:28 1995 +0200
+++ b/MemoryMonitor.st	Mon Jul 03 04:37:45 1995 +0200
@@ -25,7 +25,7 @@
  COPYRIGHT (c) 1991 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libtool/MemoryMonitor.st,v 1.15 1995-06-06 04:20:44 claus Exp $
+$Header: /cvs/stx/stx/libtool/MemoryMonitor.st,v 1.16 1995-07-03 02:37:32 claus Exp $
 '!
 
 !MemoryMonitor class methodsFor:'documentation'!
@@ -46,7 +46,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/MemoryMonitor.st,v 1.15 1995-06-06 04:20:44 claus Exp $
+$Header: /cvs/stx/stx/libtool/MemoryMonitor.st,v 1.16 1995-07-03 02:37:32 claus Exp $
 "
 !
 
@@ -193,7 +193,7 @@
 redrawX:x y:y width:w height:h
     "redraw data"
 
-    |total oldSpaceUsed newSpaceUsed freeMem lx s startIdx endIdx
+    |total oldSpaceUsed newSpaceUsed freeMem lx startIdx endIdx
      right|
 
     shown ifFalse:[^ self].
@@ -279,7 +279,7 @@
     "
 
     |oldSpaceSize newSpaceSize memUsed oldMemUsed newMemUsed freeMem free2 
-     x y half s thisStringLen fontHeight total n|
+     y half s fontHeight total n|
 
     oldMemUsed := ObjectMemory oldSpaceUsed + ObjectMemory symSpaceUsed.
     newMemUsed := ObjectMemory newSpaceUsed.
@@ -460,12 +460,16 @@
 			'tenure'
 			'-'
 			'cleanup memory'
+			'-'
+			'compress sources'
 		      ).
 	selectors := #(
 			scavenge
 			tenure
 			nil
 			cleanupMemory
+			nil
+			compressSources
 		      ).
     ] ifFalse:[
 	labels :=    #(
@@ -474,8 +478,6 @@
 			'collect garbage & compress'
 			'-'
 			'background collect'
-			'-'
-			'compress sources'
 		      ).
 
 	selectors := #(
@@ -484,8 +486,6 @@
 			compressingGarbageCollect
 			nil
 			backgroundCollect
-			nil
-			compressSources
 		      ).
     ].