adam@1783: fun main () : transaction page = return adam@1783: alert ("KeyCode = " ^ show ev.KeyCode adam@1783: ^ "\nCtrlKey = " ^ show ev.CtrlKey adam@1783: ^ "\nShiftKey = " ^ show ev.ShiftKey adam@1783: ^ "\nAltKey = " ^ show ev.AltKey adam@1783: ^ "\nMetaKey = " ^ show ev.MetaKey)}/> adam@1783: