hg/stx-libtool: comparison MemoryUsageView.st

equal deleted inserted replaced

-:c74bce2106ae
+:56ecc821f8be
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Interface-Tools'
 !
-!MemoryUsageView  class methodsFor:'documentation'!
+!MemoryUsageView class methodsFor:'documentation'!
 copyright
 "
 COPYRIGHT (c) 1992 by Claus Gittinger
 	      All Rights Reserved
 updateDisplay
 "update the displayed list"
 windowGroup withCursor:Cursor wait do:[
-	|classNames counts sumSizes maxSizes percents avgSizes
+|classNames counts sumSizes maxSizes percents avgSizes
-	 l line allMemory
+l line allMemory
-	 overAllCount overAllAvgSize overAllMaxSize|
+overAllCount overAllAvgSize overAllMaxSize|
-	info := rawInfo asSortedCollection:sortBlock.
+info := rawInfo asSortedCollection:sortBlock.
-	classNames := info collect:[:infoArray |
+classNames := info collect:[:infoArray |
-	    |cls|
+|cls|
-	    cls := infoArray at:1.
+cls := infoArray at:1.
-	    cls == Class ifTrue:[
+cls == Class ifTrue:[
-		'<all classes>'
+'<all classes>'
-	    ] ifFalse:[
+] ifFalse:[
-		cls == Metaclass ifTrue:[
+cls == Metaclass ifTrue:[
-		    '<all metaclasses>'
+'<all metaclasses>'
-		] ifFalse:[
+] ifFalse:[
-		    cls displayString "/name
+cls == PrivateMetaclass ifTrue:[
-		]
+'<all private classes>'
-	    ]
+] ifFalse:[
-	].
+cls displayString "/name
+]
-	counts := info collect:[:infoArray | (infoArray at:2) ].
+]
-	sumSizes := info collect:[:infoArray | (infoArray at:3) ].
+]
-	maxSizes := info collect:[:infoArray | (infoArray at:4) ].
+].
-	allMemory := sumSizes inject:0 into:[:sum :this | sum + this].
-	"/ allMemory := ObjectMemory bytesUsed.
+counts := info collect:[:infoArray | (infoArray at:2) ].
-	percents := sumSizes collect:[:sz | (sz asFloat / allMemory * 1000) rounded / 10.0].
+sumSizes := info collect:[:infoArray | (infoArray at:3) ].
-	avgSizes := (1 to:sumSizes size) collect:[:i | (((sumSizes at:i) / (counts at:i)) * 10) rounded / 10.0].
+maxSizes := info collect:[:infoArray | (infoArray at:4) ].
+allMemory := sumSizes inject:0 into:[:sum :this | sum + this].
-	l := OrderedCollection new.
+"/ allMemory := ObjectMemory bytesUsed.
-	1 to:classNames size do:[:i |
+percents := sumSizes collect:[:sz | (sz asFloat / allMemory * 1000) rounded / 10.0].
-	    |line avgSz maxSz|
+avgSizes := (1 to:sumSizes size) collect:[:i | (((sumSizes at:i) / (counts at:i)) * 10) rounded / 10.0].
-	    avgSz := avgSizes at:i.
+l := OrderedCollection new.
-	    maxSz := maxSizes at:i.
+1 to:classNames size do:[:i |
-	    avgSz = maxSz ifTrue:[
+|line avgSz maxSz|
-		avgSz := avgSz asInteger printString , '  '.
-	    ].
+avgSz := avgSizes at:i.
-	    line := (classNames at:i) printStringPaddedTo:33 with:Character space.
+maxSz := maxSizes at:i.
-	    line := line , ((counts at:i) printStringLeftPaddedTo:7).
+avgSz = maxSz ifTrue:[
-	    line := line , (avgSz printStringLeftPaddedTo:10).
+avgSz := avgSz asInteger printString , '  '.
-	    line := line , (maxSz printStringLeftPaddedTo:8).
+].
-	    line := line , ((sumSizes at:i) printStringLeftPaddedTo:10).
+line := (classNames at:i) printStringPaddedTo:33 with:Character space.
-	    line := line , ((percents at:i) printStringLeftPaddedTo:7).
+line := line , ((counts at:i) printStringLeftPaddedTo:7).
-	    l add:line
+line := line , (avgSz printStringLeftPaddedTo:10).
-	].
+line := line , (maxSz printStringLeftPaddedTo:8).
+line := line , ((sumSizes at:i) printStringLeftPaddedTo:10).
-	"add summary line"
+line := line , ((percents at:i) printStringLeftPaddedTo:7).
-	overAllCount := counts inject:0 into:[:sum :this | sum + this].
+l add:line
-	overAllAvgSize := ((allMemory / overAllCount) * 10) rounded / 10.0.
+].
-	overAllMaxSize := maxSizes max.
+"add summary line"
-	l add:''.
+overAllCount := counts inject:0 into:[:sum :this | sum + this].
-	line := 'all objects' printStringPaddedTo:33 with:Character space.
+overAllAvgSize := ((allMemory / overAllCount) * 10) rounded / 10.0.
-	line := line , (overAllCount printStringLeftPaddedTo:7).
+overAllMaxSize := maxSizes max.
-	line := line , (overAllAvgSize printStringLeftPaddedTo:10).
-	line := line , (overAllMaxSize printStringLeftPaddedTo:8).
+l add:''.
-	line := line , (allMemory printStringLeftPaddedTo:10).
+line := 'all objects' printStringPaddedTo:33 with:Character space.
-	line := line , (100.0 printStringLeftPaddedTo:7).
+line := line , (overAllCount printStringLeftPaddedTo:7).
-	l add:line.
+line := line , (overAllAvgSize printStringLeftPaddedTo:10).
+line := line , (overAllMaxSize printStringLeftPaddedTo:8).
-	list list:l.
+line := line , (allMemory printStringLeftPaddedTo:10).
+line := line , (100.0 printStringLeftPaddedTo:7).
+l add:line.
+list list:l.
 ]
 "Created: 19.9.1995 / 15:30:47 / claus"
