--- 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 $'
! !