--- a/Number.st	Wed Apr 07 12:19:44 2004 +0200
+++ b/Number.st	Wed Apr 07 12:23:50 2004 +0200
@@ -272,6 +272,20 @@
     ].
 !
 
+decimalPointCharacter:aCharacter 
+    "printed"
+
+    DecimalPointCharacter := aCharacter
+
+    "
+     1.5 printString
+
+     Number decimalPointCharacter:$,.
+     1.5 printString       
+     Number decimalPointCharacter:$..
+    "
+!
+
 decimalPointCharacters 
     "accepted when converting from a string"
 
@@ -279,6 +293,28 @@
         DecimalPointCharacters := #( $. )
     ].
     ^ DecimalPointCharacters
+
+    "
+     1.5 printString
+
+     Number decimalPointCharacters:#( $. $,) .
+     Number fromString:'1.5'.     
+     Number fromString:'1,5'.     
+     Number decimalPointCharacters:#( $. ).
+    "
+!
+
+decimalPointCharacters:aCollectionOfCharacters 
+    "accepted when converting from a string"
+
+    DecimalPointCharacters := aCollectionOfCharacters
+
+    "
+     Number decimalPointCharacters:#( $. $,) .
+     Number fromString:'1.5'.     
+     Number fromString:'1,5'.     
+     Number decimalPointCharacters:#( $. ).
+    "
 !
 
 epsilon
@@ -1802,5 +1838,5 @@
 !Number class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Number.st,v 1.91 2004-04-07 10:13:33 werner Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Number.st,v 1.92 2004-04-07 10:23:50 werner Exp $'
 ! !