--- a/MemoryMonitor.st Fri Mar 31 05:07:47 1995 +0200
+++ b/MemoryMonitor.st Sun Apr 02 13:45:20 1995 +0200
@@ -25,7 +25,7 @@
COPYRIGHT (c) 1991 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libtool/MemoryMonitor.st,v 1.12 1995-03-25 22:24:28 claus Exp $
+$Header: /cvs/stx/stx/libtool/MemoryMonitor.st,v 1.13 1995-04-02 11:45:14 claus Exp $
'!
!MemoryMonitor class methodsFor:'documentation'!
@@ -46,7 +46,7 @@
version
"
-$Header: /cvs/stx/stx/libtool/MemoryMonitor.st,v 1.12 1995-03-25 22:24:28 claus Exp $
+$Header: /cvs/stx/stx/libtool/MemoryMonitor.st,v 1.13 1995-04-02 11:45:14 claus Exp $
"
!
@@ -117,7 +117,7 @@
gWidth shift scaleChange margin mustWait|
shown ifTrue:[
- oldSpaceUsed := ObjectMemory oldSpaceUsed + ObjectMemory fixSpaceUsed.
+ oldSpaceUsed := ObjectMemory oldSpaceUsed + ObjectMemory symSpaceUsed.
newSpaceUsed := ObjectMemory newSpaceUsed.
freeMem := ObjectMemory freeListSpace.
total := oldSpaceUsed + newSpaceUsed.
@@ -205,7 +205,7 @@
lx := org
].
- total := ObjectMemory fixSpaceSize
+ total := ObjectMemory symSpaceSize
+ ObjectMemory oldSpaceSize
+ ObjectMemory newSpaceSize.
@@ -281,10 +281,10 @@
|oldSpaceSize newSpaceSize memUsed oldMemUsed newMemUsed freeMem free2
x y half s thisStringLen fontHeight total n|
- oldMemUsed := ObjectMemory oldSpaceUsed + ObjectMemory fixSpaceUsed.
+ oldMemUsed := ObjectMemory oldSpaceUsed + ObjectMemory symSpaceUsed.
newMemUsed := ObjectMemory newSpaceUsed.
freeMem := ObjectMemory freeListSpace.
- oldSpaceSize := ObjectMemory oldSpaceSize + ObjectMemory fixSpaceSize.
+ oldSpaceSize := ObjectMemory oldSpaceSize + ObjectMemory symSpaceSize.
newSpaceSize := ObjectMemory newSpaceSize.
memUsed := oldMemUsed + newMemUsed "- freeMem".
@@ -518,7 +518,7 @@
level := 0.
maxTotal := minTotal := ObjectMemory oldSpaceSize
- + ObjectMemory fixSpaceSize
+ + ObjectMemory symSpaceSize
+ ObjectMemory newSpaceSize.
viewBackground := Black.