equal
deleted
inserted
replaced
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 "{ Package: 'stx:libbasic' }" |
12 "{ Package: 'stx:libbasic' }" |
|
13 |
|
14 "{ NameSpace: Smalltalk }" |
13 |
15 |
14 PositionableStream subclass:#WriteStream |
16 PositionableStream subclass:#WriteStream |
15 instanceVariableNames:'' |
17 instanceVariableNames:'' |
16 classVariableNames:'' |
18 classVariableNames:'' |
17 poolDictionaries:'' |
19 poolDictionaries:'' |
436 instead a single grow on the final size is performed." |
438 instead a single grow on the final size is performed." |
437 |
439 |
438 |nMore "{ Class: SmallInteger }" |
440 |nMore "{ Class: SmallInteger }" |
439 final "{ Class: SmallInteger }" | |
441 final "{ Class: SmallInteger }" | |
440 |
442 |
441 (collection isNil or:[aCollection isSequenceable]) ifFalse:[ |
443 (collection isNil or:[aCollection isSequenceable not]) ifTrue:[ |
442 "/ fallback |
444 "/ fallback |
443 super nextPutAll:aCollection. |
445 super nextPutAll:aCollection. |
444 ^ self. |
446 ^ self. |
445 ]. |
447 ]. |
446 |
448 |
650 ! ! |
652 ! ! |
651 |
653 |
652 !WriteStream class methodsFor:'documentation'! |
654 !WriteStream class methodsFor:'documentation'! |
653 |
655 |
654 version |
656 version |
655 ^ '$Header: /cvs/stx/stx/libbasic/WriteStream.st,v 1.87 2014-12-11 16:00:17 cg Exp $' |
657 ^ '$Header: /cvs/stx/stx/libbasic/WriteStream.st,v 1.88 2015-01-20 14:12:21 cg Exp $' |
656 ! |
658 ! |
657 |
659 |
658 version_CVS |
660 version_CVS |
659 ^ '$Header: /cvs/stx/stx/libbasic/WriteStream.st,v 1.87 2014-12-11 16:00:17 cg Exp $' |
661 ^ '$Header: /cvs/stx/stx/libbasic/WriteStream.st,v 1.88 2015-01-20 14:12:21 cg Exp $' |
660 ! ! |
662 ! ! |
661 |
663 |