diff options
| author |  Ziv Scully <ziv@mit.edu> | 2015-04-07 14:18:53 -0400 |
|---|---|---|
| committer | Ziv Scully <ziv@mit.edu> | 2015-04-07 14:18:53 -0400 |
| commit | f1327b29e1c499845d13e01b4c1635d616713493 (patch) | |
| tree | 30175c2ac71e1a0f768a55234014b026408429d0 /src/settings.sml | |
| parent | 46f7447e864b89097adedb70827017a5eef234f0 (diff) | |
New mouse events oncontextmenu, onmouseenter, and onmouseleave.
Diffstat (limited to 'src/settings.sml')
| -rw-r--r-- | src/settings.sml | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/src/settings.sml b/src/settings.sml index bd958e22..e15988cd 100644 --- a/src/settings.sml +++ b/src/settings.sml @@ -176,10 +176,13 @@ val benignBase = basis ["get_cookie", "spawn", "onClick", "onDblclick", + "onContextmenu", "onKeydown", "onKeypress", "onKeyup", "onMousedown", + "onMouseenter", + "onMouseleave", "onMousemove", "onMouseout", "onMouseover", @@ -212,11 +215,14 @@ val clientBase = basis ["get_client_source", "mouseEvent", "keyEvent", "onClick", + "onContextmenu", "onDblclick", "onKeydown", "onKeypress", "onKeyup", "onMousedown", + "onMouseenter", + "onMouseleave", "onMousemove", "onMouseout", "onMouseover", @@ -349,11 +355,14 @@ val jsFuncsBase = basisM [("alert", "alert"), ("onClick", "uw_onClick"), + ("onContextmenu", "uw_onContextmenu"), ("onDblclick", "uw_onDblclick"), ("onKeydown", "uw_onKeydown"), ("onKeypress", "uw_onKeypress"), ("onKeyup", "uw_onKeyup"), ("onMousedown", "uw_onMousedown"), + ("onMouseenter", "uw_onMouseenter"), + ("onMouseleave", "uw_onMouseleave"), ("onMousemove", "uw_onMousemove"), ("onMouseout", "uw_onMouseout"), ("onMouseover", "uw_onMouseover"), @@ -764,7 +773,7 @@ fun mangleSqlTable s = fun mangleSql s = if #name (currentDbms ()) = "mysql" then if !mangle then - "uw_" ^ allLower s + "uw_" ^ allLower s else allLower s else |