mus notify textChanged in #add: / #add:beforeIndex:
even if not shown (otherwise scrollBars are not updated correctly)
--- 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 $'
! !