author | Claus Gittinger <cg@exept.de> |
Mon, 22 Oct 2018 13:15:47 +0200 | |
changeset 4200 | 15c69749a371 |
parent 4199 | d74cea0df1a7 |
child 4201 | bdf4332ad870 |
--- a/ApplicationModel.st Mon Oct 15 14:00:30 2018 +0200 +++ b/ApplicationModel.st Mon Oct 22 13:15:47 2018 +0200 @@ -2720,6 +2720,7 @@ ^ helpText value. ]. + "/ special: if ctrl is pressed, show the helpkey (helpText notNil and:[self window device ctrlDown]) ifTrue:[ ^ 'Helpkey: ',aKey printString. ].