--- a/ApplicationSubView.st	Sun Oct 27 10:31:43 2019 +0100
+++ b/ApplicationSubView.st	Fri Nov 01 12:32:05 2019 +0100
@@ -137,6 +137,23 @@
 
 !
 
+keyPress:key x:x y:y
+    <resource: #keyboard ( #Help) >
+
+    |app|
+
+    key == #Help ifTrue:[
+        Error handle:[:ex |
+        ] do:[
+            (app := self application) notNil ifTrue:[
+                app helpKeyPressed.
+                ^ self.
+            ].
+        ].
+    ].
+    super keyPress:key x:x y:y
+!
+
 preRealize
     |app|