'From Squeak2.8alpha of 14 February 2000 [latest update: #1919] on 22 March 2000 at 3:27:22 am'!
"Change Set:		TallyPercentSign-dew
Date:			22 March 2000
Author:			Doug Way

Simple change which adds percent signs to the MessageTally output, to make it more clear."!


!MessageTally methodsFor: 'printing' stamp: 'dew 3/22/2000 03:22'!
printOn: aStream total: total tallyExact: isExact
	| aSelector className myTally aClass |
	isExact
		ifTrue:
			[myTally _ tally.
			receivers == nil
				ifFalse: [receivers do: [:r | myTally _ myTally - r tally]].
			aStream print: myTally; space]
		ifFalse:
			[aStream
				print: (tally asFloat / total * 100.0 roundTo: 0.1);
				nextPutAll: '% '].
	receivers == nil
		ifTrue: [aStream nextPutAll: 'primitives'; cr]
		ifFalse: 
			[aSelector _ class selectorAtMethod: method setClass: [:c | aClass _
c].
			className _ aClass name contractTo: 30.
			aStream nextPutAll: class name;
				nextPutAll: (aClass = class ifTrue: ['>>']
								ifFalse: ['(' , aClass name , ')>>']);
				nextPutAll: (aSelector contractTo: 60-className size); cr]! !