--- a/MemoryMonitor.st	Tue Jan 28 18:06:11 1997 +0100
+++ b/MemoryMonitor.st	Wed Jan 29 13:33:14 1997 +0100
@@ -200,7 +200,7 @@
     "update picture; trigger next update"
 
     |total oldSpaceUsed newSpaceUsed freeMem oldSpaceSize
-     gWidth shift scaleChange margin mustWait|
+     gWidth shift scaleChange margin|
 
     shown ifTrue:[
         drawLock wouldBlock ifFalse:[
@@ -235,7 +235,6 @@
                 gWidth := width - org.
                 margin := 1.
 
-                mustWait := false.
                 ((updateIndex-1) >= (gWidth - margin)) ifTrue:[
         "on slow displays, use:"
         "/            shift := gWidth // 4.
@@ -250,15 +249,14 @@
                     updateIndex := updateIndex - shift.
                     dX := dX + shift.
 
-                    self catchExpose.
                     self copyFrom:self 
                                 x:(org + shift) y:0
                               toX:org y:0
                             width:(gWidth - shift - margin)
                            height:height.
+
                     self clearRectangleX:(width - margin - shift) y:0 
                                    width:shift height:height.
-                    mustWait := true.
                 ].
 
                 self updateLineX:(updateIndex - 1 + org - 1)
@@ -269,11 +267,6 @@
 
                 self updateNumbers.
                 self flush.
-
-                mustWait ifTrue:[
-                    self waitForExpose.
-                ]
-
             ].
         ].
     ].
@@ -282,7 +275,7 @@
         Processor addTimedBlock:updateBlock afterSeconds:updateInterval
     ].
 
-    "Modified: 23.1.1997 / 22:38:08 / cg"
+    "Modified: 29.1.1997 / 13:32:31 / cg"
 !
 
 updateLineX:x total:total old:oldSpaceSize new:newSpaceUsed free:freeMem
@@ -857,5 +850,5 @@
 !MemoryMonitor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/MemoryMonitor.st,v 1.42 1997-01-24 22:23:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/MemoryMonitor.st,v 1.43 1997-01-29 12:33:14 cg Exp $'
 ! !