#BUGFIX by stefan
class: Character
added:
#addDependent:
#onChangeSend:to:
silently ignore setting of dependencies.
--- a/Character.st Mon Dec 03 18:07:46 2018 +0100
+++ b/Character.st Mon Dec 03 18:08:54 2018 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"
COPYRIGHT (c) 1988 by Claus Gittinger
All Rights Reserved
@@ -699,6 +701,7 @@
! !
+
!Character methodsFor:'accessing'!
codePoint
@@ -859,8 +862,8 @@
"
(Character value:345) sameAs:(Character value:345)
- $Ж sameAs:$ж
- $ж sameAs:$Ж
+ $РsameAs:$ж
+ $ж sameAs:$Ð
"
"Modified (comment): / 28-03-2017 / 16:19:48 / stefan"
@@ -1558,7 +1561,7 @@
^ s contents
"
- 'ä' utf8Encoded
+ 'ä' utf8Encoded
'a' utf8Encoded
"
@@ -1567,7 +1570,7 @@
withoutDiacritics
"return a character with same letter as the receiver, but in without diacritics modifiers
- (mapping e.g. Ä to A).
+ (mapping e.g. Ã to A).
Returns the receiver if it has no diacritics modifiers."
^ self shouldImplement
@@ -1657,6 +1660,30 @@
^ self
! !
+!Character methodsFor:'dependents access'!
+
+addDependent:someOne
+ "It doesn't make sense to add dependents to a shared instance.
+ Silently ignore ..."
+
+"/ Transcript show:'*** trying to make dependent on an character: '.
+"/ thisContext sender printOn:Transcript. Transcript cr.
+
+ "Created: / 30-11-2018 / 18:05:34 / Stefan Vogel"
+ "Modified (comment): / 03-12-2018 / 17:52:28 / Stefan Vogel"
+!
+
+onChangeSend:selector to:someOne
+ "It doesn't make sense to add dependents to a shared instance.
+ Silently ignore ..."
+
+"/ Transcript show:'*** trying to make dependent on an character: '.
+"/ thisContext sender printOn:Transcript. Transcript cr.
+
+ "Created: / 30-11-2018 / 18:06:26 / Stefan Vogel"
+ "Modified (comment): / 03-12-2018 / 17:52:36 / Stefan Vogel"
+! !
+
!Character methodsFor:'encoding'!
rot13
@@ -2731,9 +2758,9 @@
"
$e asNonDiacritical
- $é asNonDiacritical
- $ä asNonDiacritical
- $å asNonDiacritical
+ $é asNonDiacritical
+ $ä asNonDiacritical
+ $Ã¥ asNonDiacritical
"
!