--- a/ListView.st	Thu Jun 05 11:28:18 1997 +0200
+++ b/ListView.st	Thu Jun 05 12:40:55 1997 +0200
@@ -700,6 +700,19 @@
      assume that it does contain non-strings
      (remembered to optimize later redraws)."
 
+    self
+        list:aCollection expandTabs:expand scanForNonStrings:scan includesNonStrings:true
+
+    "Modified: 5.6.1997 / 12:40:35 / cg"
+!
+
+list:aCollection expandTabs:expand scanForNonStrings:scan includesNonStrings:nonStrings
+    "set the contents (a collection of strings) and scroll to top-left.
+     If expand is true, tabs are expanded (to spaces).
+     If scan is true, scan the passed list for nonStrings; 
+     otherwise, take the information from the nonStrings arg.
+     (the nonStrings information is remembered to optimize later redraws & height computations)."
+
     |oldFirst oldLeft nonStringsBefore|
 
     (aCollection isNil and:[list isNil]) ifTrue:[
@@ -720,7 +733,7 @@
             scan ifTrue:[
                 includesNonStrings := (list findFirst:[:e | e isString not]) ~~ 0.
             ] ifFalse:[
-                includesNonStrings := true
+                includesNonStrings := nonStrings
             ]
         ].
     ].
@@ -747,8 +760,8 @@
     ]
 
     "Modified: 30.8.1995 / 19:07:13 / claus"
-    "Created: 5.6.1997 / 11:08:30 / cg"
     "Modified: 5.6.1997 / 11:09:56 / cg"
+    "Created: 5.6.1997 / 12:40:06 / cg"
 !
 
 removeIndex:lineNr
@@ -3647,5 +3660,5 @@
 !ListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.133 1997-06-05 09:28:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.134 1997-06-05 10:40:55 cg Exp $'
 ! !