#FEATURE by cg draft
authorClaus Gittinger <cg@exept.de>
Mon, 23 Jul 2018 09:19:59 +0200
changeset 3576 e62c95ddd17b
parent 3575 a9fc2d3553f3
child 3577 5a3b84a9d7e7
#FEATURE by cg class: FlyByWindowInformation changed: #helpTextFor:at:
FlyByWindowInformation.st
--- a/FlyByWindowInformation.st	Wed Jul 18 13:36:53 2018 +0200
+++ b/FlyByWindowInformation.st	Mon Jul 23 09:19:59 2018 +0200
@@ -268,7 +268,31 @@
         modelToInspect notNil ifTrue:[
             s nextPutLine:(resources string:'Model: %1' with:modelToInspect class name allBold).
         ].
-
+        aPointOrNil notNil ifTrue:[
+            (aView isKindOf:MenuPanel) ifTrue:[
+                |item itemValue helpKey|
+                
+                (item := aView itemAt:aPointOrNil) notNil ifTrue:[
+                    (helpKey := item activeHelpKey) notNil ifTrue:[
+                        s nextPutLine:(resources string:'HelpKey: %1' with:helpKey allBold).
+                    ].
+                    (itemValue := item itemValue) isSymbol ifTrue:[
+                        s nextPutLine:(resources string:'Action: %1' with:itemValue allBold).
+                    ] ifFalse:[    
+                        itemValue isBlock ifTrue:[
+                            s nextPutLine:(resources string:'Action: %1' with:itemValue printString).
+                        ]    
+                    ].
+                ].
+            ] ifFalse:[
+                |helpKey|
+                
+                (helpKey := aView helpKey) notNil ifTrue:[
+                    s nextPutLine:(resources string:'HelpKey: %1' with:helpKey allBold).
+                ].
+            ].    
+        ].
+        
         s cr.
         s nextPutLine:'Press:'.
 
@@ -306,6 +330,7 @@
     "
 
     "Modified: / 12-11-2010 / 11:54:59 / cg"
+    "Modified: / 23-07-2018 / 09:18:44 / Claus Gittinger"
 ! !
 
 !FlyByWindowInformation methodsFor:'private'!