"{ Package: 'stx:goodies/ston' }"

"{ NameSpace: Smalltalk }"

Object subclass:#STONStreamWriter
	instanceVariableNames:'writer first'
	classVariableNames:''
	poolDictionaries:''
	category:'STON-Core-Writer'
!

!STONStreamWriter class methodsFor:'instance creation'!

new
    "return an initialized instance"

    ^ self basicNew initialize.
!

on: stonWriter
	^ self new
		on: stonWriter;
		yourself
! !

!STONStreamWriter methodsFor:'initialize-release'!

initialize
	super initialize.
	first := true
!

on: stonWriter
	writer := stonWriter
! !