[Pharo-project] ScaledDecimal #printOn

Aug. 9, 2012

      Team Pharo,
The printOn: method in ScaledDecimal returns a positive number string where the number is >-1 and < 0. For example -0.55s2 returns a string '0.55s2'. 

I have made my own correction. 

This may help the one other person who is using ScaledDecimal as a proxy for Currency but I have no idea what to do with this astounding discovery nor whether it will help anyone nor indeed if it is very tidy code.

Thanks

Guy Bloomfield

The current method starts with the string for the integer part 0 and then the absolute value of the fraction:

printOn: aStream
	"Append an approximated representation of the receiver on aStream.
	Use prescribed number of digits after decimal point (the scale) using a rounding operation if not exact"

	| fractionPart |
	scale = 0
		ifTrue: [self rounded printOn: aStream]
		ifFalse: [self integerPart printOn: aStream.
			aStream nextPut: $..
			fractionPart := (self abs fractionPart * (10 raisedToInteger: scale)) rounded.
			.....

My correction:

printOn: aStream
	"Append an approximated representation of the receiver on aStream.
	Use prescribed number of digits after decimal point (the scale) using a rounding operation if not exact"

	| fractionPart |

	self < 0 ifTrue: [ aStream nextPut: $- ].

	scale = 0
		ifTrue: [self rounded printOn: aStream]
		ifFalse: [self abs integerPart printOn: aStream.
			aStream nextPut: $..
			fractionPart := (self abs fractionPart * (10 raisedToInteger: scale)) rounded.
			.....