Mercurial > urweb
annotate tests/docevents.ur @ 2187:14c45a0b6362
Basis.fromMilliseconds
| author | Adam Chlipala <adam@chlipala.net> |
|---|---|
| date | Sun, 01 Nov 2015 11:55:01 -0500 |
| parents | e8863d9f8c59 |
| children |
| rev | line source |
|---|---|
| adam@1555 | 1 fun main () : transaction page = return <xml> |
| ziv@2130 | 2 <body onload={onDblclick (fn _ => alert "Double click"); |
| ziv@2130 | 3 onContextmenu (fn _ => alert "Context menu"); |
| ziv@2130 | 4 onKeypress (fn k => alert ("Keypress: " ^ show k.KeyCode))}> |
| adam@1555 | 5 Nothing here. |
| ziv@2130 | 6 </body> |
| adam@1555 | 7 </xml> |