/app/components/ListComponent.io

 1ListComponent := Object clone do(
 2  init := method(
 3    items ::= List clone
 4    filterBlock ::= block(items, items)
 5  )
 6
 7  renderOn := method(html,
 8    html table with( 
 9      filterBlock call(items) foreach(i, 
10        renderItem(i, html)
11      )
12    )
13  )
14)
15
16