equal
deleted
inserted
replaced
9 inclusion of the above copyright notice. This software may not |
9 inclusion of the above copyright notice. This software may not |
10 be provided or otherwise made available to, or used by, any |
10 be provided or otherwise made available to, or used by, any |
11 other person. No title to or ownership of the software is |
11 other person. No title to or ownership of the software is |
12 hereby transferred. |
12 hereby transferred. |
13 " |
13 " |
14 'From Smalltalk/X, Version:6.2.4.0 on 30-06-2014 at 16:22:22' ! |
|
15 |
|
16 "{ Package: 'stx:libbasic' }" |
14 "{ Package: 'stx:libbasic' }" |
17 |
15 |
18 Number subclass:#LimitedPrecisionReal |
16 Number subclass:#LimitedPrecisionReal |
19 instanceVariableNames:'' |
17 instanceVariableNames:'' |
20 classVariableNames:'' |
18 classVariableNames:'' |
1032 t2 := 1.5 sumFromTimestamp:t1. |
1030 t2 := 1.5 sumFromTimestamp:t1. |
1033 t1 inspect. t2 inspect. |
1031 t1 inspect. t2 inspect. |
1034 " |
1032 " |
1035 ! ! |
1033 ! ! |
1036 |
1034 |
|
1035 |
1037 !LimitedPrecisionReal methodsFor:'printing & storing'! |
1036 !LimitedPrecisionReal methodsFor:'printing & storing'! |
1038 |
1037 |
1039 printOn:aStream |
1038 printOn:aStream |
1040 "append a printed representation of the receiver to |
1039 "append a printed representation of the receiver to |
1041 the argument, aStream. |
1040 the argument, aStream. |
1222 ! ! |
1221 ! ! |
1223 |
1222 |
1224 !LimitedPrecisionReal methodsFor:'visiting'! |
1223 !LimitedPrecisionReal methodsFor:'visiting'! |
1225 |
1224 |
1226 acceptVisitor:aVisitor with:aParameter |
1225 acceptVisitor:aVisitor with:aParameter |
|
1226 "dispatch for visitor pattern; send #visitFloat:with: to aVisitor." |
1227 |
1227 |
1228 ^ aVisitor visitFloat:self with:aParameter |
1228 ^ aVisitor visitFloat:self with:aParameter |
1229 ! ! |
1229 ! ! |
1230 |
1230 |
1231 !LimitedPrecisionReal class methodsFor:'documentation'! |
1231 !LimitedPrecisionReal class methodsFor:'documentation'! |
1232 |
1232 |
1233 version |
1233 version |
1234 ^ '$Header: /cvs/stx/stx/libbasic/LimitedPrecisionReal.st,v 1.77 2014-06-30 14:26:49 stefan Exp $' |
1234 ^ '$Header: /cvs/stx/stx/libbasic/LimitedPrecisionReal.st,v 1.78 2014-07-09 16:21:09 cg Exp $' |
1235 ! |
1235 ! |
1236 |
1236 |
1237 version_CVS |
1237 version_CVS |
1238 ^ '$Header: /cvs/stx/stx/libbasic/LimitedPrecisionReal.st,v 1.77 2014-06-30 14:26:49 stefan Exp $' |
1238 ^ '$Header: /cvs/stx/stx/libbasic/LimitedPrecisionReal.st,v 1.78 2014-07-09 16:21:09 cg Exp $' |
1239 ! ! |
1239 ! ! |
1240 |
1240 |
1241 |
1241 |
1242 LimitedPrecisionReal initialize! |
1242 LimitedPrecisionReal initialize! |