--- a/ListView.st Tue Jul 05 10:11:47 2011 +0200
+++ b/ListView.st Tue Jul 05 23:27:11 2011 +0200
@@ -3103,23 +3103,23 @@
|lineNr sum lastLine lineEndCharSize|
- lineEndCharSize := self lineEndCRLF ifTrue:2 ifFalse:1.
+ lineEndCharSize := self lineEndCRLF ifTrue:[2] ifFalse:[1].
lineNr := 1.
sum := 0.
lastLine := self size.
[(sum < charPos) and:[lineNr <= lastLine]] whileTrue:[
- sum := sum + (self at:lineNr) size + lineEndCharSize.
- lineNr := lineNr + 1
+ sum := sum + (self at:lineNr) size + lineEndCharSize.
+ lineNr := lineNr + 1
].
sum == charPos ifTrue:[
- ^ lineNr
+ ^ lineNr
].
^ lineNr - 1
- "Modified: / 05-04-1998 / 17:19:28 / cg"
"Modified: / 04-07-2006 / 19:13:32 / fm"
+ "Modified: / 05-07-2011 / 22:52:11 / cg"
!
numberOfLines
@@ -4637,10 +4637,6 @@
!ListView class methodsFor:'documentation'!
-version
- ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.345 2011-05-02 12:08:38 sr Exp $'
-!
-
version_CVS
- ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.345 2011-05-02 12:08:38 sr Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.346 2011-07-05 21:27:11 cg Exp $'
! !