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