blob: 906afa2b1d90e85fd1021b6352ddb9c39d1ca5a3 (
plain)
1
2
3
4
5
6
7
|
fun main () : transaction page = return <xml>
<body onload={onDblclick (fn _ => alert "Double click");
onContextmenu (fn _ => alert "Context menu");
onKeypress (fn k => alert ("Keypress: " ^ show k.KeyCode))}>
Nothing here.
</body>
</xml>
|
