From edd64e5edc98649b741dad91ce8c6a902492a1c7 Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Sat, 21 Jul 2012 21:07:15 -0400 Subject: Fix bug in handling of event attributes within client-side widgets --- tests/ctextboxAttrs.ur | 6 ++++++ 1 file changed, 6 insertions(+) create mode 100644 tests/ctextboxAttrs.ur (limited to 'tests/ctextboxAttrs.ur') diff --git a/tests/ctextboxAttrs.ur b/tests/ctextboxAttrs.ur new file mode 100644 index 00000000..84cd087a --- /dev/null +++ b/tests/ctextboxAttrs.ur @@ -0,0 +1,6 @@ +fun main () : transaction page = + s <- source "Initial"; + return + alert ("Clicky " ^ show ev.ScreenX)} + onkeypress={fn ev => alert ("Code " ^ show ev.KeyCode)}/> + -- cgit v1.2.3