Mercurial Mercurial > hg > stx-libview2 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
default: String in SmalltalkObject
authorClaus Gittinger <cg@exept.de>
Fri, 02 Jul 1999 12:55:50 +0200
changeset 1192 6db390e6463e
parent 1191 fdc4454013e4
child 1193 f8e879f414e8
default: String in SmalltalkObject
TypeConv.st file | annotate | diff | comparison | revisions
TypeConverter.st file | annotate | diff | comparison | revisions 
--- a/TypeConv.st	Fri Jun 25 16:35:06 1999 +0200
+++ b/TypeConv.st	Fri Jul 02 12:55:50 1999 +0200
@@ -747,6 +747,11 @@
                     |value|
 
                     value := Object readFrom:string onError:nil.
+                    value isNil ifTrue:[
+                        string size > 0 ifTrue:[
+                            value := string
+                        ]
+                    ].
                     model value:value
                 ]
 
@@ -888,5 +893,5 @@
 !TypeConverter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Attic/TypeConv.st,v 1.24 1999-03-22 21:55:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/TypeConv.st,v 1.25 1999-07-02 10:55:50 cg Exp $'
 ! !
--- a/TypeConverter.st	Fri Jun 25 16:35:06 1999 +0200
+++ b/TypeConverter.st	Fri Jul 02 12:55:50 1999 +0200
@@ -747,6 +747,11 @@
                     |value|
 
                     value := Object readFrom:string onError:nil.
+                    value isNil ifTrue:[
+                        string size > 0 ifTrue:[
+                            value := string
+                        ]
+                    ].
                     model value:value
                 ]
 
@@ -888,5 +893,5 @@
 !TypeConverter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/TypeConverter.st,v 1.24 1999-03-22 21:55:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/TypeConverter.st,v 1.25 1999-07-02 10:55:50 cg Exp $'
 ! !
hg/stx-libview2