#FEATURE by cg
authorClaus Gittinger <cg@exept.de>
Fri, 01 Jun 2018 14:48:51 +0200
changeset 5782 7846566f9503
parent 5781 38948bac30f3
child 5783 e789f1b6f781
#FEATURE by cg class: MenuPanel::Item changed: #activeHelpText also try the indication for the helpKey
MenuPanel.st
--- a/MenuPanel.st	Thu May 31 11:56:11 2018 +0200
+++ b/MenuPanel.st	Fri Jun 01 14:48:51 2018 +0200
@@ -7157,7 +7157,11 @@
         ] ifFalse:[
             self itemValue isSymbol ifTrue:[
                 key := self itemValue
-            ].
+            ] ifFalse:[
+                (menuItem notNil and:[menuItem indication isSymbol]) ifTrue:[
+                    key := menuItem indication
+                ]
+            ]    
         ].
     ].
     (key notNil and:[(app := menuPanel application) notNil]) ifTrue:[
@@ -7167,6 +7171,11 @@
                 self itemValue isSymbol ifTrue:[
                     text := app helpTextForKey:self itemValue.
                 ].
+                text isNil ifTrue:[
+                    (menuItem notNil and:[menuItem indication isSymbol]) ifTrue:[
+                        text := app helpTextForKey:menuItem indication.
+                    ]    
+                ].
             ].
         ].
     ].
@@ -7187,6 +7196,8 @@
         ].
     ].
     ^ text
+
+    "Modified: / 01-06-2018 / 14:48:05 / Claus Gittinger"
 !
 
 activeHelpText:aText