WALabelledFormDialog

• renderDefaultFieldForSelector:on:
• renderDialogOn:
• renderFieldForSelector:on:
• renderLabelForSelector:on:
• renderRowForSelector:on:
• renderTableRowsOn:
• renderingSelectorFor:
• rows
• style

	html textInputOn: aSymbol of: self model

	self rows do:
		[:ea |
		ea = #-
			ifTrue: [self renderSpacerRowOn: html]
			ifFalse: [self renderRowForSelector: ea on: html]].

	| renderSelector |
	renderSelector _ self renderingSelectorFor: aSymbol.
	(self respondsTo: renderSelector)
		ifTrue: [self perform: renderSelector with: html]
		ifFalse: [self renderDefaultFieldForSelector: aSymbol on: html]

	html text: (self labelForSelector: aSymbol)

	html cssClass: 'dialog-row'.
	html divNamed: aSymbol with: 
		[html spanClass: 'dialog-form-label' with: [self renderLabelForSelector: aSymbol on: html].
		html spanClass: 'dialog-form-field' with: [self renderFieldForSelector: aSymbol on: html]].

	self rows do:
		[:ea |
		ea = #-
			ifTrue: [self renderSpacerRowOn: html]
			ifFalse: [self renderRowForSelector: ea on: html]].

	^ ('render', aSymbol capitalized, 'On:') asSymbol

	^ #()

	^ '
.dialog-row {
	clear: both;
	/*set position: relative to handle the ie disappearing text bug*/
	position: relative;
	margin-top: 3px;
}

.dialog-form-label {
	width: 100px;
	float: left;
	text-align: right;
	padding: 2px 6px;
	margin-right: 4px;
	margin-top: 2px;
}

.dialog-form-field {
	text-align: left;
	padding: 2px;
	margin-top: 2px;
	float: left;
}

.dialog-buttons {
	clear: both;
	padding: 10px;
	text-align: center
}

.dialog-spacer {
	clear: both;
	height: 10px;
}
	'