--- a/DeviceWorkstation.st	Fri Mar 06 21:56:15 2020 +0100
+++ b/DeviceWorkstation.st	Fri Mar 27 11:32:12 2020 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
 COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
@@ -4925,30 +4927,31 @@
     |untranslatedKey|
 
     untranslatedKeyArg isInteger ifTrue:[
-	untranslatedKey := Character value:untranslatedKeyArg
+        untranslatedKey := Character value:untranslatedKeyArg
     ] ifFalse:[
-	untranslatedKey := untranslatedKeyArg
-    ].
-
-    "/ Timestamp now print. 'X: ' print. untranslatedKey printCR.
+        untranslatedKey := untranslatedKeyArg
+    ].
+
+    "/ Logger info:'Display keyPress: %1 (%2@%3)' with:untranslatedKey with:x with:y.
+    "/ (Timestamp now print. 'X: ' print. untranslatedKey printCR.
 
     "/ ctrl/meta-ESC give up focus& escapes an activePointerGrab
     untranslatedKey == #Escape ifTrue:[
-	(activePointerGrab notNil
-	and:[ctrlDown or:[metaDown]]) ifTrue:[
-	    "/ 'Display: ungrab' printCR.
-	    self ungrabPointer.
-	    self ungrabKeyboard.
-	    self setInputFocusTo:nil
-	]
+        (activePointerGrab notNil
+        and:[ctrlDown or:[metaDown]]) ifTrue:[
+            "/ 'Display: ungrab' printCR.
+            self ungrabPointer.
+            self ungrabKeyboard.
+            self setInputFocusTo:nil
+        ]
     ].
 
     self modifierKeyProcessing:untranslatedKey down:true.
 
     aView isNil ifTrue:[
-	"/ event arrived, after I destroyed it myself
-	"/ 'Display: key for no view' printCR.
-	^ self
+        "/ event arrived, after I destroyed it myself
+        "/ 'Display: key for no view' printCR.
+        ^ self
     ].
 
 "/    xlatedKey := self translateKey:untranslatedKey forView:aView.
@@ -4972,16 +4975,17 @@
     |untranslatedKey xlatedKey|
 
     untranslatedKeyArg isInteger ifTrue:[
-	untranslatedKey := Character value:untranslatedKeyArg
+        untranslatedKey := Character value:untranslatedKeyArg
     ] ifFalse:[
-	untranslatedKey := untranslatedKeyArg
-    ].
+        untranslatedKey := untranslatedKeyArg
+    ].
+    "/ Logger info:'Display keyRelease: %1 (%2@%3)' with:untranslatedKey with:x with:y.
 
     self modifierKeyProcessing:untranslatedKey down:false.
 
     aView isNil ifTrue:[
-	"/ event arrived, after I destroyed it myself
-	^ self
+        "/ event arrived, after I destroyed it myself
+        ^ self
     ].
 
     xlatedKey := self translateKey:untranslatedKey forView:aView.