--- a/ListView.st	Sat Oct 10 06:57:53 2015 +0200
+++ b/ListView.st	Sun Oct 11 06:59:34 2015 +0200
@@ -3205,7 +3205,8 @@
 
 widthOfWidestLineBetween:firstLine and:lastLine
     "return the width in pixels of the widest line in a range
-     - used to optimize scrolling, by limiting the scrolled area"
+     - used to optimize scrolling, by limiting the scrolled area;
+       not for scrollbar or other width related stuff which should be exact."
 
     |max      "{ Class: SmallInteger }"
      first    "{ Class: SmallInteger }"

--- a/SelectionInListView.st	Sat Oct 10 06:57:53 2015 +0200
+++ b/SelectionInListView.st	Sun Oct 11 06:59:34 2015 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -2792,6 +2794,19 @@
     ^ false
 ! !
 
+!SelectionInListView methodsFor:'help'!
+
+flyByHelpTextAt:aPoint
+    |lineNr len|
+
+    lineNr := self lineAtY:aPoint y.
+    len := self widthOfLine:lineNr.
+    len > width ifTrue:[
+        ^ (self listAt:lineNr)  
+    ].      
+    ^ nil
+! !
+
 !SelectionInListView methodsFor:'initialization'!
 
 fetchDeviceResources