WAHtmlTreeDocument

• initializeWithRoot:

• writeBodyOn:
• writeOn:

• closeTag:
• openTag:attributes:
• text:

• addElement:
• popElement
• pushElement:
• withElement:do:

• new

InitialValue:

a WAHtmlElement

inferredType:

WAHtmlElement

inferredType:

UndefinedObject

InitialValue:

an OrderedCollection(a WAHtmlElement)

inferredType:

OrderedCollection

	super initializeWithRoot: anHtmlRoot.
	body _ WAHtmlElement named: 'body'.
	stack _ OrderedCollection with: body

	body childrenDo: [:ea | ea writeOn: aStream]

	root writeOn: aStream.
	self writeBodyOn: aStream.
	aStream nextPutAll: '</body></html>'

	self popElement name = aString ifFalse: [self error: 'Mismatched tags']

	| element |
	element _ WAHtmlElement named: aString attributes: anAttributes.
	(self shouldPrintCloseTagFor: aString)
		ifTrue: [element beClosed]
		ifFalse: [element notClosed].
	self pushElement: element

	self addElement: aString

	stack last add: anObject

	^ stack removeLast

	self addElement: anObject.
	stack add: anObject.

	self pushElement: anElement.
	aBlock value.
	self popElement.

	^ super new initialize