equal
deleted
inserted
replaced
527 ! |
527 ! |
528 |
528 |
529 nextPutAllUnicode:aString |
529 nextPutAllUnicode:aString |
530 "normal streams can not handle multi-byte characters, so convert them to utf8" |
530 "normal streams can not handle multi-byte characters, so convert them to utf8" |
531 |
531 |
532 (collection isString and:[collection bitsPerCharacter == 8]) ifTrue:[ |
532 (collection isString and:[collection bitsPerCharacter >= 8]) ifTrue:[ |
533 aString do:[:eachCharacter| |
533 aString do:[:eachCharacter| |
534 self nextPutUtf8:eachCharacter. |
534 self nextPutUtf8:eachCharacter. |
535 ]. |
535 ]. |
536 ] ifFalse:[ |
536 ] ifFalse:[ |
537 self nextPutAll:aString |
537 self nextPutAll:aString |
538 ]. |
538 ]. |
|
539 |
|
540 "Modified: / 28-09-2011 / 16:15:52 / cg" |
539 ! |
541 ! |
540 |
542 |
541 nextPutByte:anObject |
543 nextPutByte:anObject |
542 "append the argument, anObject to the stream. |
544 "append the argument, anObject to the stream. |
543 Specially tuned for appending to String and ByteArray streams." |
545 Specially tuned for appending to String and ByteArray streams." |
626 ! ! |
628 ! ! |
627 |
629 |
628 !WriteStream class methodsFor:'documentation'! |
630 !WriteStream class methodsFor:'documentation'! |
629 |
631 |
630 version |
632 version |
631 ^ '$Id: WriteStream.st 10700 2011-09-29 15:44:37Z vranyj1 $' |
633 ^ '$Header: /cvs/stx/stx/libbasic/WriteStream.st,v 1.73 2011/09/28 14:32:19 cg Exp $' |
632 ! |
634 ! |
633 |
635 |
634 version_CVS |
636 version_CVS |
635 ^ '§Header: /cvs/stx/stx/libbasic/WriteStream.st,v 1.72 2011/09/05 05:07:03 cg Exp §' |
637 ^ 'Header: /cvs/stx/stx/libbasic/WriteStream.st,v 1.73 2011/09/28 14:32:19 cg Exp ' |
636 ! |
638 ! |
637 |
639 |
638 version_SVN |
640 version_SVN |
639 ^ '$Id: WriteStream.st 10700 2011-09-29 15:44:37Z vranyj1 $' |
641 ^ '$Id: WriteStream.st 10729 2011-10-31 22:19:21Z vranyj1 $' |
640 ! ! |
642 ! ! |
|
643 |