Mercurial > urweb
comparison src/settings.sml @ 1555:d5c961c709f9
New client-side, document-level event handlers
author | Adam Chlipala <adam@chlipala.net> |
---|---|
date | Sat, 03 Sep 2011 11:48:12 -0400 |
parents | 883347f5c3c2 |
children | e1f5d9c4cc20 |
comparison
equal
deleted
inserted
replaced
1554:396e8d881205 | 1555:d5c961c709f9 |
---|---|
145 "debug", | 145 "debug", |
146 "naughtyDebug", | 146 "naughtyDebug", |
147 "rand", | 147 "rand", |
148 "now", | 148 "now", |
149 "getHeader", | 149 "getHeader", |
150 "setHeader"] | 150 "setHeader", |
151 "spawn", | |
152 "onClick", | |
153 "onDblclick", | |
154 "onKeydown", | |
155 "onKeypress", | |
156 "onKeyup", | |
157 "onMousedown", | |
158 "onMouseup"] | |
151 | 159 |
152 val benign = ref benignBase | 160 val benign = ref benignBase |
153 fun setBenignEffectful ls = benign := S.addList (benignBase, ls) | 161 fun setBenignEffectful ls = benign := S.addList (benignBase, ls) |
154 fun isBenignEffectful x = S.member (!benign, x) | 162 fun isBenignEffectful x = S.member (!benign, x) |
155 | 163 |
164 "onError", | 172 "onError", |
165 "onFail", | 173 "onFail", |
166 "onConnectFail", | 174 "onConnectFail", |
167 "onDisconnect", | 175 "onDisconnect", |
168 "onServerError", | 176 "onServerError", |
169 "kc"] | 177 "kc", |
178 "onClick", | |
179 "onDblclick", | |
180 "onKeydown", | |
181 "onKeypress", | |
182 "onKeyup", | |
183 "onMousedown", | |
184 "onMouseup"] | |
170 val client = ref clientBase | 185 val client = ref clientBase |
171 fun setClientOnly ls = client := S.addList (clientBase, ls) | 186 fun setClientOnly ls = client := S.addList (clientBase, ls) |
172 fun isClientOnly x = S.member (!client, x) | 187 fun isClientOnly x = S.member (!client, x) |
173 | 188 |
174 val serverBase = basis ["requestHeader", | 189 val serverBase = basis ["requestHeader", |
253 ("now", "now"), | 268 ("now", "now"), |
254 ("timeToString", "showTime"), | 269 ("timeToString", "showTime"), |
255 ("htmlifyTime", "showTime"), | 270 ("htmlifyTime", "showTime"), |
256 ("toSeconds", "toSeconds"), | 271 ("toSeconds", "toSeconds"), |
257 ("addSeconds", "addSeconds"), | 272 ("addSeconds", "addSeconds"), |
258 ("diffInSeconds", "diffInSeconds")] | 273 ("diffInSeconds", "diffInSeconds"), |
274 | |
275 ("onClick", "uw_onClick"), | |
276 ("onDblclick", "uw_onDblclick"), | |
277 ("onKeydown", "uw_onKeydown"), | |
278 ("onKeypress", "uw_onKeypress"), | |
279 ("onKeyup", "uw_onKeyup"), | |
280 ("onMousedown", "uw_onMousedown"), | |
281 ("onMouseup", "uw_onMouseup")] | |
259 val jsFuncs = ref jsFuncsBase | 282 val jsFuncs = ref jsFuncsBase |
260 fun setJsFuncs ls = jsFuncs := foldl (fn ((k, v), m) => M.insert (m, k, v)) jsFuncsBase ls | 283 fun setJsFuncs ls = jsFuncs := foldl (fn ((k, v), m) => M.insert (m, k, v)) jsFuncsBase ls |
261 fun jsFunc x = M.find (!jsFuncs, x) | 284 fun jsFunc x = M.find (!jsFuncs, x) |
262 fun allJsFuncs () = M.listItemsi (!jsFuncs) | 285 fun allJsFuncs () = M.listItemsi (!jsFuncs) |
263 | 286 |