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. ]. ].