# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 861367974 -7200
# Node ID 4707499d3308df7a69b9adf11fe83857aa564c2a
# Parent  811135bbd017c755902fd105508214c55e3e2a9c
checkin from browser

diff -r 811135bbd017 -r 4707499d3308 ListView.st
--- a/ListView.st	Fri Apr 18 13:18:54 1997 +0200
+++ b/ListView.st	Fri Apr 18 14:52:54 1997 +0200
@@ -577,10 +577,22 @@
 at:index put:aString
     "change a line and redisplay"
 
+    |visibleLine y|
+
     self withoutRedrawAt:index put:aString.
     shown ifTrue:[
-	self redrawLine:index
+        "/ synchronous:
+        self redrawLine:index
+
+        "/ asynchronous:
+"/        visibleLine := self listLineToVisibleLine:index.
+"/        visibleLine notNil ifTrue:[
+"/            y := self yOfVisibleLine:visibleLine.
+"/            self invalidate:((margin @ y) extent:(width@fontHeight))
+"/        ].
     ]
+
+    "Modified: 18.4.1997 / 14:52:28 / cg"
 !
 
 characterAtLine:lineNr col:colNr
@@ -3609,5 +3621,5 @@
 !ListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.129 1997-04-17 00:14:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.130 1997-04-18 12:52:54 cg Exp $'
 ! !