[Seaside] WASelectionDateTable

[recursive68 at gmail.com]

Hi,

Has anyone got an example of how to use WASelectionDateTable. I'm stuck
receiving the following error:

MessageNotUnderstood: receiver of "value:value:" is nil
UndefinedObject(Object)>>doesNotUnderstand: #value:value
[] WASelectionDateTable>>renderCellForDate:row:index:on:

Code is:

initialize
|start plus1 plus2 plus3|
super initialize.
plantable := WASelectionDateTable new.
start := Date today.
plus1 := start addDays: 1.
plus2 := start addDays: 2.
plus3 := start addDays: 3.
plantable startDate: start.
plantable endDate: (start addDays: 3).
aCollection := Dictionary new.
aCollection add: start -> 'One';add:  plus1 -> 'Two'; add: plus2 -> 'Three';
add: plus3 -> 'Four';yourself.
plantable rows: aCollection.


renderContentOn: html
html render: plantable

Thanks
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.squeakfoundation.org/pipermail/seaside/attachments/20110111/827c1650/attachment.htm