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>