Number.st
changeset 21536 c71b535bfcbb
parent 21142 d9692dfa814f
child 21634 312cdb36acc9
--- 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