#UI_ENHANCEMENT by exept
authorClaus Gittinger <cg@exept.de>
Fri, 01 Nov 2019 12:32:17 +0100
changeset 8857 fb8ba3ad5842
parent 8856 fe501b1053b8
child 8858 1a64faf25e1b
#UI_ENHANCEMENT by exept class: StandardSystemView changed: #keyPress:x:y:
StandardSystemView.st
--- 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.
             ].
         ].