equal
deleted
inserted
replaced
745 [:model :string | |
745 [:model :string | |
746 |
746 |
747 |value| |
747 |value| |
748 |
748 |
749 value := Object readFrom:string onError:nil. |
749 value := Object readFrom:string onError:nil. |
|
750 value isNil ifTrue:[ |
|
751 string size > 0 ifTrue:[ |
|
752 value := string |
|
753 ] |
|
754 ]. |
750 model value:value |
755 model value:value |
751 ] |
756 ] |
752 |
757 |
753 updateBlock: [:m :a :p | true] |
758 updateBlock: [:m :a :p | true] |
754 |
759 |
886 ! ! |
891 ! ! |
887 |
892 |
888 !TypeConverter class methodsFor:'documentation'! |
893 !TypeConverter class methodsFor:'documentation'! |
889 |
894 |
890 version |
895 version |
891 ^ '$Header: /cvs/stx/stx/libview2/TypeConverter.st,v 1.24 1999-03-22 21:55:40 cg Exp $' |
896 ^ '$Header: /cvs/stx/stx/libview2/TypeConverter.st,v 1.25 1999-07-02 10:55:50 cg Exp $' |
892 ! ! |
897 ! ! |