Mercurial Mercurial > hg > stx-libtool / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
checkin from browser
authorClaus Gittinger <cg@exept.de>
Wed, 23 Oct 1996 02:10:12 +0200
changeset 798 5ef299968209
parent 797 d0061c784af8
child 799 6544afd4e2e5
checkin from browser
MemMonitor.st file | annotate | diff | comparison | revisions
MemoryMonitor.st file | annotate | diff | comparison | revisions 
--- a/MemMonitor.st	Wed Oct 23 01:14:36 1996 +0200
+++ b/MemMonitor.st	Wed Oct 23 02:10:12 1996 +0200
@@ -19,7 +19,7 @@
 	category:'Interface-Tools'
 !
 
-!MemoryMonitor  class methodsFor:'documentation'!
+!MemoryMonitor class methodsFor:'documentation'!
 
 copyright
 "
@@ -93,7 +93,7 @@
 "
 ! !
 
-!MemoryMonitor  class methodsFor:'defaults'!
+!MemoryMonitor class methodsFor:'defaults'!
 
 defaultExtent
     ^ (200 @ 320)
@@ -128,6 +128,14 @@
 
 !MemoryMonitor methodsFor:'drawing'!
 
+displayKilo:aNumber name:nm y:y
+    |s|
+
+    s := nm , ((aNumber // 1024) printStringLeftPaddedTo:5) , 'k '.
+    self displayOpaqueString:s x:0 y:y.
+
+!
+
 redraw
     "redraw all"
 
@@ -344,48 +352,38 @@
             maxTotal := total.
         ].
 
-        s := 'max ' , ((maxTotal // 1024) printStringLeftPaddedTo:5) , 'k '.
-        self displayOpaqueString:s x:0 y:font ascent.
-
-        s := 'min ' , ((minTotal // 1024) printStringLeftPaddedTo:5) , 'k '.
-        self displayOpaqueString:s x:0 y:(height - font descent).
-
-        s := 'tot ' , ((total  // 1024) printStringLeftPaddedTo:5) , 'k '.
-        self displayOpaqueString:s x:0 y:y.
+        self displayKilo:maxTotal name:'max ' y:font ascent.
+        self displayKilo:minTotal name:'min ' y:(height - font descent).
+        self displayKilo:total    name:'tot ' y:y.
 
         prevTotal := total.
     ].
 
     y := y + fontHeight.
-    s := 'all ' , ((memUsed // 1024) printStringLeftPaddedTo:5) , 'k '.
-    self displayOpaqueString:s x:0 y:y.
+    self displayKilo:memUsed name:'all ' y:y.
 
     y := y + fontHeight.
     self paint:newColor.
-    s := 'new ' , ((newMemUsed // 1024) printStringLeftPaddedTo:5) , 'k '.
-    self displayOpaqueString:s x:0 y:y.
+    self displayKilo:newMemUsed name:'new ' y:y.
 
     y := y + fontHeight.
     freeMem ~~ prevFree ifTrue:[
         self paint:freeColor.
-        s := 'frl ' , ((freeMem // 1024) printStringLeftPaddedTo:5) , 'k '.
-        self displayOpaqueString:s x:0 y:y.
+        self displayKilo:freeMem name:'frl ' y:y.
         prevFree := freeMem.
     ].
 
     y := y + fontHeight.
     free2 ~~ prevFree2 ifTrue:[
         self paint:freeColor.
-        s := 'fre ' , ((free2 // 1024) printStringLeftPaddedTo:5) , 'k '.
-        self displayOpaqueString:s x:0 y:y.
+        self displayKilo:free2 name:'fre ' y:y.
         prevFree2 := free2.
     ].
 
     y := y + fontHeight.
     (oldMemUsed - freeMem) ~~ prevOld ifTrue:[
         self paint:oldColor.
-        s := 'old ' , (((oldMemUsed - freeMem) // 1024) printStringLeftPaddedTo:5) , 'k '.
-        self displayOpaqueString:s x:0 y:y.
+        self displayKilo:(oldMemUsed - freeMem) name:'old ' y:y.
         prevOld := (oldMemUsed - freeMem).
     ].
 
@@ -769,8 +767,8 @@
     ObjectMemory tenure
 ! !
 
-!MemoryMonitor  class methodsFor:'documentation'!
+!MemoryMonitor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/MemMonitor.st,v 1.37 1996-09-17 09:41:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/MemMonitor.st,v 1.38 1996-10-23 00:10:12 cg Exp $'
 ! !
--- a/MemoryMonitor.st	Wed Oct 23 01:14:36 1996 +0200
+++ b/MemoryMonitor.st	Wed Oct 23 02:10:12 1996 +0200
@@ -19,7 +19,7 @@
 	category:'Interface-Tools'
 !
 
-!MemoryMonitor  class methodsFor:'documentation'!
+!MemoryMonitor class methodsFor:'documentation'!
 
 copyright
 "
@@ -93,7 +93,7 @@
 "
 ! !
 
-!MemoryMonitor  class methodsFor:'defaults'!
+!MemoryMonitor class methodsFor:'defaults'!
 
 defaultExtent
     ^ (200 @ 320)
@@ -128,6 +128,14 @@
 
 !MemoryMonitor methodsFor:'drawing'!
 
+displayKilo:aNumber name:nm y:y
+    |s|
+
+    s := nm , ((aNumber // 1024) printStringLeftPaddedTo:5) , 'k '.
+    self displayOpaqueString:s x:0 y:y.
+
+!
+
 redraw
     "redraw all"
 
@@ -344,48 +352,38 @@
             maxTotal := total.
         ].
 
-        s := 'max ' , ((maxTotal // 1024) printStringLeftPaddedTo:5) , 'k '.
-        self displayOpaqueString:s x:0 y:font ascent.
-
-        s := 'min ' , ((minTotal // 1024) printStringLeftPaddedTo:5) , 'k '.
-        self displayOpaqueString:s x:0 y:(height - font descent).
-
-        s := 'tot ' , ((total  // 1024) printStringLeftPaddedTo:5) , 'k '.
-        self displayOpaqueString:s x:0 y:y.
+        self displayKilo:maxTotal name:'max ' y:font ascent.
+        self displayKilo:minTotal name:'min ' y:(height - font descent).
+        self displayKilo:total    name:'tot ' y:y.
 
         prevTotal := total.
     ].
 
     y := y + fontHeight.
-    s := 'all ' , ((memUsed // 1024) printStringLeftPaddedTo:5) , 'k '.
-    self displayOpaqueString:s x:0 y:y.
+    self displayKilo:memUsed name:'all ' y:y.
 
     y := y + fontHeight.
     self paint:newColor.
-    s := 'new ' , ((newMemUsed // 1024) printStringLeftPaddedTo:5) , 'k '.
-    self displayOpaqueString:s x:0 y:y.
+    self displayKilo:newMemUsed name:'new ' y:y.
 
     y := y + fontHeight.
     freeMem ~~ prevFree ifTrue:[
         self paint:freeColor.
-        s := 'frl ' , ((freeMem // 1024) printStringLeftPaddedTo:5) , 'k '.
-        self displayOpaqueString:s x:0 y:y.
+        self displayKilo:freeMem name:'frl ' y:y.
         prevFree := freeMem.
     ].
 
     y := y + fontHeight.
     free2 ~~ prevFree2 ifTrue:[
         self paint:freeColor.
-        s := 'fre ' , ((free2 // 1024) printStringLeftPaddedTo:5) , 'k '.
-        self displayOpaqueString:s x:0 y:y.
+        self displayKilo:free2 name:'fre ' y:y.
         prevFree2 := free2.
     ].
 
     y := y + fontHeight.
     (oldMemUsed - freeMem) ~~ prevOld ifTrue:[
         self paint:oldColor.
-        s := 'old ' , (((oldMemUsed - freeMem) // 1024) printStringLeftPaddedTo:5) , 'k '.
-        self displayOpaqueString:s x:0 y:y.
+        self displayKilo:(oldMemUsed - freeMem) name:'old ' y:y.
         prevOld := (oldMemUsed - freeMem).
     ].
 
@@ -769,8 +767,8 @@
     ObjectMemory tenure
 ! !
 
-!MemoryMonitor  class methodsFor:'documentation'!
+!MemoryMonitor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/MemoryMonitor.st,v 1.37 1996-09-17 09:41:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/MemoryMonitor.st,v 1.38 1996-10-23 00:10:12 cg Exp $'
 ! !
hg/stx-libtool