--- a/ListView.st	Thu Aug 12 13:43:30 1999 +0200
+++ b/ListView.st	Thu Aug 12 16:08:21 1999 +0200
@@ -749,10 +749,10 @@
     |oldFirst oldLeft nonStringsBefore fontHeightBefore|
 
     (aCollection isNil and:[list isNil]) ifTrue:[
-	"no change"
-	self scrollToTop.
-	self scrollToLeft.
-	^ self
+        "no change"
+        self scrollToTop.
+        self scrollToLeft.
+        ^ self
     ].
     list := aCollection.
 
@@ -761,18 +761,18 @@
     includesNonStrings := false.
 
     list notNil ifTrue:[
-	expand ifTrue:[
-	    self expandTabs
-	] ifFalse:[
-	    scan ifTrue:[
-		includesNonStrings := (list findFirst:[:e | e isString not]) ~~ 0.
-	    ] ifFalse:[
-		includesNonStrings := nonStrings
-	    ]
-	].
+        expand ifTrue:[
+            self expandTabs
+        ] ifFalse:[
+            scan ifTrue:[
+                includesNonStrings := (list findFirst:[:e | e isString not]) ~~ 0.
+            ] ifFalse:[
+                includesNonStrings := nonStrings
+            ]
+        ].
     ].
     (includesNonStrings ~~ nonStringsBefore) ifTrue:[
-	self getFontParameters.
+        self getFontParameters.
     ].
 
     widthOfWidestLine := nil.   "/ i.e. unknown
@@ -782,28 +782,29 @@
     leftOffset := 0.
 
     realized ifTrue:[
-	(includesNonStrings ~~ nonStringsBefore) ifTrue:[
-	    self computeNumberOfLinesShown.
-	].
-	self contentsChanged.
-	"
-	 dont use scroll here to avoid double redraw
-	"
-	viewOrigin := 0 @ 0.
-
-	oldFirst ~~ firstLineShown ifTrue:[
-	    self originChanged:0 @ ((oldFirst - 1) * fontHeight negated).
-	].
-	shown ifTrue:[
-	    self redrawFromVisibleLine:1 to:nLinesShown.
-
-	    fontHeightBefore > fontHeight ifTrue:[
-		(self listLineIsVisible:(self size)) ifTrue:[
+        (includesNonStrings ~~ nonStringsBefore) ifTrue:[
+            self computeNumberOfLinesShown.
+        ].
+        self contentsChanged.
+        "
+         dont use scroll here to avoid double redraw
+        "
+        viewOrigin := 0 @ 0.
+        transformation := nil.
+
+        oldFirst ~~ firstLineShown ifTrue:[
+            self originChanged:0 @ ((oldFirst - 1) * fontHeight negated).
+        ].
+        shown ifTrue:[
+            self redrawFromVisibleLine:1 to:nLinesShown.
+
+            fontHeightBefore > fontHeight ifTrue:[
+                (self listLineIsVisible:(self size)) ifTrue:[
 "/                    self clearRectangle:((margin @ (self yOfVisibleLine:nLinesShown+1))
 "/                                        corner:(width-margin) @ (height-margin)).
-		].
-	    ]
-	]
+                ].
+            ]
+        ]
     ]
 
     "Modified: / 30.8.1995 / 19:07:13 / claus"
@@ -1484,12 +1485,14 @@
  
     visLineNr := self listLineToVisibleLine:line.
     visLineNr notNil ifTrue:[
-	yTop := self yOfVisibleLine:visLineNr.
-	yTop isNil ifTrue:[^ self]. "/ not visible
-	(yTop + fontHeight) < 0 ifTrue:[^ self]. "/ not visible
-	self invalidate:(Rectangle 
-			    left:margin top:yTop 
-			    width:(width - (2 * margin)) height:fontHeight).
+        yTop := self yOfVisibleLine:visLineNr.
+        yTop isNil ifTrue:[^ self]. "/ not visible
+        (yTop + fontHeight) < 0 ifTrue:[^ self]. "/ not visible
+        self 
+            invalidateDeviceRectangle:(Rectangle 
+                            left:margin top:yTop 
+                            width:(width - (2 * margin)) height:fontHeight)
+            repairNow:false.
     ]
 
     "Created: / 5.3.1998 / 01:24:19 / cg"
@@ -3917,5 +3920,5 @@
 !ListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.211 1999-08-12 11:43:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.212 1999-08-12 14:08:21 cg Exp $'
 ! !