/lib/Session.io

 1Session := Object clone do(
 2  init := method(
 3    callbacks ::= Registry clone
 4  )
 5
 6  handle := method(request, response,
 7    request getParameters foreach(k, v,
 8      callback := callbacks find(k)
 9      if(callback,
10        callback second call(v, request)
11      )
12    )
13    k := request getParameters at("_k")
14    if(k,
15      callback := callbacks find(k)
16      if (callback, 
17        callback second call(request)
18      )
19    )
20
21    html := Canvas clone
22    html callbacks = callbacks
23    html render(root)
24    response setBody(html result)
25  )
26)
27
28