Mercurial Mercurial > hg > stx-libwidg / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Tue, 24 Feb 2004 22:34:41 +0100
changeset 2910 7b013a87a482
parent 2909 a43e1343718f
child 2911 f9dc65c59f63
*** empty log message ***
EditTextView.st file | annotate | diff | comparison | revisions 
--- a/EditTextView.st	Tue Feb 24 20:04:15 2004 +0100
+++ b/EditTextView.st	Tue Feb 24 22:34:41 2004 +0100
@@ -4938,9 +4938,11 @@
                          v := viewSelector value.
                          v notNil ifTrue:[
                             (char isString ifTrue:[char] ifFalse:[Array with:char])
-                            do:[:char |
-                                v dispatchEvent:(WindowEvent keyPress:char x:0 y:0 view:v).
-                                v dispatchEvent:(WindowEvent keyRelease:char x:0 y:0 view:v).
+                            do:[:char | |unicodePoint unicodeChar|
+                                unicodePoint := CharacterEncoder encode:(char codePoint) from:characterEncoding into:'unicode'.
+                                unicodeChar := Character value:unicodePoint.
+                                v dispatchEvent:(WindowEvent keyPress:unicodeChar x:0 y:0 view:v).
+                                v dispatchEvent:(WindowEvent keyRelease:unicodeChar x:0 y:0 view:v).
                             ].
                          ].
                        ].
@@ -5694,5 +5696,5 @@
 !EditTextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.334 2004-02-24 19:04:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.335 2004-02-24 21:34:41 cg Exp $'
 ! !
hg/stx-libwidg