equal
deleted
inserted
replaced
312 convert:howMany from:sourceUnit to:destUnit |
312 convert:howMany from:sourceUnit to:destUnit |
313 "given a value in sourceUnit (symbolic), try to convert it |
313 "given a value in sourceUnit (symbolic), try to convert it |
314 to destUnit (symbolic); return nil, if the conversion is |
314 to destUnit (symbolic); return nil, if the conversion is |
315 unknown." |
315 unknown." |
316 |
316 |
317 |u factor conversions alias rslt sU dU| |
317 |u conversions alias rslt sU dU| |
318 |
318 |
319 "/ somehow, recursion must end ... |
319 "/ somehow, recursion must end ... |
320 sourceUnit == destUnit ifTrue:[ |
320 sourceUnit == destUnit ifTrue:[ |
321 ^ howMany |
321 ^ howMany |
322 ]. |
322 ]. |
536 ! ! |
536 ! ! |
537 |
537 |
538 !UnitConverter class methodsFor:'documentation'! |
538 !UnitConverter class methodsFor:'documentation'! |
539 |
539 |
540 version |
540 version |
541 ^ '$Header: /cvs/stx/stx/libbasic2/UnitConverter.st,v 1.5 1996-06-04 15:15:02 cg Exp $' |
541 ^ '$Header: /cvs/stx/stx/libbasic2/UnitConverter.st,v 1.6 1996-10-15 20:35:55 cg Exp $' |
542 ! ! |
542 ! ! |
543 UnitConverter initialize! |
543 UnitConverter initialize! |