SCSeasideForm

• buttonWithValue:
• buttons

• componentForXMLElement:
• initializeFromXMLElement:
• radioComponentForElement:

• activateCheckboxWithId:
• activateRadioButtonWithId:
• checkboxWithId:
• checkboxWithId:value:
• deactivateCheckboxWithId:
• inputs
• radioButtonWithId:
• radioGroups
• selectListWithId:
• selectListWithId:selectOptionWithText:
• textInputWithId:
• textInputWithId:value:

• actionUrl
• httpDataWithButton:
• writeHttpDataFor:value:on:

• getOrCreateRadioGroup:
• inputWithId:ifAbsent:
• inputWithName:ifAbsent:
• optionValuesByTextForSelect:

inferredType:

UndefinedObject

inferredType:

UndefinedObject

InitialValue:

a Dictionary()

inferredType:

Dictionary

 
	^ self buttons
		detect: [:each | each value = aString] 
		ifNone: []

	^buttons

 
	| type |
	element name = #input
		ifTrue: [type _ (element
						attributeAt: 'type'
						ifAbsent: ['']) asLowercase.
			type = 'text' | (type = 'password')
				ifTrue: [^ SCTextHtmlInput forElement: element ofForm: self].
			type = 'checkbox'
				ifTrue: [^ SCCheckboxHtmlInput forElement: element ofForm: self].
			type = 'hidden'
				ifTrue: [^ SCHiddenHtmlInput forElement: element ofForm: self].
			type = 'submit'
				ifTrue: [^ SCSubmitButtonHtmlInput forElement: element ofForm: self].
			type = 'radio'
				ifTrue: [^ self radioComponentForElement: element].
			type = 'reset'
				ifTrue: [^nil].
			self error: 'unknown input type'].
	element name = #select
		ifTrue: [^ SCSelectHtmlInput forElement: element ofForm: self].
	element name = #textarea
		ifTrue: [^ SCTextAreaHtmlInput forElement: element ofForm: self].
	^ nil

 
	| possibleInputs |
	super initializeFromXMLElement: anXMLElement.
	possibleInputs _ OrderedCollection new.
	self allElements
		do: [:element | (self componentForXMLElement: element)
				ifNotNilDo: [:v | possibleInputs add: v]].
	buttons _ possibleInputs
				select: [:each | each isButton].
	inputs _ possibleInputs reject: [:each | each isButton]

 
	| group button |
	group _ self
				getOrCreateRadioGroup: (anXMLElement attributeAt: 'name').
	button _ SCRadioButtonHtmlInput forGroup: group form: self fromXMLElement: anXMLElement.
	group addButton: button.
	^ button

 
	self checkboxWithId: stringId value: true

 
	(self radioButtonWithId: stringId) makeSelected

	| input |
	input _ self
				inputWithId: stringId
				ifAbsent: [self error: 'No such input component.'].
	input isCheckbox
		ifFalse: [self error: 'Not a checkbox component.'].
	^input

 
	(self checkboxWithId: stringId) value: aBoolean

 
	self checkboxWithId: stringId value: false

	^inputs

 
	| input |
	input _ self
				inputWithId: stringId
				ifAbsent: [self error: 'No such input component.'].
	input isRadioButton
		ifFalse: [self error: 'Not a radio button component.'].
	^input

	^radioGroups ifNil: [radioGroups _ Dictionary new]

	| elem |
	elem _ self
				inputWithId: aStringId
				ifAbsent: [self error: 'No such input field.'].
	elem isSelectInput
		ifFalse: [self error: 'Not a select'].
	^ elem

 
	(self selectListWithId: aStringId) selectOptionWithText: text ifNone: [self error: 'No such option.']

	| input |
	input _ self
				inputWithId: stringId
				ifAbsent: [self error: 'No such input component.'].
	input isTextInput
		ifFalse: [self error: 'Not a text component.'].
	^input

 
	(self textInputWithId: stringId) value: stringValue

	^ xmlElement attributeAt: 'action'

 
	| resultStream |
	resultStream := WriteStream on: String new.
	((button addToRequestStream: resultStream)
			and: [inputs notEmpty])
		ifTrue: [resultStream nextPut: $&].
	inputs allButLast
		do: [:each | (each addToRequestStream: resultStream)
				ifTrue: [resultStream nextPut: $&]].
	inputs last addToRequestStream: resultStream.
	^ resultStream contents

 
	| name |
	name _ key.
	value
		ifNil: [^ stream nextPutAll: name].
	value isString
		ifTrue: [stream nextPutAll: name;
				 nextPut: $=;
				 nextPutAll: value]
		ifFalse: [value
				do: [:each | self
						writeHttpDataFor: key
						value: each
						on: stream]
				separatedBy: [stream nextPut: $&]]

	^self radioGroups at: groupName ifAbsentPut: [SCRadioGroup named: groupName].

	^inputs detect: [:each | each id = anId] ifNone: aBlock

 
	^ inputs
		detect: [:each | each name = aName]
		ifNone: aBlock

 
	| optionElements result |
	optionElements := aSelectElement elements
				select: [:each | each name = 'option'].
	result := Dictionary new.
	optionElements
		do: [:each | result at: (each contents first string) put: (each attributeAt: 'value') ].
	^result