diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-07-18 12:53:26 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-07-18 12:53:26 -0400 |
| commit | 016ab508175a1495e1e1e967467d481ac0258d5d (patch) | |
| tree | 6b55accc9b388b5a6a51795811f7660a5ff5c682 /tests/event.ur | |
| parent | a38526edd81a66ad3f34cf65a66f4ba866dd1490 (diff) | |
Key events get key code input
Diffstat (limited to 'tests/event.ur')
| -rw-r--r-- | tests/event.ur | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/event.ur b/tests/event.ur index cb02bc2f..84d53b6b 100644 --- a/tests/event.ur +++ b/tests/event.ur @@ -7,8 +7,8 @@ fun main () = <span onmousedown={set s "Mouse down"} onmouseup={set s "Mouse up"}>SPAN</span> <span onmouseout={set s "Mouse out"} onmouseover={set s "Mouse over"}>SPAN</span> <span onmousemove={set s "Mouse move"}>SPAN</span> - <button onkeydown={set s "Key down"} onkeyup={set s "Key up"}/> - <button onkeypress={set s "Key press"}/> + <button onkeydown={fn k => set s ("Key down: " ^ show k)} onkeyup={fn _ => set s "Key up"}/> + <button onkeypress={fn _ => set s "Key press"}/> <br/> <br/> |