ApplicationModel.st
changeset 4384 0c556a4def9c
parent 4381 d761df03f034
child 4391 87ceb93d9ad1
--- 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.