WAHtmlElement

• add:
• attributeAt:put:
• beClosed
• childrenDo:
• initializeWithName:attributes:
• name
• notClosed
• printCloseTagOn:
• printHtmlOn:
• printOpenTagOn:
• shouldPrintCloseTag
• writeOn:

• named:
• named:attributes:

inferredType:

UndefinedObject

inferredType:

UndefinedObject

inferredType:

UndefinedObject

inferredType:

UndefinedObject

	children ifNil: [children _ OrderedCollection new].
	children add: anElement.

	attributes at: aString put: anObject

	isClosed _ true

	children ifNotNil: [children do: aBlock]

	name _ aString.
	attributes _ anAttributes.
	isClosed _ true.

	^ name asLowercase

	isClosed _ false

 
	aStream
		nextPutAll: '</';
		nextPutAll: self name;
		nextPut: $>

	self printOpenTagOn: aStream.
	self childrenDo: [:ea | ea writeOn: aStream].
	self shouldPrintCloseTag ifTrue: [self printCloseTagOn: aStream].

 
	aStream
		nextPut: $<;
		nextPutAll: self name.
	attributes ifNotNil: [attributes writeOn: aStream].
	self shouldPrintCloseTag ifFalse: [aStream nextPutAll: ' /'].
	aStream nextPut: $>

	^ isClosed

	self printOpenTagOn: aStream.
	self childrenDo: [:ea | ea isString ifTrue: [aStream nextPutAll: ea] ifFalse: [ea writeOn: aStream]].
	self shouldPrintCloseTag ifTrue: [self printCloseTagOn: aStream].

	^ self named: aString attributes: (WAHtmlAttributes new)

	^ self new initializeWithName: aString attributes: anAttributes