Mercurial Mercurial > hg > stx-libview2 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
#FEATURE by cg
authorClaus Gittinger <cg@exept.de>
Tue, 06 Dec 2016 17:34:47 +0100
changeset 3803 5d63533f127b
parent 3802 2e94f5fddb51
child 3804 23207b26bfee
#FEATURE by cg class: FlyByHelp changed: #helpTextFromView:at: also ask view, if it knows something about a subview.
FlyByHelp.st file | annotate | diff | comparison | revisions 
--- a/FlyByHelp.st	Tue Dec 06 12:45:42 2016 +0100
+++ b/FlyByHelp.st	Tue Dec 06 17:34:47 2016 +0100
@@ -200,6 +200,11 @@
         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].
+    ].
     (aView respondsTo:#helpKey) ifTrue:[
         key := aView helpKey.
         key notNil ifTrue:[
hg/stx-libview2