LimitedPrecisionReal.st
changeset 5470 5e56d8cff0c9
parent 5357 39860dd8b0f5
child 5557 f5f8d236027c
--- a/LimitedPrecisionReal.st	Tue Jul 18 11:00:43 2000 +0200
+++ b/LimitedPrecisionReal.st	Tue Jul 18 11:01:52 2000 +0200
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+"{ Package: 'stx:libbasic' }"
+
 Number subclass:#LimitedPrecisionReal
 	instanceVariableNames:''
 	classVariableNames:''
@@ -408,6 +410,15 @@
     ^ (self * d + aFraction numerator) / d
 ! !
 
+!LimitedPrecisionReal methodsFor:'encoding'!
+
+encodeOn:anEncoder with:aParameter
+
+    anEncoder encodeFloat:self with:aParameter
+
+
+! !
+
 !LimitedPrecisionReal methodsFor:'printing & storing'!
 
 printOn:aStream
@@ -433,6 +444,7 @@
     "Modified: / 20.1.1998 / 14:10:47 / stefan"
 ! !
 
+
 !LimitedPrecisionReal methodsFor:'testing'!
 
 isFinite
@@ -505,5 +517,5 @@
 !LimitedPrecisionReal class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/LimitedPrecisionReal.st,v 1.34 2000-04-04 10:20:56 ps Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/LimitedPrecisionReal.st,v 1.35 2000-07-18 09:01:52 stefan Exp $'
 ! !