From 13f7571727ad5626070ad9b735582d15e51161c4 Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Sun, 15 Jan 2012 14:45:06 -0500 Subject: Fix fetching of keycodes for key events --- demo/more/versioned1.urp | 1 - src/monoize.sml | 4 ++-- 2 files changed, 2 insertions(+), 3 deletions(-) diff --git a/demo/more/versioned1.urp b/demo/more/versioned1.urp index c24b3531..748a081c 100644 --- a/demo/more/versioned1.urp +++ b/demo/more/versioned1.urp @@ -1,4 +1,3 @@ -debug library versioned database dbname=test sql versioned1.sql diff --git a/src/monoize.sml b/src/monoize.sml index 44cd8bb3..ccadf936 100644 --- a/src/monoize.sml +++ b/src/monoize.sml @@ -3247,11 +3247,11 @@ fun monoExp (env, st, fm) (all as (e, loc)) = in case x of "Onkeyup" => - SOME (strcat [str ("((function(c){addOnKeyUp(d,function(){window.uw_event=window.event;return c();});})(exec("), + SOME (strcat [str ("((function(c){addOnKeyUp(d,function(ev){window.uw_event=ev?ev:window.event;return c();});})(exec("), (L'.EJavaScript (L'.Script, e), loc), str ")));"]) | _ => - SOME (strcat [str ("((function(c){d." ^ lowercaseFirst x ^ "=function(){window.uw_event=window.event;return c();};})(exec("), + SOME (strcat [str ("((function(c){d." ^ lowercaseFirst x ^ "=function(ev){window.uw_event=ev?ev:window.event;return c();};})(exec("), (L'.EJavaScript (L'.Script, e), loc), str ")));"]) end -- cgit v1.2.3