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

!FactorialTableComponent methodsFor: 'initialization' stamp: 'cds 8/25/2004 15:57'!
tellMeMoreAbout: aNumber
	self inform: 'The number ' , aNumber printString , ' is a very pretty number.'! !


!FactorialTableComponent methodsFor: 'rendering' stamp: 'cds 8/25/2004 15:29'!
renderContentOn: html
	html render: report! !

!FactorialTableComponent methodsFor: 'rendering' stamp: 'cds 8/27/2004 22:01'!
style
	^ 'td {text-align: right;}
	tr.footer th {text-align: right; border-top: 1px dashed blue;}
	td.parity {text-align: left;}'! !


!FactorialTableComponent methodsFor: 'tree' stamp: 'cds 8/25/2004 15:28'!
children
	^Array with: report! !

!FactorialTableComponent methodsFor: 'tree' stamp: 'cds 8/28/2004 13:24'!
initialize
	| rows columns |
	rows _ #(1 2 3 4 5 6 ).
	columns _ OrderedCollection new add: ((SCReportColumn selector: #yourself title: 'original') hasTotal: true;
					 yourself);
				 add: ((SCReportColumn selector: #factorial title: 'factorial') hasTotal: true;
					 yourself);
				 add: (SCReportColumn new
					valueBlock: [:rowItem | rowItem even
							ifTrue: ['even']
							ifFalse: ['odd']];
					 title: 'odd/even';
					
					renderBlock: [:row :col :html | 
						| text | 
						text _ col textForRow: row.
						text = 'odd'
							ifTrue: [html attributeAt: 'bgcolor' put: 'red'].
						html tableData: text];
					 cssClass: 'parity');
				 yourself.
	report _ SCTableReport new rows: rows;
				 columns: columns;
				 yourself.
	report rowPeriod: 2.
	report rowColors: {'white'. 'lightgreen'}! !

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

FactorialTableComponent class
	instanceVariableNames: ''!

!FactorialTableComponent class methodsFor: 'seaside' stamp: 'cds 8/25/2004 15:26'!
canBeRoot
	^true! !