equal
deleted
inserted
replaced
514 |value| |
514 |value| |
515 |
515 |
516 string isEmpty ifTrue:[ |
516 string isEmpty ifTrue:[ |
517 value := 0 |
517 value := 0 |
518 ] ifFalse:[ |
518 ] ifFalse:[ |
519 value := string asNumber |
519 value := Number readFromString: string onError:[0]. |
520 ]. |
520 ]. |
521 minVal notNil ifTrue:[ |
521 minVal notNil ifTrue:[ |
522 value := value max:minVal. |
522 value := value max:minVal. |
523 ]. |
523 ]. |
524 maxVal notNil ifTrue:[ |
524 maxVal notNil ifTrue:[ |
663 ! ! |
663 ! ! |
664 |
664 |
665 !TypeConverter class methodsFor:'documentation'! |
665 !TypeConverter class methodsFor:'documentation'! |
666 |
666 |
667 version |
667 version |
668 ^ '$Header: /cvs/stx/stx/libview2/Attic/TypeConv.st,v 1.15 1998-05-26 14:10:55 cg Exp $' |
668 ^ '$Header: /cvs/stx/stx/libview2/Attic/TypeConv.st,v 1.16 1998-07-09 15:13:52 tz Exp $' |
669 ! ! |
669 ! ! |