equal
deleted
inserted
replaced
458 |
458 |
459 "Modified: / 17.4.1996 / 12:21:35 / cg" |
459 "Modified: / 17.4.1996 / 12:21:35 / cg" |
460 "Created: / 7.9.2001 / 13:39:31 / cg" |
460 "Created: / 7.9.2001 / 13:39:31 / cg" |
461 ! |
461 ! |
462 |
462 |
|
463 asScaledDecimal:scale |
|
464 "return a fixedPoint approximating the receivers value" |
|
465 |
|
466 ^ self asFixedPoint:scale |
|
467 |
|
468 " |
|
469 1.234 asScaledDecimal:2 |
|
470 " |
|
471 |
|
472 "Created: / 7.9.2001 / 13:46:26 / cg" |
|
473 "Modified: / 7.9.2001 / 13:46:44 / cg" |
|
474 ! |
|
475 |
463 asShortFloat |
476 asShortFloat |
464 "return a shortFloat with same value" |
477 "return a shortFloat with same value" |
465 |
478 |
466 ^ self asFloat asShortFloat |
479 ^ self asFloat asShortFloat |
467 |
480 |
986 ! ! |
999 ! ! |
987 |
1000 |
988 !ArithmeticValue class methodsFor:'documentation'! |
1001 !ArithmeticValue class methodsFor:'documentation'! |
989 |
1002 |
990 version |
1003 version |
991 ^ '$Header: /cvs/stx/stx/libbasic/ArithmeticValue.st,v 1.38 2001-09-07 11:42:16 cg Exp $' |
1004 ^ '$Header: /cvs/stx/stx/libbasic/ArithmeticValue.st,v 1.39 2001-09-07 11:45:40 cg Exp $' |
992 ! ! |
1005 ! ! |
993 ArithmeticValue initialize! |
1006 ArithmeticValue initialize! |