Character.st
branchjv
changeset 19559 d35a89d5c0ec
parent 19410 f9d7cb8bd74c
parent 19534 ae94ac62b8c5
child 19567 33f60845c4bc
--- a/Character.st	Sun Apr 03 07:04:52 2016 +0200
+++ b/Character.st	Fri Apr 08 07:02:36 2016 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1988 by Claus Gittinger
 	      All Rights Reserved
@@ -1489,7 +1491,7 @@
     |s|
 
     asciivalue <= 16r7F ifTrue:[
-	^ self asString.
+        ^ self asString.
     ].
 
     s := WriteStream on:(String new:6).
@@ -1497,7 +1499,8 @@
     ^ s contents
 
     "
-	'ä' utf8Encoded
+     'ä' utf8Encoded 
+     'a' utf8Encoded 
     "
 ! !
 
@@ -2565,9 +2568,9 @@
 
     "
      $e asNonDiacritical
-     $é asNonDiacritical
-     $ä asNonDiacritical
-     $å asNonDiacritical
+     $é asNonDiacritical
+     $ä asNonDiacritical
+     $Ã¥ asNonDiacritical
     "
 !