author | Claus Gittinger <cg@exept.de> |
Fri, 01 Nov 2019 12:32:17 +0100 | |
changeset 8857 | fb8ba3ad5842 |
parent 8856 | fe501b1053b8 |
child 8858 | 1a64faf25e1b |
--- 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. ]. ].