checkin from browser
authorClaus Gittinger <cg@exept.de>
Sun, 29 Aug 1999 03:14:39 +0200
changeset 2369 e0164ab47abd
parent 2368 e6e90f6b144a
child 2370 453caa0c1907
checkin from browser
MemoryMonitorView.st
--- 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 $'
 ! !