adam@1789: fun main () : transaction page = adam@1789: s <- source "Initial"; adam@1789: return adam@1789: alert ("Clicky " ^ show ev.ScreenX)} adam@1789: onkeypress={fn ev => alert ("Code " ^ show ev.KeyCode)}/> adam@1789: