"{ 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

! !