summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adamc@hcoop.net>2009-07-18 12:53:26 -0400
committerGravatar Adam Chlipala <adamc@hcoop.net>2009-07-18 12:53:26 -0400
commit016ab508175a1495e1e1e967467d481ac0258d5d (patch)
tree6b55accc9b388b5a6a51795811f7660a5ff5c682 /tests
parenta38526edd81a66ad3f34cf65a66f4ba866dd1490 (diff)
Key events get key code input
Diffstat (limited to 'tests')
-rw-r--r--tests/event.ur4
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/>