diff -r f1ca40b3f545 -r c71b535bfcbb Number.st --- a/Number.st Wed Feb 22 19:01:05 2017 +0100 +++ b/Number.st Wed Feb 22 19:01:08 2017 +0100 @@ -945,10 +945,6 @@ 7.2345 rounded:3 7.2348 rounded:3 " -! - -stringForReadout - ^ self rounded printString ! ! @@ -1549,15 +1545,15 @@ DefaultDisplayRadix (see Integer>>displayRadix:)" "/ what a kludge - Dolphin and Squeak mean: printOn: a stream; - "/ ST/X (and some old ST80's) mean: draw-yourself on a GC. + "/ old ST80 means: draw-yourself on a GC. (aGCOrStream isStream) ifFalse:[ - ^ super displayOn:aGCOrStream + ^ super displayOn:aGCOrStream ]. (DefaultDisplayRadix isNil or:[DefaultDisplayRadix == 10]) ifTrue:[ - self printOn:aGCOrStream + self printOn:aGCOrStream ] ifFalse:[ - self printOn:aGCOrStream base:DefaultDisplayRadix showRadix:true. + self printOn:aGCOrStream base:DefaultDisplayRadix showRadix:true. ]. " @@ -1565,6 +1561,8 @@ Integer displayRadix:2. 12345 Integer displayRadix:10. 12345 " + + "Modified (comment): / 22-02-2017 / 16:52:16 / cg" ! printOn:aStream