586 add:aString |
586 add:aString |
587 "add a line and redisplay" |
587 "add a line and redisplay" |
588 |
588 |
589 list add:aString. |
589 list add:aString. |
590 includesNonStrings ifFalse:[ |
590 includesNonStrings ifFalse:[ |
591 includesNonStrings := (aString notNil and:[aString isString not]). |
591 includesNonStrings := (aString notNil and:[aString isString not]). |
592 "/ includesNonStrings ifTrue:[self getFontParameters]. |
592 "/ includesNonStrings ifTrue:[self getFontParameters]. |
593 ]. |
593 ]. |
594 shown ifTrue:[ |
594 shown ifTrue:[ |
595 self redrawLine:(self size). |
595 self redrawLine:(self size). |
596 self contentsChanged. "recompute scrollbars" |
596 ]. |
597 ] |
597 self contentsChanged. "recompute scrollbars" |
598 |
598 |
599 "Modified: 22.10.1996 / 23:18:47 / cg" |
599 "Modified: 22.10.1996 / 23:18:47 / cg" |
600 ! |
600 ! |
601 |
601 |
602 add:aString beforeIndex:index |
602 add:aString beforeIndex:index |
603 "add a line and redisplay" |
603 "add a line and redisplay" |
604 |
604 |
605 list isNil ifTrue:[list := OrderedCollection new]. |
605 list isNil ifTrue:[list := OrderedCollection new]. |
606 list add:aString beforeIndex:index. |
606 list add:aString beforeIndex:index. |
607 includesNonStrings ifFalse:[ |
607 includesNonStrings ifFalse:[ |
608 includesNonStrings := (aString notNil and:[aString isString not]). |
608 includesNonStrings := (aString notNil and:[aString isString not]). |
609 "/ includesNonStrings ifTrue:[self getFontParameters]. |
609 "/ includesNonStrings ifTrue:[self getFontParameters]. |
610 ]. |
610 ]. |
611 shown ifTrue:[ |
611 shown ifTrue:[ |
612 self redrawFromLine:index. |
612 self redrawFromLine:index. |
613 self contentsChanged. "recompute scrollbars" |
613 ]. |
614 ] |
614 self contentsChanged. "recompute scrollbars" |
615 |
615 |
616 "Modified: 22.10.1996 / 23:18:53 / cg" |
616 "Modified: 22.10.1996 / 23:18:53 / cg" |
617 ! |
617 ! |
618 |
618 |
619 at:lineNr |
619 at:lineNr |