--- a/FlyByHelp.st Tue Dec 06 17:34:47 2016 +0100
+++ b/FlyByHelp.st Tue Dec 06 17:48:41 2016 +0100
@@ -200,11 +200,12 @@
text := aView flyByHelpText.
text notNil ifTrue:[^ text].
].
- (aView superView notNil
- and:[aView superView respondsTo:#flyByHelpTextFor:]) ifTrue:[
- text := aView superView flyByHelpTextFor:aView.
- 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:[