ListView.st
changeset 6155 ed122bb2a18a
parent 6098 62a103f41b17
child 6158 86279357c196
--- a/ListView.st	Thu May 11 17:57:43 2017 +0200
+++ b/ListView.st	Thu May 11 18:51:36 2017 +0200
@@ -899,24 +899,24 @@
 
 characterAtLine:lineNr col:colNr
     "return the character at physical line/col.
-     The lineNr and colNr arguments start at 1, for the top-left cgaracter.
+     The lineNr and colNr arguments start at 1, for the top-left character.
      Return a space character if nothing is there
      (i.e. beyond the end of the line or below the last line)"
 
     |line|
 
     list notNil ifTrue:[
-	line := self listAt:lineNr.
-	line notNil ifTrue:[
-	    (line size >= colNr) ifTrue:[
-		^ line at:colNr
-	    ]
-	]
+        line := self listAt:lineNr.
+        line notNil ifTrue:[
+            (line size >= colNr) ifTrue:[
+                ^ line at:colNr
+            ]
+        ]
     ].
     ^ Character space
 
-    "Created: 29.4.1996 / 12:11:00 / cg"
-    "Modified: 29.4.1996 / 12:12:41 / cg"
+    "Created: / 29-04-1996 / 12:11:00 / cg"
+    "Modified (comment): / 11-05-2017 / 17:11:16 / stefan"
 !
 
 contents