WAGridDialog

• columns
• cssClassForItem:
• items
• renderColumn:for:on:
• renderDefaultColumn:for:on:
• renderDialogOn:
• renderHeadingForSelector:on:
• renderHeadingsOn:
• renderRowForItem:on:
• renderingSelectorFor:
• style

	^ #()

	^ 'dialog-row'

	^ #()

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

	html text: (anObject perform: aSymbol)

	html table: [
		self renderHeadingsOn: html.
		self items do:
			[:ea | 
			self renderRowForItem: ea on: html].
	]

	html text: (self labelForSelector: aSymbol)

	self columns do: [:ea |
		html cssClass: ea.
		html tableHeading: [self renderHeadingForSelector: ea on: html]]

	html cssClass: (self cssClassForItem: anObject).
	html tableRow: [
		self columns do:
			[:ea |
			html cssClass: ea.
			html tableData: [self renderColumn: ea for: anObject on: html]]
	]

	^ ('render', aSymbol capitalized, 'For:on:') asSymbol

	^ '
	.dialog-buttons {text-align: center}
	'