--- a/CharacterSetView.st	Fri Jan 19 10:44:17 2018 +0100
+++ b/CharacterSetView.st	Fri Jan 19 12:16:49 2018 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2004 by eXept Software AG
               All Rights Reserved
@@ -134,21 +136,16 @@
     "/ actions
     aConsumingView notNil ifTrue:[
         insertCharacter := [:char | 
-                                (char isString ifTrue:[char] ifFalse:[Array with:char])
-                                do:[:char | 
-                                    |unicodePoint unicodeChar pastedString|
+                                |pastedString|
 
-                                    unicodePoint := CharacterEncoder encode:(char codePoint) from:aConsumingView characterEncoding into:#unicode.
-                                    unicodeChar := Character value:unicodePoint.
-                                    pastedString := unicodeChar asString.
-                                    htmlHolder value ifTrue:[
-                                        "/ insert html
-                                        pastedString := HTMLUtilities escapeCharacterEntities:pastedString.
-                                    ].
-                                    pastedString do:[:eachChar |
-                                        aConsumingView dispatchEvent:(WindowEvent keyPress:eachChar x:0 y:0 view:v).
-                                        aConsumingView dispatchEvent:(WindowEvent keyRelease:eachChar x:0 y:0 view:v).
-                                    ].
+                                pastedString := (CharacterEncoder encode:char from:aConsumingView characterEncoding into:#unicode) asCharacter asString.
+                                htmlHolder value ifTrue:[
+                                    "/ insert html
+                                    pastedString := HTMLUtilities escapeCharacterEntities:pastedString.
+                                ].
+                                pastedString do:[:eachChar |
+                                    aConsumingView dispatchEvent:(WindowEvent keyPress:eachChar x:0 y:0 view:v).
+                                    aConsumingView dispatchEvent:(WindowEvent keyRelease:eachChar x:0 y:0 view:v).
                                 ].
                            ].
     ].
@@ -341,6 +338,7 @@
     "
 
     "Modified: / 11-10-2006 / 22:30:32 / cg"
+    "Modified: / 19-01-2018 / 12:16:03 / stefan"
 !
 
 openOn:aFont label:viewLabel clickLabel:clickLabel