--- a/EventMonitor.st	Tue Feb 15 15:59:48 2005 +0100
+++ b/EventMonitor.st	Tue Feb 15 17:36:47 2005 +0100
@@ -154,7 +154,11 @@
 
     'KeyRelease x:' print. x print. ' y:' print. y print.
     (key isMemberOf:Character) ifTrue:[
-        ' character key:' print. key print.
+        key codePoint <= 16rFF ifTrue:[
+            ' character key:' print. key print.
+        ] ifFalse:[
+            ' unicode character utf8:' print. key asString utf8Encoded asByteArray hexPrintOn:Stdout.
+        ].
         ' (' print. key asciiValue print. ')' print
     ] ifFalse:[
         ' symbolic key:' print. key storeString print.
@@ -227,5 +231,5 @@
 !EventMonitor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/EventMonitor.st,v 1.20 2000-09-29 12:45:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/EventMonitor.st,v 1.21 2005-02-15 16:36:47 cg Exp $'
 ! !