diff -r bd8b7a160539 -r 5ae345836020 Character.st --- a/Character.st Thu Jul 07 17:20:11 2016 +0200 +++ b/Character.st Thu Jul 07 17:20:35 2016 +0200 @@ -1,3 +1,5 @@ +"{ Encoding: utf8 }" + " COPYRIGHT (c) 1988 by Claus Gittinger All Rights Reserved @@ -311,7 +313,6 @@ ^ self codePoint:anInteger ! ! - !Character class methodsFor:'accessing untypeable characters'! controlCharacter:char @@ -358,7 +359,6 @@ ^ self codePoint:41 ! ! - !Character class methodsFor:'constants'! backspace @@ -602,8 +602,6 @@ ! ! - - !Character methodsFor:'Compatibility-Dolphin'! isAlphaNumeric @@ -999,9 +997,7 @@ // comon ascii stuff first if (__codePoint < 0x80) { if ((__codePoint >= 'A') && (__codePoint <= 'Z')) { - unsigned newCodePoint; - - newCodePoint = __codePoint - 'A' + 'a'; + unsigned int newCodePoint = __codePoint - 'A' + 'a'; RETURN (__MKCHARACTER(newCodePoint)) ; } RETURN (self); @@ -1503,7 +1499,7 @@ ^ s contents " - 'ä' utf8Encoded + 'ä' utf8Encoded 'a' utf8Encoded " ! ! @@ -2642,9 +2638,9 @@ " $e asNonDiacritical - $é asNonDiacritical - $ä asNonDiacritical - $å asNonDiacritical + $é asNonDiacritical + $ä asNonDiacritical + $Ã¥ asNonDiacritical " !