Mercurial Mercurial > hg > stx-libtool / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
MemoryMonitor.st
changeset 60 102da98b8bbd
parent 57 36e13831b62d
child 61 cb5e3560bd82 
--- a/MemoryMonitor.st	Sat Feb 11 17:54:18 1995 +0100
+++ b/MemoryMonitor.st	Sat Feb 11 17:54:29 1995 +0100
@@ -24,7 +24,7 @@
  COPYRIGHT (c) 1991 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libtool/MemoryMonitor.st,v 1.6 1995-02-06 01:00:07 claus Exp $
+$Header: /cvs/stx/stx/libtool/MemoryMonitor.st,v 1.7 1995-02-11 16:54:09 claus Exp $
 '!
 
 !MemoryMonitor class methodsFor:'documentation'!
@@ -45,7 +45,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/MemoryMonitor.st,v 1.6 1995-02-06 01:00:07 claus Exp $
+$Header: /cvs/stx/stx/libtool/MemoryMonitor.st,v 1.7 1995-02-11 16:54:09 claus Exp $
 "
 !
 
@@ -232,31 +232,31 @@
 	    maxTotal := total.
 	].
 
-	s := 'max ' , ((maxTotal // 1024) printStringRightAdjustLen:5) , 'k '.
+	s := 'max ' , ((maxTotal // 1024) printStringLeftPaddedTo:5) , 'k '.
 	self displayOpaqueString:s x:0 y:font ascent.
 
-	s := 'min ' , ((minTotal // 1024) printStringRightAdjustLen:5) , 'k '.
+	s := 'min ' , ((minTotal // 1024) printStringLeftPaddedTo:5) , 'k '.
 	self displayOpaqueString:s x:0 y:(height - font descent).
 
-	s := 'tot ' , ((total  // 1024) printStringRightAdjustLen:5) , 'k '.
+	s := 'tot ' , ((total  // 1024) printStringLeftPaddedTo:5) , 'k '.
 	self displayOpaqueString:s x:0 y:y.
 
 	prevTotal := total.
     ].
 
     y := y + fontHeight.
-    s := 'all ' , ((memUsed // 1024) printStringRightAdjustLen:5) , 'k '.
+    s := 'all ' , ((memUsed // 1024) printStringLeftPaddedTo:5) , 'k '.
     self displayOpaqueString:s x:0 y:y.
 
     y := y + fontHeight.
     self paint:newColor.
-    s := 'new ' , ((newMemUsed // 1024) printStringRightAdjustLen:5) , 'k '.
+    s := 'new ' , ((newMemUsed // 1024) printStringLeftPaddedTo:5) , 'k '.
     self displayOpaqueString:s x:0 y:y.
 
     y := y + fontHeight.
     freeMem ~~ prevFree ifTrue:[
 	self paint:freeColor.
-	s := 'frl ' , ((freeMem // 1024) printStringRightAdjustLen:5) , 'k '.
+	s := 'frl ' , ((freeMem // 1024) printStringLeftPaddedTo:5) , 'k '.
 	self displayOpaqueString:s x:0 y:y.
 	prevFree := freeMem.
     ].
@@ -264,7 +264,7 @@
     y := y + fontHeight.
     free2 ~~ prevFree2 ifTrue:[
 	self paint:freeColor.
-	s := 'fre ' , ((free2 // 1024) printStringRightAdjustLen:5) , 'k '.
+	s := 'fre ' , ((free2 // 1024) printStringLeftPaddedTo:5) , 'k '.
 	self displayOpaqueString:s x:0 y:y.
 	prevFree2 := free2.
     ].
@@ -272,7 +272,7 @@
     y := y + fontHeight.
     (oldMemUsed - freeMem) ~~ prevOld ifTrue:[
 	self paint:oldColor.
-	s := 'old ' , (((oldMemUsed - freeMem) // 1024) printStringRightAdjustLen:5) , 'k '.
+	s := 'old ' , (((oldMemUsed - freeMem) // 1024) printStringLeftPaddedTo:5) , 'k '.
 	self displayOpaqueString:s x:0 y:y.
 	prevOld := (oldMemUsed - freeMem).
     ].
@@ -282,8 +282,8 @@
     "
     y := y + fontHeight.
     self paint:oldColor.
-    s := 't:' , (ObjectMemory tenureAge printStringRightAdjustLen:2) , ' '.
-    s := s , 'I:' , (ObjectMemory incrementalGCPhase printStringRightAdjustLen:2) , ' '.
+    s := 't:' , (ObjectMemory tenureAge printStringLeftPaddedTo:2) , ' '.
+    s := s , 'I:' , (ObjectMemory incrementalGCPhase printStringLeftPaddedTo:2) , ' '.
     self displayOpaqueString:s x:0 y:y.
 
 "/ does no longer make sense to show ....
@@ -295,7 +295,7 @@
     y := y + fontHeight.
     n := ObjectMemory lastScavangeReclamation / ObjectMemory newSpaceSize * 100.0.
     n := 100 - n asInteger.
-    s := (n printStringRightAdjustLen:2) , '%'.
+    s := (n printStringLeftPaddedTo:2) , '%'.
     self displayOpaqueString:s x:0 y:y.
 !
hg/stx-libtool