--- a/ListView.st	Tue Apr 30 11:03:58 1996 +0200
+++ b/ListView.st	Tue Apr 30 11:39:03 1996 +0200
@@ -529,6 +529,28 @@
     ]
 !
 
+characterAtLine:lineNr col:colNr
+    "return the character at physical line/col. 
+     The lineNr and colNr arguments start at 1, for the top-left cgaracter.
+     Return a space character if nothing is there
+     (i.e. behond 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
+            ]
+        ]
+    ].
+    ^ Character space
+
+    "Created: 29.4.1996 / 12:11:00 / cg"
+    "Modified: 29.4.1996 / 12:12:41 / cg"
+!
+
 contents
     "return the contents as a string"
 
@@ -3060,5 +3082,5 @@
 !ListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.79 1996-04-27 18:23:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.80 1996-04-30 09:39:03 cg Exp $'
 ! !