Mercurial > urweb

comparison src/settings.sml @ 1559:df6a7a22760a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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)