--- a/FlyByHelp.st	Sat Nov 26 07:08:33 2016 +0100
+++ b/FlyByHelp.st	Wed Dec 07 06:44:25 2016 +0100
@@ -200,6 +200,12 @@
         text := aView flyByHelpText.
         text notNil ifTrue:[^ text].
     ].
+    "/ to be enabled in next release...
+"/    (aView superView notNil
+"/    and:[aView superView respondsTo:#flyByHelpTextFor:]) ifTrue:[
+"/        text := aView superView flyByHelpTextFor:aView.
+"/        text notNil ifTrue:[^ text].
+"/    ].
     (aView respondsTo:#helpKey) ifTrue:[
         key := aView helpKey.
         key notNil ifTrue:[