On Thu, 26 Jul 2007 15:03:36 -0700, Bert Freudenberg bert@freudenbergs.de wrote:
Blake, if you actually want to make this work in your image, you could do this:
Fraction>>printOn: aStream base: base | int | (int := self integerPart) = 0 ifTrue: [aStream nextPut: $(. numerator printOn: aStream base: base. aStream nextPut: $/. denominator printOn: aStream base: base. aStream nextPut: $)] ifFalse: [aStream nextPut: $(. int printOn: aStream base: base. aStream nextPut: $+. self fractionPart printOn: aStream base: base. aStream nextPut: $)]
(and delete Fraction>>printOn: which os redundant anyway)
I can see how this would be helpful in debugging if you deal with fractions a lot.
That's cool but I'm basically using the Fractions class for quick double-checks of math with fractions, so I sit down at whatever machine is handy, pull up Squeak and...
(Not that I'd object to printOn being changed or anything; it's just overkill.)