blob: 32a67806dfc1e20411351ff3e8ffec7ef4dcf801 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
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
^ "\nOffsetX = " ^ show ev.OffsetX
^ "\nOffsetY = " ^ show ev.OffsetY
^ "\nCtrlKey = " ^ show ev.CtrlKey
^ "\nShiftKey = " ^ show ev.ShiftKey
^ "\nAltKey = " ^ show ev.AltKey
^ "\nMetaKey = " ^ show ev.MetaKey
^ "\nButton = " ^ show ev.Button)}/>
</body></xml>
|
