Mercurial > urweb

comparison tests/globalHandlers.ur @ 1791:2f8b8952fe27

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add more global mouse event hooks
author Adam Chlipala <adam@chlipala.net>
date Mon, 23 Jul 2012 08:38:39 -0400
parents 5bc4fbf9c0fe
children
comparison
equal deleted inserted replaced
1790:56b8efff64e7 1791:2f8b8952fe27
1 fun main () : transaction page = return <xml> 1 fun main () : transaction page = return <xml>
2 <body onload={onDblclick (fn ev => alert ("ScreenX = " ^ show ev.ScreenX ^ "\nShiftKey = " ^ show ev.ShiftKey)); 2 <body onload={onDblclick (fn ev => alert ("ScreenX = " ^ show ev.ScreenX ^ "\nShiftKey = " ^ show ev.ShiftKey));
3 onKeypress (fn ev => alert ("KeyCode = " ^ show ev.KeyCode ^ "\nShiftKey = " ^ show ev.ShiftKey))}/> 3 onKeypress (fn ev => alert ("KeyCode = " ^ show ev.KeyCode ^ "\nShiftKey = " ^ show ev.ShiftKey))}/>
4 </xml> 4 </xml>
5
6 fun busy () : transaction page = return <xml>
7 <body onload={onMouseout (fn _ => alert "OUT!");
8 onMouseover (fn _ => alert "OVER!");
9 onMousemove (fn _ => alert "MOVE!")}/>
10 </xml>