--- a/Character.st Sun Oct 30 14:34:05 2016 +0100
+++ b/Character.st Sun Oct 30 16:29:21 2016 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 1988 by Claus Gittinger
All Rights Reserved
@@ -601,7 +599,6 @@
"
! !
-
!Character methodsFor:'Compatibility-Dolphin'!
isAlphaNumeric
@@ -649,8 +646,6 @@
or:[ (asciivalue == 247 ) ]]]]]
! !
-
-
!Character methodsFor:'accessing'!
codePoint
@@ -1499,7 +1494,7 @@
^ s contents
"
- 'ä' utf8Encoded
+ 'ä' utf8Encoded
'a' utf8Encoded
"
! !
@@ -1761,7 +1756,9 @@
!Character methodsFor:'queries'!
bitsPerCharacter
- "return the number of bits I require for storage"
+ "return the number of bits I require for storage.
+ (i.e. am I an Ascii/ISO8859-1 Character or will I need more
+ bits for storage."
asciivalue <= 16rFF ifTrue:[^ 8].
asciivalue <= 16rFFFF ifTrue:[^ 16].
@@ -2638,9 +2635,9 @@
"
$e asNonDiacritical
- $é asNonDiacritical
- $ä asNonDiacritical
- $Ã¥ asNonDiacritical
+ $é asNonDiacritical
+ $ä asNonDiacritical
+ $å asNonDiacritical
"
!