--- a/SelectionInListView.st	Sat Oct 10 16:54:12 2015 +0200
+++ b/SelectionInListView.st	Sat Oct 10 16:54:30 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