Fix drawing if newspace is 0.
authorStefan Vogel <sv@exept.de>
Wed, 03 Feb 1999 17:04:56 +0100
changeset 1992 89bde57ef1c8
parent 1991 dfbb30988edd
child 1993 f5dd3e1f0845
Fix drawing if newspace is 0.
MemMonitor.st
MemoryMonitor.st
--- a/MemMonitor.st	Wed Feb 03 16:41:51 1999 +0100
+++ b/MemMonitor.st	Wed Feb 03 17:04:56 1999 +0100
@@ -329,8 +329,12 @@
     self displayLineFromX:x y:y1 toX:x y:y3.
 
     y1 := y2 - hNew.
-    self paint:newColor.
-    self displayLineFromX:x y:y1 toX:x y:y2.
+    y1 ~= y2 ifTrue:[
+       self paint:newColor.
+       self displayLineFromX:x y:y1 toX:x y:y2.
+    ]
+
+    "Modified: / 29.1.1999 / 20:45:07 / stefan"
 !
 
 updateNumbers
@@ -974,5 +978,5 @@
 !MemoryMonitor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/MemMonitor.st,v 1.59 1998-09-24 10:46:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/MemMonitor.st,v 1.60 1999-02-03 16:04:56 stefan Exp $'
 ! !
--- a/MemoryMonitor.st	Wed Feb 03 16:41:51 1999 +0100
+++ b/MemoryMonitor.st	Wed Feb 03 17:04:56 1999 +0100
@@ -329,8 +329,12 @@
     self displayLineFromX:x y:y1 toX:x y:y3.
 
     y1 := y2 - hNew.
-    self paint:newColor.
-    self displayLineFromX:x y:y1 toX:x y:y2.
+    y1 ~= y2 ifTrue:[
+       self paint:newColor.
+       self displayLineFromX:x y:y1 toX:x y:y2.
+    ]
+
+    "Modified: / 29.1.1999 / 20:45:07 / stefan"
 !
 
 updateNumbers
@@ -974,5 +978,5 @@
 !MemoryMonitor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/MemoryMonitor.st,v 1.59 1998-09-24 10:46:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/MemoryMonitor.st,v 1.60 1999-02-03 16:04:56 stefan Exp $'
 ! !