#TUNING by stefan
authorStefan Vogel <sv@exept.de>
Fri, 14 Sep 2018 17:06:30 +0200
changeset 4178 57a7491ecadb
parent 4177 871e7b63f408
child 4179 3fa2465bef0a
#TUNING by stefan class: TypeConverter changed: #numberOrNilToTextMinValue:maxValue:format: #numberWithOptionalScales:
TypeConverter.st
--- a/TypeConverter.st	Fri Sep 14 14:54:17 2018 +0200
+++ b/TypeConverter.st	Fri Sep 14 17:06:30 2018 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1997 eXept Software AG
               All Rights Reserved
@@ -1580,7 +1582,7 @@
 
                 |value c|
 
-                (string isEmptyOrNil or:[string isBlank]) ifTrue:[
+                (string isNil or:[string isBlank]) ifTrue:[
                     value := nil
                 ] ifFalse:[
                     value := Number readFromString:string onError:[nil]. 
@@ -1602,7 +1604,8 @@
 
         updateBlock: [:m :a :p | true]
 
-    "Modified: 21.2.1997 / 18:59:44 / cg"
+    "Modified: / 21-02-1997 / 18:59:44 / cg"
+    "Modified: / 14-09-2018 / 10:08:59 / Stefan Vogel"
 !
 
 numberOrPointOrNil
@@ -1954,7 +1957,7 @@
 
                     |value c stream scaleChar scale partValue|
 
-                    (string isEmptyOrNil or:[string isBlank]) ifTrue:[
+                    (string isNil or:[string isBlank]) ifTrue:[
                         value := nil
                     ] ifFalse:[
                         value := 0.
@@ -1973,6 +1976,8 @@
                 ]
 
         updateBlock: [:m :a :p | true]
+
+    "Modified: / 14-09-2018 / 10:09:09 / Stefan Vogel"
 !
 
 numberWithOptionalScales:scaleDict andThousandsSeparator:sep