--- a/SimpleView.st	Thu Oct 17 21:35:33 2019 +0200
+++ b/SimpleView.st	Thu Oct 17 22:05:43 2019 +0200
@@ -6533,13 +6533,20 @@
     x isNil ifTrue:[
         "/ already redelegated, but nowhere handled
         superView notNil ifTrue:[
+            "/ Transcript show:'->'; showCR:superView.
             superView keyPress:key x:nil y:nil.
+            ^ self.
         ].
+        "/ event rippled up and noone handled it.
+        "/ key == #Help ifTrue:[
+        "/     self halt.
+        "/ ].
         ^ self
     ].
 
     superView notNil ifTrue:[
         superView dispatchEvent:(WindowEvent keyPress:key x:0 y:0 view:superView)
+                  withFocusOn:nil delegate:true.
     ] ifFalse:[
         super keyPress:key x:x y:y
     ]