SCRadioButtonHtmlInput

• initializeForGroup:form:fromXMLElement:

• privateMakeSelected
• privateMakeUnselected

• addToRequestStream:

• isRadioButton
• isSelected

• makeSelected
• makeUnselected
• value:

• forGroup:form:fromXMLElement:

inferredType:

UndefinedObject

inferredType:

UndefinedObject

 
	self initializeForForm: aForm element: anXMLElement.
	group _ aGroup.
	internalValue _ value.
	value _ anXMLElement attributes includesKey: 'checked'.
	

	self setValue: true

	self setValue: false

 
	^ self value
		and: [self name
				ifNil: [false]
				ifNotNil: [aStream nextPutAll: self name.
				aStream nextPut: $=.
				aStream nextPutAll: internalValue.
				true]]

	^true

	^ value
		ifNil: [value _ false]

	group selectRadioButton: self

	self privateMakeUnselected

	aValue
		ifTrue: [self makeSelected]
		ifFalse: [self makeUnselected]

 
	^ self new initializeForGroup: group form: aForm fromXMLElement: anXMLElement