--- a/VDBAbstractListApplication.st Sun Jul 29 18:55:01 2018 +0100
+++ b/VDBAbstractListApplication.st Sun Jul 29 22:01:45 2018 +0100
@@ -353,6 +353,27 @@
^ self subclassResponsibility
! !
+!VDBAbstractListApplication methodsFor:'help texts'!
+
+flyByHelpTextFor:aView at: aPoint
+ | line item |
+
+ line := internalListView yVisibleToLineNr: aPoint y.
+ line notNil ifTrue:[
+ item := internalListView list at: line ifAbsent:[ nil ].
+ item notNil ifTrue:[
+ | tooltip |
+
+ tooltip := item tooltip.
+ tooltip notNil ifTrue:[ ^ tooltip ]
+ ].
+ ].
+
+ ^ super flyByHelpTextFor:aView
+
+ "Created: / 29-07-2018 / 21:30:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
!VDBAbstractListApplication methodsFor:'hooks'!
commonPostOpen
--- a/VDBAbstractPresenter.st Sun Jul 29 18:55:01 2018 +0100
+++ b/VDBAbstractPresenter.st Sun Jul 29 22:01:45 2018 +0100
@@ -96,6 +96,16 @@
^ self subclassResponsibility
"Created: / 05-02-2018 / 13:07:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+tooltip
+ "Return tooltip (fly-by-help) text as string or `nil`.
+ If `nil` is returned, list views will show generic
+ toolip for the item"
+
+ ^ nil
+
+ "Created: / 29-07-2018 / 21:32:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!VDBAbstractPresenter methodsFor:'change & update'!