#UI_ENHANCEMENT by cg
authorClaus Gittinger <cg@exept.de>
Tue, 06 Dec 2016 17:48:41 +0100
changeset 3804 23207b26bfee
parent 3803 5d63533f127b
child 3805 ec5c11d99484
child 3806 b3ca52c3e77f
#UI_ENHANCEMENT by cg class: FlyByHelp changed: #helpTextFromView:at:
FlyByHelp.st
--- 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:[