#BUGFIX by stefan
authorStefan Vogel <sv@exept.de>
Mon, 03 Dec 2018 18:08:54 +0100
changeset 23555 bd158f68e9fd
parent 23554 f82e83c4076c
child 23556 2e05c6f6d847
#BUGFIX by stefan class: Character added: #addDependent: #onChangeSend:to: silently ignore setting of dependencies.
Character.st
--- 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
     "
 !