--- a/ApplicationModel.st Sun Oct 20 12:00:14 2019 +0200
+++ b/ApplicationModel.st Sun Oct 20 12:00:36 2019 +0200
@@ -3127,13 +3127,12 @@
"there is no help text - resolve key from resources"
helpText := (self translateString:aKey).
helpText = aKey ifTrue:[
+ "/ nothing came...
+
+ "/ special: if ctrl is pressed, show the helpkey
(FlyByHelp helpKeyInsteadOfHelpTextQuery query ? false) ifTrue:[
- Smalltalk isStandAloneApp ifFalse:[
- ^ c'Helpkey (%1): %2' bindWith:self with:aKey.
- ].
^ c'Helpkey (%1): %2\nHold CTRL and press SHIFT for menu' bindWith:self with:aKey.
].
- "/ nothing came...
helpText := nil
].
^ helpText.