WATableReport

• columns:
• initialize
• rowColors:
• rowPeriod:

• chooseRow:column:
• colorForRowNumber:
• isReversed
• rows

• renderColumn:row:on:
• renderContentOn:
• renderFooterForColumn:on:
• renderHeaderForColumn:on:
• renderRowNumber:item:on:
• renderRowsOn:
• renderTableFooterOn:
• renderTableHeaderOn:

• sortColumn
• sortColumn:

	columns _ anArray

	super initialize.
	isReversed := false.
	columns := #().
	sortColumn := WAStateHolder new.
	rowColors := #('white' 'lightyellow').
	rowPeriod := 3

	rowColors _ colorArray

	rowPeriod _ aNumber

	
	aColumn chooseRow: aRow

	^ rowColors at: ((aNumber-1 // rowPeriod) \\ rowColors size) + 1 ifAbsent: ['white']

	^ isReversed

	| r |
	self sortColumn ifNil: [^ rows].
	r _ self sortColumn sortRows: rows.
	^ self isReversed ifTrue: [r reversed] ifFalse: [r]

	|text|
	text _ aColumn textForRow: aRow.
	text isEmpty ifTrue: [text _ ' '].
	html tableData: [
		aColumn canChoose
			ifFalse: [html text: text]
			ifTrue: [html anchorWithAction: [self chooseRow: aRow column: aColumn] text: text]
	]

	html attributeAt: 'cellspacing' put: 0; attributeAt: 'cellpadding' put: 5.
	html table: [
		self renderTableHeaderOn: html.
		self renderRowsOn: html.
		self renderTableFooterOn: html.
	]

	html tableHeading: [ html text: (aColumn totalForRows: rows)]

	html tableHeading: [
		aColumn canSort
			ifTrue: [
				html anchorWithAction: [self sortColumn: aColumn] text: aColumn title]
			ifFalse: [
				html text: aColumn title]
	]

	html attributeAt: 'bgcolor' put: (self colorForRowNumber: index).
	html tableRow: [ columns do: [:ea | self renderColumn: ea row: row on: html] ]

	self rows withIndexDo: [:row :i | self renderRowNumber: i item: row on: html ]

	html tableRow: [ columns do: [ :ea | self renderFooterForColumn: ea on: html] ]

	html tableRow: [ columns do: [ :ea | self renderHeaderForColumn: ea on: html] ]

	^ sortColumn contents

 
	anObject = self sortColumn
		ifTrue: [isReversed _ isReversed not]
		ifFalse: [isReversed _ false].
	sortColumn contents: anObject