equal
deleted
inserted
replaced
134 ! |
134 ! |
135 |
135 |
136 readFrom:aStringOrStream onError:exceptionBlock |
136 readFrom:aStringOrStream onError:exceptionBlock |
137 |s numerator denominator| |
137 |s numerator denominator| |
138 |
138 |
|
139 "/ sigh - care for subclasses... |
|
140 self == Fraction ifFalse:[ |
|
141 ^ super readFrom:aStringOrStream onError:exceptionBlock |
|
142 ]. |
|
143 |
139 s := aStringOrStream readStream. |
144 s := aStringOrStream readStream. |
140 s skipSeparators. |
145 s skipSeparators. |
141 s peek == $( ifTrue:[ |
146 s peek == $( ifTrue:[ |
142 s next. |
147 s next. |
143 |
148 |
1151 ! ! |
1156 ! ! |
1152 |
1157 |
1153 !Fraction class methodsFor:'documentation'! |
1158 !Fraction class methodsFor:'documentation'! |
1154 |
1159 |
1155 version |
1160 version |
1156 ^ '$Header: /cvs/stx/stx/libbasic/Fraction.st,v 1.79 2009-09-08 11:55:28 cg Exp $' |
1161 ^ '$Header: /cvs/stx/stx/libbasic/Fraction.st,v 1.80 2009-09-08 11:57:25 cg Exp $' |
1157 ! ! |
1162 ! ! |
1158 |
1163 |
1159 Fraction initialize! |
1164 Fraction initialize! |