blob: 875e2b681971d5dc72b5a1a66c47b56429b8eca2 (
plain)
1
2
3
4
5
6
7
|
fun main () : transaction page = return <xml><body>
<ctextbox onkeypress={fn ev => alert ("KeyCode = " ^ show ev.KeyCode
^ "\nCtrlKey = " ^ show ev.CtrlKey
^ "\nShiftKey = " ^ show ev.ShiftKey
^ "\nAltKey = " ^ show ev.AltKey
^ "\nMetaKey = " ^ show ev.MetaKey)}/>
</body></xml>
|
