Mercurial > urweb
comparison src/settings.sml @ 1559:df6a7a22760a
New Basis functions: preventDefault and stopPropagation (code contributed by Vladimir Shabanov)
author | Adam Chlipala <adam@chlipala.net> |
---|---|
date | Sun, 11 Sep 2011 14:14:49 -0400 |
parents | e1f5d9c4cc20 |
children | f403e129c276 |
comparison
equal
deleted
inserted
replaced
1558:6fe6bda2b928 | 1559:df6a7a22760a |
---|---|
154 "onKeydown", | 154 "onKeydown", |
155 "onKeypress", | 155 "onKeypress", |
156 "onKeyup", | 156 "onKeyup", |
157 "onMousedown", | 157 "onMousedown", |
158 "onMouseup", | 158 "onMouseup", |
159 "preventDefault", | |
160 "stopPropagation", | |
159 "fresh"] | 161 "fresh"] |
160 | 162 |
161 val benign = ref benignBase | 163 val benign = ref benignBase |
162 fun setBenignEffectful ls = benign := S.addList (benignBase, ls) | 164 fun setBenignEffectful ls = benign := S.addList (benignBase, ls) |
163 fun isBenignEffectful x = S.member (!benign, x) | 165 fun isBenignEffectful x = S.member (!benign, x) |
180 "onDblclick", | 182 "onDblclick", |
181 "onKeydown", | 183 "onKeydown", |
182 "onKeypress", | 184 "onKeypress", |
183 "onKeyup", | 185 "onKeyup", |
184 "onMousedown", | 186 "onMousedown", |
185 "onMouseup"] | 187 "onMouseup", |
188 "preventDefault", | |
189 "stopPropagation"] | |
186 val client = ref clientBase | 190 val client = ref clientBase |
187 fun setClientOnly ls = client := S.addList (clientBase, ls) | 191 fun setClientOnly ls = client := S.addList (clientBase, ls) |
188 fun isClientOnly x = S.member (!client, x) | 192 fun isClientOnly x = S.member (!client, x) |
189 | 193 |
190 val serverBase = basis ["requestHeader", | 194 val serverBase = basis ["requestHeader", |
278 ("onKeydown", "uw_onKeydown"), | 282 ("onKeydown", "uw_onKeydown"), |
279 ("onKeypress", "uw_onKeypress"), | 283 ("onKeypress", "uw_onKeypress"), |
280 ("onKeyup", "uw_onKeyup"), | 284 ("onKeyup", "uw_onKeyup"), |
281 ("onMousedown", "uw_onMousedown"), | 285 ("onMousedown", "uw_onMousedown"), |
282 ("onMouseup", "uw_onMouseup"), | 286 ("onMouseup", "uw_onMouseup"), |
287 ("preventDefault", "uw_preventDefault"), | |
288 ("stopPropagation", "uw_stopPropagation"), | |
283 | 289 |
284 ("fresh", "fresh")] | 290 ("fresh", "fresh")] |
285 val jsFuncs = ref jsFuncsBase | 291 val jsFuncs = ref jsFuncsBase |
286 fun setJsFuncs ls = jsFuncs := foldl (fn ((k, v), m) => M.insert (m, k, v)) jsFuncsBase ls | 292 fun setJsFuncs ls = jsFuncs := foldl (fn ((k, v), m) => M.insert (m, k, v)) jsFuncsBase ls |
287 fun jsFunc x = M.find (!jsFuncs, x) | 293 fun jsFunc x = M.find (!jsFuncs, x) |