VDBAbstractListApplication.st
changeset 85 48e6c61382b6
parent 79 f17d02897d01
child 90 a61a6cd28019
--- 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