--- a/SimpleView.st	Fri Oct 12 12:09:13 2018 +0200
+++ b/SimpleView.st	Fri Oct 12 19:04:29 2018 +0200
@@ -6507,14 +6507,7 @@
     ].
 
     superView notNil ifTrue:[
-        superView
-            dispatchEvent:#keyPress:x:y:
-            arguments:(Array with:key with:0 with:0)
-
-"/        WindowEvent
-"/            sendEvent:#keyPress:x:y:
-"/            arguments:(Array with:key with:0 with:0)
-"/            view:superView
+        superView dispatchEvent:(WindowEvent keyPress:key x:0 y:0 view:superView)
     ] ifFalse:[
         super keyPress:key x:x y:y
     ]