/app/components/MenuComponent.io

 1MenuComponent := Object clone do(
 2  init := method(
 3    entries ::= List clone
 4  )
 5
 6  renderOn := method(html,
 7    entries foreach(v,
 8      html link(v at(0), v at(1))
 9      html space
10    )
11  )
12
13  addEntry := method(name, callback, 
14    entries append(list(name, callback))
15  )
16)
17
18