--- 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 $'
! !