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