summaryrefslogtreecommitdiff
path: root/tests/event.ur
diff options
context:
space:
mode:
Diffstat (limited to 'tests/event.ur')
-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/>