--- a/MemMonitor.st Tue Jan 28 18:06:11 1997 +0100
+++ b/MemMonitor.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/Attic/MemMonitor.st,v 1.42 1997-01-24 22:23:40 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Attic/MemMonitor.st,v 1.43 1997-01-29 12:33:14 cg Exp $'
! !
--- 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 $'
! !