--- a/FlyByHelp.st	Thu Jan 30 09:40:05 2020 +0100
+++ b/FlyByHelp.st	Thu Jan 30 12:49:12 2020 +0100
@@ -542,14 +542,25 @@
 helpTextFromModel:aModel view:aView at:aPointOrNil 
     "helper: ask aModel for its helpText."
 
-    |text|
+    |text action info|
 
-    (aPointOrNil notNil and:[aModel respondsTo:#helpTextFor:at:]) ifTrue:[
-        text := aModel helpTextFor:aView at:aPointOrNil.
-        text notNil ifTrue:[
-            "/ Transcript showCR:aModel.
-            "/ Transcript showCR:'via model-text'; showCR:text.
-            ^ text
+    aPointOrNil notNil ifTrue:[
+        action := aView actionAt:aPointOrNil.
+        action notNil ifTrue:[
+            "/ Transcript show:'action under info label:'; showCR:action.
+            info := action perform:#info ifNotUnderstood:nil.
+            info notNil ifTrue:[
+                ^ info value
+            ].
+        ].
+
+        (aModel respondsTo:#helpTextFor:at:) ifTrue:[
+            text := aModel helpTextFor:aView at:aPointOrNil.
+            text notNil ifTrue:[
+                "/ Transcript showCR:aModel.
+                "/ Transcript showCR:'via model-text'; showCR:text.
+                ^ text
+            ].
         ].
     ].
     (aModel respondsTo:#helpTextFor:) ifTrue:[