equal
deleted
inserted
replaced
711 val := self readFrom:str radix:base onError:[^ exceptionBlock value]. |
711 val := self readFrom:str radix:base onError:[^ exceptionBlock value]. |
712 str atEnd ifFalse:[ ^ exceptionBlock value]. |
712 str atEnd ifFalse:[ ^ exceptionBlock value]. |
713 ^ val |
713 ^ val |
714 ! ! |
714 ! ! |
715 |
715 |
|
716 !Integer class methodsFor:'Compatibility-Squeak'! |
|
717 |
|
718 readFrom:aStringOrStream base:aBase |
|
719 "for squeak compatibility" |
|
720 |
|
721 ^ self readFrom:aStringOrStream radix:aBase |
|
722 ! ! |
|
723 |
716 !Integer class methodsFor:'Signal constants'! |
724 !Integer class methodsFor:'Signal constants'! |
717 |
725 |
718 bcdConversionErrorSignal |
726 bcdConversionErrorSignal |
719 "return the signal which is raised when bcd conversion fails |
727 "return the signal which is raised when bcd conversion fails |
720 (i.e. when trying to decode an invalid BCD number)" |
728 (i.e. when trying to decode an invalid BCD number)" |
3664 ! ! |
3672 ! ! |
3665 |
3673 |
3666 !Integer class methodsFor:'documentation'! |
3674 !Integer class methodsFor:'documentation'! |
3667 |
3675 |
3668 version |
3676 version |
3669 ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.183 2006-02-17 14:30:31 cg Exp $' |
3677 ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.184 2006-02-17 15:24:24 cg Exp $' |
3670 ! ! |
3678 ! ! |
3671 |
3679 |
3672 Integer initialize! |
3680 Integer initialize! |