ListView.st
changeset 4280 61a16b0a99d5
parent 4247 a2786871ebe7
child 4303 dbd6a7f7c3f9
--- 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 $'
 ! !