WAReportColumn

• clickBlock:
• columnClickBlock:
• formatBlock:
• hasTotal:
• index:
• initialize
• selector:
• sortBlock:
• title:
• valueBlock:

• canChoose
• canSort
• chooseRow:
• sortRows:
• textForRow:
• title
• totalForRows:
• valueForRow:

• new
• selector:
• selector:title:
• selector:title:onClick:

inferredType:

UndefinedObject

InitialValue:

[] in WAReportColumn>>initialize {[:x | x asString]}

inferredType:

BlockContext

InitialValue:

false

inferredType:

False

InitialValue:

[] in WAReportColumn>>initialize {[:a :b | a <= b]}

inferredType:

BlockContext

InitialValue:

Untitled

inferredType:

String

InitialValue:

[] in WAReportColumn>>initialize {[:row | nil]}

inferredType:

BlockContext

	clickBlock _ aBlock

	self clickBlock: [:r | aBlock value: (self valueForRow: r)]

	formatBlock := anObject

	hasTotal _ aBoolean 

	valueBlock _ [:row | row at: aNumber]

	formatBlock _ [:x | x asString].
	sortBlock _ [:a :b | a <= b].
	valueBlock _ [:row | nil].
	clickBlock _ nil.
	title _ 'Untitled'.
	hasTotal _ false.

	valueBlock _ [:row | row perform: aSymbol]

	sortBlock := anObject

	title _ aString

	valueBlock _ aBlock

	^ clickBlock notNil

	^ sortBlock notNil

	^ clickBlock value: row

	|assocs|
	assocs _ anArray collect: [:ea | ea -> (self valueForRow: ea)].
	assocs _ assocs asSortedCollection: [:a :b | sortBlock value: a value value: b value].
	^ assocs collect: [:ea | ea key]

	^ formatBlock value: (self valueForRow: row)

	^title

	^ hasTotal
		ifFalse: ['']
		ifTrue: [formatBlock value: (aCollection detectSum: [:r | self valueForRow: r])]

	^ valueBlock value: row

	^ super new initialize

	^ self selector: aSymbol title: aSymbol capitalized

	^ self selector: aSymbol title: aString onClick: nil

	^ self new
		title: aString;
		selector: aSymbol;
		clickBlock: aBlock