# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 847146570 -3600
# Node ID 577f43703ba18bfa99b7021cd099b1789c3c982e
# Parent  ed4282df00a05f7c60a34c90a96cbdeec77fec9d
checkin from browser

diff -r ed4282df00a0 -r 577f43703ba1 ListView.st
--- a/ListView.st	Fri Nov 01 18:32:39 1996 +0100
+++ b/ListView.st	Mon Nov 04 23:29:30 1996 +0100
@@ -672,14 +672,17 @@
     ].
     list := aCollection.
 
+    nonStringsBefore := includesNonStrings.
+    includesNonStrings := false.
+
     list notNil ifTrue:[
         expand ifTrue:[
             self expandTabs
         ] ifFalse:[
             includesNonStrings := (list findFirst:[:e | e isString not]) ~~ 0.
         ].
-        (includesNonStrings or:[nonStringsBefore]) ifTrue:[self getFontParameters].
     ].
+    (includesNonStrings ~~ nonStringsBefore) ifTrue:[self getFontParameters].
 
     widthOfWidestLine := nil.   "/ i.e. unknown
     oldFirst := firstLineShown.
@@ -702,7 +705,7 @@
     ]
 
     "Modified: 30.8.1995 / 19:07:13 / claus"
-    "Modified: 22.10.1996 / 23:19:19 / cg"
+    "Modified: 4.11.1996 / 23:27:58 / cg"
 !
 
 removeIndex:lineNr
@@ -797,15 +800,17 @@
     ].
     list := aCollection.
 
+    nonStringsBefore := includesNonStrings.
+    includesNonStrings := false.
+
     list notNil ifTrue:[
-        nonStringsBefore := includesNonStrings.
         expandTabs ifTrue:[
             self expandTabs
         ] ifFalse:[
             includesNonStrings := (list findFirst:[:e | e isString not]) ~~ 0.
         ].
-        (includesNonStrings or:[nonStringsBefore]) ifTrue:[self getFontParameters].
     ].
+    (includesNonStrings ~~ nonStringsBefore) ifTrue:[self getFontParameters].
 
 "/ new - reposition horizontally if too big
     widthOfWidestLine := nil.   "/ i.e. unknown
@@ -830,7 +835,7 @@
     ]
 
     "Modified: 18.12.1995 / 23:27:54 / stefan"
-    "Modified: 22.10.1996 / 23:17:58 / cg"
+    "Modified: 4.11.1996 / 23:28:55 / cg"
 !
 
 size
@@ -1414,11 +1419,13 @@
     leftOffset := 0.
     partialLines := true.
     tabPositions := DefaultTabPositions.
+    includesNonStrings := false.
     self getFontParameters.
     wordCheck := [:char | char isNationalAlphaNumeric].
-    includesNonStrings := false.
 
     autoScroll := true.
+
+    "Modified: 4.11.1996 / 23:28:17 / cg"
 !
 
 realize
@@ -3463,5 +3470,5 @@
 !ListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.104 1996-10-22 22:20:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.105 1996-11-04 22:29:30 cg Exp $'
 ! !