--- a/ListView.st	Wed Mar 05 17:32:19 1997 +0100
+++ b/ListView.st	Thu Mar 06 15:25:34 1997 +0100
@@ -796,12 +796,12 @@
         ^ self
     ].
 
-    list isNil ifTrue:[
-        linesShownBefore := (1 to:nLinesShown) collect:[:i | ''].
-    ] ifFalse:[
-        linesShownBefore := (firstLineShown to:(firstLineShown+nLinesShown-1))
-                            collect:[:i | (self at:i) ? ''].
-    ].
+"/    list isNil ifTrue:[
+"/        linesShownBefore := (1 to:nLinesShown) collect:[:i | ''].
+"/    ] ifFalse:[
+"/        linesShownBefore := (firstLineShown to:(firstLineShown+nLinesShown-1))
+"/                            collect:[:i | (self at:i) ? ''].
+"/    ].
 
     list := aCollection.
 
@@ -837,29 +837,31 @@
     ].
 "/ end new
     shown ifTrue:[
-        linesShownBefore isNil ifTrue:[
-            self redrawFromVisibleLine:1 to:nLinesShown
-        ] ifFalse:[
-            1 to:nLinesShown do:[:l |
-                |oldLine newLine|
-
-                newLine := self visibleAt:l.
-                newLine size == 0 ifTrue:[
-                    newLine := ''
-                ].
-                oldLine := linesShownBefore at:l ifAbsent:nil.
-                oldLine size == 0 ifTrue:[
-                    oldLine := ''
-                ].
-                oldLine ~= newLine ifTrue:[
-                    self redrawVisibleLine:l
-                ]
-            ]
-        ]
+          self redrawFromVisibleLine:1 to:nLinesShown
+
+"/        linesShownBefore isNil ifTrue:[
+"/            self redrawFromVisibleLine:1 to:nLinesShown
+"/        ] ifFalse:[
+"/            1 to:nLinesShown do:[:l |
+"/                |oldLine newLine|
+"/
+"/                newLine := self visibleAt:l.
+"/                newLine size == 0 ifTrue:[
+"/                    newLine := ''
+"/                ].
+"/                oldLine := linesShownBefore at:l ifAbsent:nil.
+"/                oldLine size == 0 ifTrue:[
+"/                    oldLine := ''
+"/                ].
+"/                oldLine ~= newLine ifTrue:[
+"/                    self redrawVisibleLine:l
+"/                ]
+"/            ]
+"/        ]
     ]
 
     "Modified: 18.12.1995 / 23:27:54 / stefan"
-    "Modified: 5.3.1997 / 17:20:48 / cg"
+    "Modified: 6.3.1997 / 15:23:37 / cg"
 !
 
 size
@@ -3584,5 +3586,5 @@
 !ListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.126 1997-03-05 16:31:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.127 1997-03-06 14:25:34 cg Exp $'
 ! !