#REFACTORING by cg
authorClaus Gittinger <cg@exept.de>
Tue, 10 Oct 2017 16:03:17 +0200
changeset 22300 8ba20eef917f
parent 22299 0ae55bd04f33
child 22301 d897877094e8
#REFACTORING by cg class: LongFloat added: #printOn: #storeOn:
LongFloat.st
--- a/LongFloat.st	Tue Oct 10 16:02:57 2017 +0200
+++ b/LongFloat.st	Tue Oct 10 16:03:17 2017 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1999 by eXept Software AG
 	      All Rights Reserved
@@ -1583,6 +1581,17 @@
 
 !LongFloat methodsFor:'printing & storing'!
 
+printOn:aStream
+    "append a printed representation of the receiver to
+     the argument, aStream.
+
+     I use #printString instead of #printOn: as basic print mechanism."
+
+    aStream nextPutAll:self printString
+
+    "Created: / 10-10-2017 / 14:05:22 / cg"
+!
+
 printString
     "return a printed representation of the receiver
      LimitedPrecisonReal and its subclasses use #printString instead of
@@ -1775,6 +1784,17 @@
     "Modified (comment): / 03-07-2017 / 15:11:48 / cg"
 !
 
+storeOn:aStream
+    "append a printed representation of the receiver to
+     the argument, aStream.
+
+     I use #storeString instead of #storeOn: as basic store mechanism."
+
+    aStream nextPutAll:self storeString
+
+    "Created: / 10-10-2017 / 14:06:46 / cg"
+!
+
 storeString
     "return a printed representation of the receiver;
      all valid digits are printed.