Bert Freudenberg uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-bf.710.mcz
==================== Summary ====================
Name: Kernel-bf.710 Author: bf Time: 4 September 2012, 1:54:08.616 pm UUID: 772d3014-9910-4231-bee1-36d35938014d Ancestors: Kernel-ul.709
For printing Time, do not use Floats. E.g., '6:27:08.649' asTime was printed as '6:27:08.649000000000001 am' due to converting to floating point for printing, when the representation itself uses precise numbers (nanoseconds). This fix introduces Integer>>printOn:asFixedPoint: which might not be the best idea; if some other dialect has an existing method that does something similar we should use that selector.
=============== Diff against Kernel-ul.709 ===============
Item was added: + ----- Method: Integer>>printOn:asFixedPoint: (in category 'printing') ----- + printOn: aStream asFixedPoint: base + "assume I am a fixedpoint decimal scaled by base" + "String streamContents: [:s | 1234 printOn: s asFixedPoint: 1000]" + + | b n | + self < 0 ifTrue: [aStream nextPut: $-. + ^self negated printOn: aStream asFixedPoint: base]. + b := base. + n := self. + [aStream print: n // b. + (n := n \ b) = 0] whileFalse: [ + b = base ifTrue: [aStream nextPut: $.]. + b := b // 10]. + !
Item was changed: ----- Method: Time>>print24:showSeconds:on: (in category 'printing') ----- print24: hr24 showSeconds: showSeconds on: aStream "Format is 'hh:mm:ss' or 'h:mm:ss am' or, if showSeconds is false, 'hh:mm' or 'h:mm am'"
| h m s | h := self hour. m := self minute. s := self second. hr24 ifTrue: [ h < 10 ifTrue: [ aStream nextPutAll: '0' ]. h printOn: aStream ] ifFalse: [ h > 12 ifTrue: [h - 12 printOn: aStream] ifFalse: [h < 1 ifTrue: [ 12 printOn: aStream ] ifFalse: [ h printOn: aStream ]]].
aStream nextPutAll: (m < 10 ifTrue: [':0'] ifFalse: [':']). m printOn: aStream.
showSeconds ifTrue: [ aStream nextPutAll: (s < 10 ifTrue: [':0'] ifFalse: [':']). self nanoSecond = 0 ifTrue: [s asInteger printOn: aStream] + ifFalse: [s asInteger * NanosInSecond + self nanoSecond asInteger + printOn: aStream asFixedPoint: NanosInSecond]]. - ifFalse: [(s + (self nanoSecond / NanosInSecond) asFloat) printOn: aStream]].
hr24 ifFalse: [ aStream nextPutAll: (h < 12 ifTrue: [' am'] ifFalse: [' pm']) ]. !