Mercurial > urweb

diff src/settings.sml @ 1785:ffd7ed3bc0b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Basis.giveFocus
author Adam Chlipala <adam@chlipala.net>
date Sat, 21 Jul 2012 11:59:41 -0400
parents 5bc4fbf9c0fe
children 69daa6d70299
line wrap: on
line diff
--- a/src/settings.sml	Sat Jul 21 10:12:35 2012 -0400
+++ b/src/settings.sml	Sat Jul 21 11:59:41 2012 -0400
@@ -177,7 +177,8 @@
                         "onMouseup",
                         "preventDefault",
                         "stopPropagation",
-                        "fresh"]
+                        "fresh",
+                        "giveFocus"]
 
 val benign = ref benignBase
 fun setBenignEffectful ls = benign := S.addList (benignBase, ls)
@@ -205,7 +206,8 @@
                         "onMousedown",
                         "onMouseup",
                         "preventDefault",
-                        "stopPropagation"]
+                        "stopPropagation",
+                        "giveFocus"]
 val client = ref clientBase
 fun setClientOnly ls = client := S.addList (clientBase, ls)
 fun isClientOnly x = S.member (!client, x)
@@ -322,7 +324,8 @@
 
                           ("atom", "atom"),
                           ("css_url", "css_url"),
-                          ("property", "property")]
+                          ("property", "property"),
+                          ("giveFocus", "giveFocus")]
 val jsFuncs = ref jsFuncsBase
 fun setJsFuncs ls = jsFuncs := foldl (fn ((k, v), m) => M.insert (m, k, v)) jsFuncsBase ls
 fun jsFunc x = M.find (!jsFuncs, x)