--- 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'!