--- a/TypeConverter.st	Fri Jul 10 02:01:28 1998 +0200
+++ b/TypeConverter.st	Thu Jul 16 17:52:32 1998 +0200
@@ -419,7 +419,7 @@
                 string isEmpty ifTrue:[
                     value := 0
                 ] ifFalse:[
-                    value := string asNumber
+                    value := Number readFromString: string onError:[0]
                 ].
                 model value:value]
 
@@ -450,8 +450,8 @@
 
                 string isEmpty ifTrue:[
                     value := 0
-                ] ifFalse:[
-                    value := Number readFromString:string onError:0
+                ] ifFalse:[     
+                    value := Number readFromString:string onError:[0]
                 ].
                 model value:value]
 
@@ -484,8 +484,8 @@
 
                 string isEmpty ifTrue:[
                     value := 0
-                ] ifFalse:[
-                    value := string asNumber "asNumberFromFormatString:formatString"
+                ] ifFalse:[          
+                    value := Number readFromString: string onError:[0]. "asNumberFromFormatString:formatString"
                 ].
                 model value:value]
 
@@ -515,15 +515,15 @@
 
                 string isEmpty ifTrue:[
                     value := 0
-                ] ifFalse:[
+                ] ifFalse:[            
                     value := Number readFromString: string onError:[0]. 
-                ].
+                ].               
                 minVal notNil ifTrue:[
                     value := value max:minVal.
                 ].
                 maxVal notNil ifTrue:[
                     value := value min:maxVal.
-                ].
+                ].             
                 model value:value]
 
         updateBlock: [:m :a :p | true]
@@ -665,5 +665,5 @@
 !TypeConverter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/TypeConverter.st,v 1.16 1998-07-09 15:13:52 tz Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/TypeConverter.st,v 1.17 1998-07-16 15:52:32 tz Exp $'
 ! !