WAStyleCollector

• closeTag:
• openTag:attributes:
• styles
• text:

InitialValue:

a Set()

inferredType:

Set

	anAttributes ifNil: [^ self].
	anAttributes associations do:
		[:assoc |
		assoc key = 'class' ifTrue:
			[self styles addAll: ((assoc value findTokens: ' ') collect: [:ea | '.', ea])].
		assoc key = 'id' ifTrue: [self styles add: '#', assoc value]]

	^ styles ifNil: [styles _ Set new]