Mercurial > urweb

view tests/globalHandlers.ur @ 2279:32a407902d3b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Rewrite LRU cache. Now uses one big hash table and is less buggy.
author Ziv Scully <ziv@mit.edu>
date Wed, 11 Nov 2015 20:01:48 -0500
parents 2f8b8952fe27
children
line wrap: on
line source
fun main () : transaction page = return <xml>
  <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>