mus notify textChanged in #add: / #add:beforeIndex:
authorClaus Gittinger <cg@exept.de>
Tue, 18 Apr 2000 16:37:23 +0200
changeset 2182 fb9bc638123a
parent 2181 2b2351d0c0c4
child 2183 209de080ee24
mus notify textChanged in #add: / #add:beforeIndex: even if not shown (otherwise scrollBars are not updated correctly)
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 $'
 ! !