WAHtmlStreamDocument

• bodyStream
• close
• closeTag:
• initializeWithRoot:
• openTag:attributes:
• stream
• stream:
• text:
• writeCloseTag:on:
• writeOpenTag:attributes:on:

InitialValue:

#head

inferredType:

Symbol

InitialValue:

a WriteStream ''

inferredType:

WriteStream

	state = #head ifTrue:
		[state _ #body.
		root writeOn: stream].
	^ stream

	self bodyStream nextPutAll: '</body></html>'

	self writeCloseTag: aString on: self bodyStream

	super initializeWithRoot: anHtmlRoot.
	stream _ String new writeStream.
	state _ #head

	self writeOpenTag: aString attributes: anAttributes on: self bodyStream

	^ stream

	stream _ aStream

	self bodyStream nextPutAll: aString

	(self shouldPrintCloseTagFor: aString)
		ifTrue: [aStream nextPutAll: '</'; nextPutAll: aString; nextPut: $>]

	aStream
		nextPut: $<;
		nextPutAll: aString.
	anAttributes ifNotNil: [anAttributes writeOn: aStream].
	(self shouldPrintCloseTagFor: aString) ifFalse: [aStream nextPutAll: ' /'].
	aStream nextPut: $>