File: mouseEvent.ur

package info (click to toggle)
urweb 20170105%2Bdfsg-2
  • links: PTS, VCS
  • area: main
  • in suites: stretch
  • size: 8,640 kB
  • ctags: 9,972
  • sloc: ansic: 6,402; lisp: 1,198; makefile: 173; sh: 44; sql: 1
file content (16 lines) | stat: -rw-r--r-- 925 bytes parent folder | download 
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>