adam@1783: fun main () : transaction page = return adam@1783: alert ("ScreenX = " ^ show ev.ScreenX ^ "\nShiftKey = " ^ show ev.ShiftKey)); adam@1783: onKeypress (fn ev => alert ("KeyCode = " ^ show ev.KeyCode ^ "\nShiftKey = " ^ show ev.ShiftKey))}/> adam@1783: adam@1791: adam@1791: fun busy () : transaction page = return adam@1791: alert "OUT!"); adam@1791: onMouseover (fn _ => alert "OVER!"); adam@1791: onMousemove (fn _ => alert "MOVE!")}/> adam@1791: