StandardSystemView.st
changeset 8857 fb8ba3ad5842
parent 8855 e7263db023af
child 8997 f1587295ce5a
--- a/StandardSystemView.st	Fri Nov 01 06:28:21 2019 +0100
+++ b/StandardSystemView.st	Fri Nov 01 12:32:17 2019 +0100
@@ -1097,11 +1097,13 @@
 
     <resource: #keyboard ( #Help) >
 
+    |app|
+
     key == #Help ifTrue:[
         Error handle:[:ex |
         ] do:[
-            self application notNil ifTrue:[
-                self application openDocumentation.
+            (app := self application) notNil ifTrue:[
+                app helpKeyPressed.
                 ^ self.
             ].
         ].