# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1158759026 -7200
# Node ID d5c915fe3d922c2e18c30d48ab27fc7ad731b979
# Parent  cd20f51edc25f08e8f2f27f8b1532ef96a89ef90
oops - ListModelView protocol

diff -r cd20f51edc25 -r d5c915fe3d92 ListView.st
--- 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 $'
 ! !