blob: 2192e0b0e0c819930a46e948795b2e464f52259c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
val show_mouseButton = mkShow (fn b => case b of
Left => "Left"
| Middle => "Middle"
| Right => "Right")
fun main () : transaction page = return <xml><body>
<button onclick={fn ev => alert ("ScreenX = " ^ show ev.ScreenX
^ "\nScreenY = " ^ show ev.ScreenY
^ "\nClientX = " ^ show ev.ClientX
^ "\nClientY = " ^ show ev.ClientY
^ "\nCtrlKey = " ^ show ev.CtrlKey
^ "\nShiftKey = " ^ show ev.ShiftKey
^ "\nAltKey = " ^ show ev.AltKey
^ "\nMetaKey = " ^ show ev.MetaKey
^ "\nButton = " ^ show ev.Button)}/>
</body></xml>
|
