'From Squeak3.6 of ''6 October 2003'' [latest update: #5429] on 27 August 2004 at 7:18:42 pm'!
WAComponent subclass: #FactorialTableComponent
	instanceVariableNames: 'report '
	classVariableNames: ''
	poolDictionaries: ''
	category: 'WATableReportExample'!

!FactorialTableComponent methodsFor: 'initialization' stamp: 'cds 8/27/2004 19:18'!
initialize
	| rows columns |
	rows _ #(1 2 3 4 5 6 ).
	columns _ OrderedCollection new
				add: (WAReportColumn selector: #yourself title: 'original');
				
				add: (WAReportColumn selector: #factorial title: 'factorial');
				 add: (WAReportColumn new
					valueBlock: [:rowItem | rowItem even
							ifTrue: ['even']
							ifFalse: ['odd']];
					 title: 'odd/even');
				 yourself.
	report _ WATableReport new rows: rows;
				 columns: columns;
				 yourself.
	report rowPeriod: 2.
	report rowColors: {'white'. 'lightgreen'}! !


!FactorialTableComponent methodsFor: 'rendering' stamp: 'cds 8/27/2004 16:55'!
renderContentOn: html 
	html render: report! !

!FactorialTableComponent methodsFor: 'rendering' stamp: 'cds 8/27/2004 19:17'!
style
	^ 'td {text-align: right;}
	tr+tr>th {text-align: right; border-top: 1px dashed blue;}'! !


!FactorialTableComponent methodsFor: 'tree' stamp: 'cds 8/27/2004 16:55'!
children
	^ Array with: report! !

"-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "!

FactorialTableComponent class
	instanceVariableNames: ''!

!FactorialTableComponent class methodsFor: 'seaside' stamp: 'cds 8/27/2004 16:56'!
canBeRoot
	^true! !