--- 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