--- a/ListView.st	Mon Sep 18 22:17:59 2006 +0200
+++ b/ListView.st	Wed Sep 20 15:30:26 2006 +0200
@@ -2826,6 +2826,15 @@
      - works for fix-height fonts only"
 
     ^ ((visLineNr - 1) * fontHeight) + textStartTop
+!
+
+yVisibleToLineNr:yVisible
+    |vL|
+
+    vL := self visibleLineOfY:yVisible.
+    ^ self visibleLineToListLine:vL
+
+    "Created: / 20-09-2006 / 15:29:12 / cg"
 ! !
 
 !ListView methodsFor:'queries'!
@@ -4483,5 +4492,5 @@
 !ListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.311 2006-08-22 10:15:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.312 2006-09-20 13:30:26 cg Exp $'
 ! !