WAPluggableSelectBox

• changeSelected:
• list:
• model:
• renderOn:
• selected:
• size:

• on:list:selected:changeSelected:
• on:list:selected:changeSelected:size:

inferredType:

UndefinedObject

inferredType:

UndefinedObject

inferredType:

UndefinedObject

inferredType:

UndefinedObject

inferredType:

UndefinedObject

	changeSelected _ aSymbol

	list _ aSymbol

	model _ anObject

	|array|
	array _ (model perform: list) asArray.
	html divClass: 'column-choice' with:	
		[html form:
			[html attributeAt: 'size' put: size.
			html attributeAt: 'onChange' put: 'submit()'.
			html
				selectFromList: array
				selected: (array at: (model perform: selected) ifAbsent: [])
				callback: [:item | model perform: changeSelected with: (array indexOf: item)]]].	

	selected _ aSymbol

	size _ aNumber

	^ self 
		on: anObject
		list: listSelector
		selected: selectedSelector
		changeSelected: changeSelectedSelector
		size: 10

	^ self new
		model: anObject;
		list: listSelector;
		selected: selectedSelector;
		changeSelected: changeSelectedSelector;
		size: aNumber