--- a/MemoryMonitorView.st Sat Aug 28 22:17:09 1999 +0200
+++ b/MemoryMonitorView.st Sun Aug 29 03:14:39 1999 +0200
@@ -192,6 +192,7 @@
shown ifTrue:[
drawLock wouldBlock ifFalse:[
drawLock critical:[
+
oldSpaceUsed := ObjectMemory oldSpaceUsed + ObjectMemory symSpaceUsed.
newSpaceUsed := ObjectMemory newSpaceUsed.
freeMem := ObjectMemory freeListSpace + (ObjectMemory oldSpaceSize - ObjectMemory oldSpaceUsed).
@@ -234,7 +235,7 @@
freeData replaceFrom:1 with:freeData startingAt:shift+1.
updateIndex := updateIndex - shift.
- dX := dX + shift.
+ dX := (dX ? 0) + shift.
"/ before copying, handle any outstanding exposes ...
self repairDamage.
@@ -516,11 +517,12 @@
super sizeChanged:how.
(width == 0 or:[height == 0]) ifTrue:[
- ^self
+ ^ self
].
oldSize := oldData size.
newSize := width-org+1.
+ newSize <= 0 ifTrue:[^ self].
(newSize ~~ oldSize) ifTrue:[
nn := Array new:newSize.
@@ -949,5 +951,5 @@
!MemoryMonitorView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/MemoryMonitorView.st,v 1.2 1999-08-28 12:53:26 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/MemoryMonitorView.st,v 1.3 1999-08-29 01:14:39 cg Exp $'
! !