equal
deleted
inserted
replaced
1142 ! ! |
1142 ! ! |
1143 |
1143 |
1144 !Fraction methodsFor:'visiting'! |
1144 !Fraction methodsFor:'visiting'! |
1145 |
1145 |
1146 acceptVisitor:aVisitor with:aParameter |
1146 acceptVisitor:aVisitor with:aParameter |
|
1147 "dispatch for visitor pattern; send #visitFraction:with: to aVisitor" |
1147 |
1148 |
1148 ^ aVisitor visitFraction:self with:aParameter |
1149 ^ aVisitor visitFraction:self with:aParameter |
1149 ! ! |
1150 ! ! |
1150 |
1151 |
1151 !Fraction class methodsFor:'documentation'! |
1152 !Fraction class methodsFor:'documentation'! |
1152 |
1153 |
1153 version |
1154 version |
1154 ^ '$Header: /cvs/stx/stx/libbasic/Fraction.st,v 1.82 2013-05-27 08:14:32 cg Exp $' |
1155 ^ '$Header: /cvs/stx/stx/libbasic/Fraction.st,v 1.83 2014-07-09 16:21:06 cg Exp $' |
1155 ! |
1156 ! |
1156 |
1157 |
1157 version_CVS |
1158 version_CVS |
1158 ^ '$Header: /cvs/stx/stx/libbasic/Fraction.st,v 1.82 2013-05-27 08:14:32 cg Exp $' |
1159 ^ '$Header: /cvs/stx/stx/libbasic/Fraction.st,v 1.83 2014-07-09 16:21:06 cg Exp $' |
1159 ! ! |
1160 ! ! |
1160 |
1161 |
1161 |
1162 |
1162 Fraction initialize! |
1163 Fraction initialize! |