Mercurial > urweb
diff tests/globalHandlers.ur @ 1791:2f8b8952fe27
Add more global mouse event hooks
author | Adam Chlipala <adam@chlipala.net> |
---|---|
date | Mon, 23 Jul 2012 08:38:39 -0400 |
parents | 5bc4fbf9c0fe |
children |
line wrap: on
line diff
--- a/tests/globalHandlers.ur Sun Jul 22 09:42:17 2012 -0400 +++ b/tests/globalHandlers.ur Mon Jul 23 08:38:39 2012 -0400 @@ -2,3 +2,9 @@ <body onload={onDblclick (fn ev => alert ("ScreenX = " ^ show ev.ScreenX ^ "\nShiftKey = " ^ show ev.ShiftKey)); onKeypress (fn ev => alert ("KeyCode = " ^ show ev.KeyCode ^ "\nShiftKey = " ^ show ev.ShiftKey))}/> </xml> + +fun busy () : transaction page = return <xml> + <body onload={onMouseout (fn _ => alert "OUT!"); + onMouseover (fn _ => alert "OVER!"); + onMousemove (fn _ => alert "MOVE!")}/> +</xml>