2623 (aStream eolMode notNil |
2623 (aStream eolMode notNil |
2624 and:[aStream eolMode ~= #nl]) ifTrue:[ |
2624 and:[aStream eolMode ~= #nl]) ifTrue:[ |
2625 "/ must do it lineWise ... |
2625 "/ must do it lineWise ... |
2626 list do:[:line | |
2626 list do:[:line | |
2627 line notNil ifTrue:[ |
2627 line notNil ifTrue:[ |
2628 aStream nextPutAll:(encoder encodeString:line withTabs) |
2628 encoder encodeString:line withTabs on:aStream |
2629 ]. |
2629 ]. |
2630 aStream cr |
2630 aStream cr |
2631 ]. |
2631 ]. |
2632 ] ifFalse:[ |
2632 ] ifFalse:[ |
2633 [startNr <= nLines] whileTrue:[ |
2633 [startNr <= nLines] whileTrue:[ |
2634 string := list |
2634 string := list |
2635 asStringWithCRsFrom:startNr |
2635 asStringWithCRsFrom:startNr |
2636 to:((startNr + 1000) min:nLines) |
2636 to:((startNr + 1000) min:nLines) |
2637 compressTabs:compressTabs. |
2637 compressTabs:compressTabs. |
2638 aStream nextPutAll:(encoder encodeString:string string). |
2638 encoder encodeString:string string on:aStream. |
2639 startNr := startNr + 1000 + 1. |
2639 startNr := startNr + 1000 + 1. |
2640 ]. |
2640 ]. |
2641 ]. |
2641 ]. |
2642 ] ifFalse:[ |
2642 ] ifFalse:[ |
2643 list do:[:aLine | |
2643 list do:[:aLine | |
2644 aLine notNil ifTrue:[ |
2644 aLine notNil ifTrue:[ |
2645 aStream nextPutLine:(encoder encodeString:aLine). |
2645 encoder encodeString:aLine on:aStream. |
2646 ] ifFalse:[ |
2646 ]. |
2647 aStream cr. |
2647 aStream cr. |
2648 ] |
|
2649 ] |
2648 ] |
2650 ] |
2649 ] |
2651 |
2650 |
2652 "Modified: 8.6.1996 / 11:50:46 / cg" |
2651 "Modified: 8.6.1996 / 11:50:46 / cg" |
2653 ! |
2652 ! |
4943 ! ! |
4942 ! ! |
4944 |
4943 |
4945 !TextView class methodsFor:'documentation'! |
4944 !TextView class methodsFor:'documentation'! |
4946 |
4945 |
4947 version |
4946 version |
4948 ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.392 2015-02-24 15:47:03 cg Exp $' |
4947 ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.393 2015-03-25 19:19:48 cg Exp $' |
4949 ! |
4948 ! |
4950 |
4949 |
4951 version_CVS |
4950 version_CVS |
4952 ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.392 2015-02-24 15:47:03 cg Exp $' |
4951 ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.393 2015-03-25 19:19:48 cg Exp $' |
4953 ! ! |
4952 ! ! |
4954 |
4953 |
4955 |
4954 |
4956 TextView initialize! |
4955 TextView initialize! |