summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adam@chlipala.net>2011-09-11 14:14:49 -0400
committerGravatar Adam Chlipala <adam@chlipala.net>2011-09-11 14:14:49 -0400
commit027e8d90fdd3f74698ed40974294fd053a70cd20 (patch)
tree83bc389429c007e44e18c3d6eba6077a7148bf77 /src
parentb6ad8fe5b4adacea14831171734f954969a72e23 (diff)
New Basis functions: preventDefault and stopPropagation (code contributed by Vladimir Shabanov)
Diffstat (limited to 'src')
-rw-r--r--src/settings.sml8
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