diff options
| author |  Benjamin Barenblat <bbaren@mit.edu> | 2015-04-14 00:50:26 -0400 |
|---|---|---|
| committer | Benjamin Barenblat <bbaren@mit.edu> | 2015-04-14 00:50:26 -0400 |
| commit | 2721267f40e35a3a2acfa8ee332bda454823ef83 (patch) | |
| tree | fd2461d0f1474aedfc1d6585e7f7e140674562de /tests/docevents.ur | |
| parent | 2e1bbc9749f1ad089c0fd366b74646921f35a759 (diff) | |
| parent | 6e7a226de27e3689d87c11e5c12f384fb399c499 (diff) | |
Merge branch 'upstream' into dfsg_clean20150412+dfsg
Diffstat (limited to 'tests/docevents.ur')
| -rw-r--r-- | tests/docevents.ur | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/tests/docevents.ur b/tests/docevents.ur index eed38868..906afa2b 100644 --- a/tests/docevents.ur +++ b/tests/docevents.ur @@ -1,6 +1,7 @@ fun main () : transaction page = return <xml> - <body onload={onDblclick (alert "Double click"); - onKeypress (fn k => alert ("Keypress: " ^ show k))}> + <body onload={onDblclick (fn _ => alert "Double click"); + onContextmenu (fn _ => alert "Context menu"); + onKeypress (fn k => alert ("Keypress: " ^ show k.KeyCode))}> Nothing here. - </body> + </body> </xml> |