--- 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