WAHtmlAttributes

• at:ifAbsentPut:
• at:put:

• addClass:
• alignBottom
• alignCenter

• doesNotUnderstand:

• submitOnChange
• submitOnClick

• writeAttribute:on:
• writeOn:

• associations

InitialValue:

an OrderedCollection()

inferredType:

OrderedCollection

	^ self associations
		detect: [:ea | ea key = keyString]
		ifNone: [self associations add: keyString -> errBlock value]

	self associations add: keyString -> valueString.

	| assoc |
	assoc _
		 self associations
			detect: [:ea | ea key = 'class']
			ifNone: [self associations add: 'class' -> aString. ^ self].
	assoc value: (assoc value, ' ', aString)

	self at: 'valign' put: 'bottom'

	self at: 'align' put: 'center'

	| argCount |
	argCount _ aMessage arguments size.
	argCount = 0 ifTrue: [^ self at: aMessage selector put: true].
	argCount = 1 ifTrue: [^ self at: aMessage selector allButLast put: aMessage argument].
	^ super doesNotUnderstand: aMessage

	self at: 'onChange' put: 'submit()'

	self at: 'onClick' put: 'submit()'

	assoc value = false ifFalse:
		[aStream nextPut: $ .
		aStream nextPutAll: assoc key asLowercase.
		aStream nextPutAll: '="'.
		assoc value = true
			ifFalse: [aStream nextPutAll: (WAAbstractHtmlBuilder encode: assoc value asString)]
			ifTrue: [aStream nextPutAll: assoc key asLowercase].
		aStream nextPut: $"]

	associations ifNotNil:
		[associations do:
			[:assoc |
			self writeAttribute: assoc on: aStream]].

	^ associations ifNil: [associations _ OrderedCollection new]