equal
deleted
inserted
replaced
1 PluggableAdaptor subclass:#TypeConverter |
1 PluggableAdaptor subclass:#TypeConverter |
2 instanceVariableNames:'' |
2 instanceVariableNames:'' |
3 classVariableNames:'' |
3 classVariableNames:'' |
4 poolDictionaries:'' |
4 poolDictionaries:'' |
5 category:'Interface-Support-Models' |
5 category:'Interface-Support-Models' |
6 ! |
6 ! |
7 |
7 |
8 !TypeConverter class methodsFor:'documentation'! |
8 !TypeConverter class methodsFor:'documentation'! |
9 |
9 |
10 documentation |
10 documentation |
790 putBlock: |
790 putBlock: |
791 [:model :string | |
791 [:model :string | |
792 |
792 |
793 |value s| |
793 |value s| |
794 |
794 |
795 string isEmpty ifTrue:[ |
795 string size == 0 ifTrue:[ |
796 value := nil |
796 value := nil |
797 ] ifFalse:[ |
797 ] ifFalse:[ |
798 s := string withoutSeparators. |
798 s := string withoutSeparators. |
799 (s startsWith:'#') ifTrue:[ |
799 (s startsWith:'#') ifTrue:[ |
800 s := s copyFrom:2. |
800 s := s copyFrom:2. |
902 ! ! |
902 ! ! |
903 |
903 |
904 !TypeConverter class methodsFor:'documentation'! |
904 !TypeConverter class methodsFor:'documentation'! |
905 |
905 |
906 version |
906 version |
907 ^ '$Header: /cvs/stx/stx/libview2/TypeConverter.st,v 1.29 1999-11-16 16:02:36 stefan Exp $' |
907 ^ '$Header: /cvs/stx/stx/libview2/TypeConverter.st,v 1.30 2000-01-24 11:07:45 ca Exp $' |
908 ! ! |
908 ! ! |