equal
deleted
inserted
replaced
546 ! |
546 ! |
547 |
547 |
548 nextPutAllUnicode:aString |
548 nextPutAllUnicode:aString |
549 "normal streams can not handle multi-byte characters, so convert them to utf8" |
549 "normal streams can not handle multi-byte characters, so convert them to utf8" |
550 |
550 |
551 (collection isString and:[collection isWideString not]) ifTrue:[ |
551 (collection isString and:[collection bitsPerCharacter < aString bitsPerCharacter]) ifTrue:[ |
552 aString do:[:eachCharacter| |
552 aString do:[:eachCharacter| |
553 self nextPutUtf8:eachCharacter. |
553 self nextPutUtf8:eachCharacter. |
554 ]. |
554 ]. |
555 ] ifFalse:[ |
555 ] ifFalse:[ |
556 self nextPutAll:aString |
556 self nextPutAll:aString |
637 ! |
637 ! |
638 |
638 |
639 nextPutUnicode:aCharacter |
639 nextPutUnicode:aCharacter |
640 "normal streams can not handle multi-byte characters, so convert them to utf8" |
640 "normal streams can not handle multi-byte characters, so convert them to utf8" |
641 |
641 |
642 (collection isString and:[collection isWideString not]) ifTrue:[ |
642 (collection isString and:[collection bitsPerCharacter < aCharacter bitsPerCharacter]) ifTrue:[ |
643 self nextPutUtf8:aCharacter. |
643 self nextPutUtf8:aCharacter. |
644 ] ifFalse:[ |
644 ] ifFalse:[ |
645 self nextPut:aCharacter. |
645 self nextPut:aCharacter. |
646 ]. |
646 ]. |
647 ! ! |
647 ! ! |
648 |
648 |
649 !WriteStream class methodsFor:'documentation'! |
649 !WriteStream class methodsFor:'documentation'! |
650 |
650 |
651 version |
651 version |
652 ^ '$Header: /cvs/stx/stx/libbasic/WriteStream.st,v 1.80 2013-08-10 11:30:31 stefan Exp $' |
652 ^ '$Header: /cvs/stx/stx/libbasic/WriteStream.st,v 1.81 2013-08-19 15:59:47 stefan Exp $' |
653 ! |
653 ! |
654 |
654 |
655 version_CVS |
655 version_CVS |
656 ^ '$Header: /cvs/stx/stx/libbasic/WriteStream.st,v 1.80 2013-08-10 11:30:31 stefan Exp $' |
656 ^ '$Header: /cvs/stx/stx/libbasic/WriteStream.st,v 1.81 2013-08-19 15:59:47 stefan Exp $' |
657 ! ! |
657 ! ! |
658 |
658 |