equal
deleted
inserted
replaced
572 ^ self printString |
572 ^ self printString |
573 ! ! |
573 ! ! |
574 |
574 |
575 !Number methodsFor:'testing'! |
575 !Number methodsFor:'testing'! |
576 |
576 |
577 isLiteral |
|
578 "return true, if the receiver can be used as a literal |
|
579 (i.e. can be used in constant arrays)" |
|
580 |
|
581 ^ true |
|
582 ! |
|
583 |
|
584 isNumber |
577 isNumber |
585 "return true, if the receiver is a kind of number" |
578 "return true, if the receiver is a kind of number" |
586 |
579 |
587 ^ true |
580 ^ true |
588 ! |
581 ! |
591 "return true, if the receiver is zero" |
584 "return true, if the receiver is zero" |
592 |
585 |
593 ^ self = 0 |
586 ^ self = 0 |
594 |
587 |
595 "Modified: 18.7.1996 / 12:40:49 / cg" |
588 "Modified: 18.7.1996 / 12:40:49 / cg" |
|
589 ! ! |
|
590 |
|
591 !Number methodsFor:'tracing'! |
|
592 |
|
593 traceInto:aRequestor level:level |
|
594 "double dispatch into tracer, passing my type implicitely in the selector" |
|
595 |
|
596 ^ aRequestor traceNumber:self level:level |
|
597 |
|
598 |
596 ! ! |
599 ! ! |
597 |
600 |
598 !Number methodsFor:'truncation and rounding'! |
601 !Number methodsFor:'truncation and rounding'! |
599 |
602 |
600 fractionPart |
603 fractionPart |
628 ! ! |
631 ! ! |
629 |
632 |
630 !Number class methodsFor:'documentation'! |
633 !Number class methodsFor:'documentation'! |
631 |
634 |
632 version |
635 version |
633 ^ '$Header: /cvs/stx/stx/libbasic/Number.st,v 1.51 1999-08-26 10:18:21 cg Exp $' |
636 ^ '$Header: /cvs/stx/stx/libbasic/Number.st,v 1.52 1999-09-01 20:01:00 cg Exp $' |
634 ! ! |
637 ! ! |