SCSelectHtmlInput

• initializeForForm:element:
• initializeOptions

• optionSelected:
• selectedOptions

• addToRequestStream:

• isSelectInput

• selectOptionWithText:
• selectOptionWithText:ifNone:
• value:

inferredType:

UndefinedObject

InitialValue:

an OrderedCollection()

inferredType:

OrderedCollection

 
	super initializeForForm: aForm element: anXMLElement.
	self initializeOptions.

	options _ (self allElements
				select: [:each | each name asLowercase = 'option'])
				collect: [:each | SCSelectOption forSelect: self fromXMLElement: each]

 
	selectedOptions _ Array with: anOption

	^selectedOptions ifNil: [selectedOptions _ OrderedCollection new]

 
	self selectedOptions
		do: [:option | option addToRequestStream: aStream] separatedBy: [aStream nextPut: $&]

	^ true

	self selectOptionWithText: text ifNone: [self error: 'No option labeled ' , text.]

 
	| option |
	option _ options detect: [:each | each label = text] ifNone: [^ aBlock value].
	option select.

 
	self
		selectOptionWithText: aValue