WATagBrush

• attributeAt:put:
• attributes
• attributes:
• document
• style:
• tag
• with:

InitialValue:

a WAHtmlAttributes

inferredType:

WAHtmlAttributes

	self attributes at: key put: value

	^ attributes ifNil: [attributes _ WAHtmlAttributes new]

	attributes _ anHtmlAttributes

	^ canvas document

	self attributeAt: 'style' put: aString

	self subclassResponsibility

	self document openTag: self tag attributes: attributes.
	super with: aBlock.
	self document closeTag: self tag.