author | Jan Vrany <jan.vrany@fit.cvut.cz> |
Tue, 04 Jun 2019 12:33:53 +0100 | |
changeset 0 | 8f9f6be6af89 |
permissions | -rw-r--r-- |
0 | 1 |
"{ Package: 'stx:goodies/ston' }" |
2 |
||
3 |
"{ NameSpace: Smalltalk }" |
|
4 |
||
5 |
STONStreamWriter subclass:#STONListWriter |
|
6 |
instanceVariableNames:'' |
|
7 |
classVariableNames:'' |
|
8 |
poolDictionaries:'' |
|
9 |
category:'STON-Core-Writer' |
|
10 |
! |
|
11 |
||
12 |
!STONListWriter methodsFor:'accessing'! |
|
13 |
||
14 |
add: anObject |
|
15 |
first ifTrue: [ first := false ] ifFalse: [ writer listElementSeparator ]. |
|
16 |
writer nextPut: anObject |
|
17 |
! ! |
|
18 |