blob: 2b4fba7bc72e6bae251124b4955d0f4576547887 (
plain)
1
2
3
4
|
fun main () : transaction page = return <xml>
<body onload={onDblclick (fn ev => alert ("ScreenX = " ^ show ev.ScreenX ^ "\nShiftKey = " ^ show ev.ShiftKey));
onKeypress (fn ev => alert ("KeyCode = " ^ show ev.KeyCode ^ "\nShiftKey = " ^ show ev.ShiftKey))}/>
</xml>
|
