ListView.st
changeset 4448 2e4bb12f298c
parent 4444 3cffa8b45961
child 4463 8bfe40af7940
--- a/ListView.st	Wed Aug 22 23:59:10 2012 +0200
+++ b/ListView.st	Thu Aug 23 16:35:13 2012 +0200
@@ -3146,7 +3146,7 @@
 lineOfCharacterPosition:charPos
     "given a character index within the contents-string,
      return the lineNumber where the character is
-     - used to find line to hilight from Compilers error-position"
+     - used to find line to hilight from compiler's error-position"
 
     |lineNr sum lastLine lineEndCharSize l|
 
@@ -3164,7 +3164,7 @@
         ^ lineNr
     ].
 
-    ^ lineNr - 1
+    ^ (lineNr - 1) max:1
 
     "Modified: / 04-07-2006 / 19:13:32 / fm"
     "Modified: / 21-08-2011 / 10:50:12 / cg"
@@ -4710,5 +4710,5 @@
 !ListView class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.353 2012-08-05 10:24:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.354 2012-08-23 14:35:13 cg Exp $'
 ! !