--- a/TextView.st	Fri Sep 28 15:24:46 2001 +0200
+++ b/TextView.st	Fri Sep 28 15:25:26 2001 +0200
@@ -3065,12 +3065,11 @@
 selectLineAtY:y
     "select the line at given y-(view-)coordinate"
 
-    |selectVisibleLine selectLine|
-
-    selectVisibleLine := self visibleLineOfY:y.
-    selectLine := self visibleLineToListLine:selectVisibleLine.
+    |selectLine|
+
+    selectLine := self lineAtY:y. "/ self visibleLineToListLine:(self visibleLineOfY:y).
     selectLine notNil ifTrue:[
-	self selectLine:selectLine
+        self selectLine:selectLine
     ]
 !
 
@@ -3212,5 +3211,5 @@
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.165 2001-09-27 17:52:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.166 2001-09-28 13:24:59 cg Exp $'
 ! !