From a38526edd81a66ad3f34cf65a66f4ba866dd1490 Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Sat, 18 Jul 2009 12:37:19 -0400 Subject: Testing new events --- lib/ur/basis.urs | 2 +- tests/event.ur | 16 ++++++++++++++++ tests/event.urp | 3 +++ tests/event.urs | 1 + 4 files changed, 21 insertions(+), 1 deletion(-) create mode 100644 tests/event.ur create mode 100644 tests/event.urp create mode 100644 tests/event.urs diff --git a/lib/ur/basis.urs b/lib/ur/basis.urs index c4520ae7..5f13f5c9 100644 --- a/lib/ur/basis.urs +++ b/lib/ur/basis.urs @@ -554,7 +554,7 @@ con focusEvents = [Onblur = transaction unit, Onfocus = transaction unit] con mouseEvents = [Onclick = transaction unit, Ondblclick = transaction unit, Onmousedown = transaction unit, Onmousemove = transaction unit, Onmouseout = transaction unit, Onmouseover = transaction unit, - Onmouseup = transaction unit, ] + Onmouseup = transaction unit] con keyEvents = [Onkeydown = transaction unit, Onkeypress = transaction unit, Onkeyup = transaction unit] con resizeEvents = [Onresize = transaction unit] diff --git a/tests/event.ur b/tests/event.ur new file mode 100644 index 00000000..cb02bc2f --- /dev/null +++ b/tests/event.ur @@ -0,0 +1,16 @@ +fun main () = + s <- source ""; + return +