blob: 5ab46de81659bc7b04f875623740275683deab97 (
plain)
1
2
3
4
5
6
7
8
9
10
|
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>
fun busy () : transaction page = return <xml>
<body onload={onMouseout (fn _ => alert "OUT!");
onMouseover (fn _ => alert "OVER!");
onMousemove (fn _ => alert "MOVE!")}/>
</xml>
|