+"Modified: 15.10.1996 / 21:59:36 / cg"
 !
 updateInfo
 "scan all memory and collect the information"
 "/              o isBehavior ifTrue:[
 class := o class.
 (class flags bitAnd:behaviorFlag) ~~ 0 ifTrue:[
 o isObsolete ifFalse:[
 o isMeta ifTrue:[
-class := Metaclass
+o isPrivate ifTrue:[
+class := PrivateMetaclass
+] ifFalse:[
+class := Metaclass
+]
 ] ifFalse:[
-class := Class
+"/                            o isPrivate ifTrue:[
+"/                                class := PrivateMetaclass
+"/                            ] ifFalse:[
+class := Class
+"/                            ]
 ]
 ]
 ].
 bytes := ObjectMemory sizeOf:o.
 infoArray := rawInfo at:class ifAbsent:[].
 infoArray isNil ifTrue:[
 infoArray := Array
 with:class
 myProcess priority:myPriority.
 ].
 ]
 "Modified: 19.9.1995 / 15:29:10 / claus"
+"Modified: 15.10.1996 / 22:02:00 / cg"
 ! !
 !MemoryUsageView methodsFor:'realization'!
 realize
 super realize.
 self updateInfo.
 self sortByClass.
 ! !
-!MemoryUsageView  class methodsFor:'documentation'!
+!MemoryUsageView class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libtool/MemoryUsageView.st,v 1.16 1996-06-28 13:46:05 cg Exp $'
+^ '$Header: /cvs/stx/stx/libtool/MemoryUsageView.st,v 1.17 1996-10-15 21:03:16 cg Exp $'
 ! !

changeset 769	56ecc821f8be
parent 643	837eeb5cf043
child 770	3da310ebef8d