--- a/EventMonitor.st	Mon Jun 24 16:34:45 1996 +0200
+++ b/EventMonitor.st	Tue Jun 25 21:48:47 1996 +0200
@@ -17,7 +17,7 @@
 	category:'Interface-Tools'
 !
 
-!EventMonitor class methodsFor:'documentation'!
+!EventMonitor  class methodsFor:'documentation'!
 
 copyright
 "
@@ -43,7 +43,7 @@
 "
 ! !
 
-!EventMonitor class methodsFor:'defaults'!
+!EventMonitor  class methodsFor:'defaults'!
 
 defaultExtent
     ^ 200 @ 200
@@ -92,27 +92,39 @@
 !
 
 keyPress:key x:x y:y
+    |untranslatedKey|
+
     'KeyPress x:' print. x print. ' y:' print. y print.
     (key isMemberOf:Character) ifTrue:[
         ' character key:' print. key print.
         ' (' print. key asciiValue print. ')' print
     ] ifFalse:[
-        ' symbolic key:' print. key storeString print
+        ' symbolic key:' print. key storeString print.
+        untranslatedKey := device keyboardMap keyAtValue:key ifAbsent:key.
+        untranslatedKey ~~ key ifTrue:[
+            ' untranslated key:' print. untranslatedKey print
+        ]
     ].
 
-    '' printNL
+    '' printCR
 !
 
 keyRelease:key x:x y:y
+    |untranslatedKey|
+
     'KeyRelease x:' print. x print. ' y:' print. y print.
     (key isMemberOf:Character) ifTrue:[
         ' character key:' print. key print.
         ' (' print. key asciiValue print. ')' print
     ] ifFalse:[
-        ' symbolic key:' print. key storeString print
+        ' symbolic key:' print. key storeString print.
+        untranslatedKey := device keyboardMap keyAtValue:key ifAbsent:key.
+        untranslatedKey ~~ key ifTrue:[
+            ' untranslated key:' print. untranslatedKey print
+        ]
     ].
 
-    '' printNL
+    '' printCR
 !
 
 mapped
@@ -161,8 +173,8 @@
     "Modified: 7.3.1996 / 15:06:42 / cg"
 ! !
 
-!EventMonitor class methodsFor:'documentation'!
+!EventMonitor  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/EventMonitor.st,v 1.11 1996-03-07 14:07:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/EventMonitor.st,v 1.12 1996-06-25 19:48:47 cg Exp $'
 ! !