# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 956068643 -7200
# Node ID fb9bc638123afec715925da244b28b7c976c06cc
# Parent  2b2351d0c0c45cfa0940c4eddb540cabb5f60d3d
mus notify textChanged in #add: / #add:beforeIndex:
even if not shown (otherwise scrollBars are not updated correctly)

diff -r 2b2351d0c0c4 -r fb9bc638123a ListView.st
--- a/ListView.st	Tue Apr 18 12:10:59 2000 +0200
+++ b/ListView.st	Tue Apr 18 16:37:23 2000 +0200
@@ -588,13 +588,13 @@
 
     list add:aString.
     includesNonStrings ifFalse:[
-	includesNonStrings := (aString notNil and:[aString isString not]).
+        includesNonStrings := (aString notNil and:[aString isString not]).
 "/        includesNonStrings ifTrue:[self getFontParameters].
     ].
     shown ifTrue:[
-	self redrawLine:(self size).
-	self contentsChanged.             "recompute scrollbars"
-    ]
+        self redrawLine:(self size).
+    ].
+    self contentsChanged.             "recompute scrollbars"
 
     "Modified: 22.10.1996 / 23:18:47 / cg"
 !
@@ -605,13 +605,13 @@
     list isNil ifTrue:[list := OrderedCollection new].
     list add:aString beforeIndex:index.
     includesNonStrings ifFalse:[
-	includesNonStrings := (aString notNil and:[aString isString not]).
+        includesNonStrings := (aString notNil and:[aString isString not]).
 "/        includesNonStrings ifTrue:[self getFontParameters].
     ].
     shown ifTrue:[
-	self redrawFromLine:index.
-	self contentsChanged.             "recompute scrollbars"
-    ]
+        self redrawFromLine:index.
+    ].
+    self contentsChanged.             "recompute scrollbars"
 
     "Modified: 22.10.1996 / 23:18:53 / cg"
 !
@@ -4044,5 +4044,5 @@
 !ListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.222 2000-04-18 10:10:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.223 2000-04-18 14:37:23 cg Exp $'
 ! !