equal
deleted
inserted
replaced
9 Friedlistrasse 19, CH-3006, Bern, Switzerland, +41 31 999 3946 |
9 Friedlistrasse 19, CH-3006, Bern, Switzerland, +41 31 999 3946 |
10 |
10 |
11 this code was published in comp.lang.smalltalk; |
11 this code was published in comp.lang.smalltalk; |
12 added here as an example ... |
12 added here as an example ... |
13 " |
13 " |
|
14 |
|
15 "{ Package: 'stx:libbasic' }" |
14 |
16 |
15 Fraction subclass:#FixedPoint |
17 Fraction subclass:#FixedPoint |
16 instanceVariableNames:'scale' |
18 instanceVariableNames:'scale' |
17 classVariableNames:'' |
19 classVariableNames:'' |
18 poolDictionaries:'' |
20 poolDictionaries:'' |
714 "Modified: 5.11.1996 / 10:32:43 / cg" |
716 "Modified: 5.11.1996 / 10:32:43 / cg" |
715 |
717 |
716 |
718 |
717 ! ! |
719 ! ! |
718 |
720 |
719 !FixedPoint methodsFor:'printing'! |
721 !FixedPoint methodsFor:'printing & storing'! |
720 |
722 |
721 printOn: aStream |
723 printOn: aStream |
722 "append to the argument, aStream, a printed representation of the receiver. |
724 "append to the argument, aStream, a printed representation of the receiver. |
723 For printout, only scale post-decimal digits are printed |
725 For printout, only scale post-decimal digits are printed |
724 (and the printout is rounded to that many digits)" |
726 (and the printout is rounded to that many digits)" |
892 ! ! |
894 ! ! |
893 |
895 |
894 !FixedPoint class methodsFor:'documentation'! |
896 !FixedPoint class methodsFor:'documentation'! |
895 |
897 |
896 version |
898 version |
897 ^ '$Header: /cvs/stx/stx/libbasic/FixedPoint.st,v 1.10 1998-08-05 12:29:05 cg Exp $' |
899 ^ '$Header: /cvs/stx/stx/libbasic/FixedPoint.st,v 1.11 2000-08-31 10:02:43 cg Exp $' |
898 ! ! |
900 ! ! |