diff options
| author |  Adam Chlipala <adam@chlipala.net> | 2011-09-11 14:14:49 -0400 |
|---|---|---|
| committer | Adam Chlipala <adam@chlipala.net> | 2011-09-11 14:14:49 -0400 |
| commit | 027e8d90fdd3f74698ed40974294fd053a70cd20 (patch) | |
| tree | 83bc389429c007e44e18c3d6eba6077a7148bf77 /src/settings.sml | |
| parent | b6ad8fe5b4adacea14831171734f954969a72e23 (diff) | |
New Basis functions: preventDefault and stopPropagation (code contributed by Vladimir Shabanov)
Diffstat (limited to 'src/settings.sml')
| -rw-r--r-- | src/settings.sml | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/src/settings.sml b/src/settings.sml index 9301e93e..ab1d7f88 100644 --- a/src/settings.sml +++ b/src/settings.sml @@ -156,6 +156,8 @@ val benignBase = basis ["get_cookie", "onKeyup", "onMousedown", "onMouseup", + "preventDefault", + "stopPropagation", "fresh"] val benign = ref benignBase @@ -182,7 +184,9 @@ val clientBase = basis ["get", "onKeypress", "onKeyup", "onMousedown", - "onMouseup"] + "onMouseup", + "preventDefault", + "stopPropagation"] val client = ref clientBase fun setClientOnly ls = client := S.addList (clientBase, ls) fun isClientOnly x = S.member (!client, x) @@ -280,6 +284,8 @@ val jsFuncsBase = basisM [("alert", "alert"), ("onKeyup", "uw_onKeyup"), ("onMousedown", "uw_onMousedown"), ("onMouseup", "uw_onMouseup"), + ("preventDefault", "uw_preventDefault"), + ("stopPropagation", "uw_stopPropagation"), ("fresh", "fresh")] val jsFuncs = ref jsFuncsBase |