diff options
author | Adam Chlipala <adam@chlipala.net> | 2012-07-21 11:59:41 -0400 |
---|---|---|
committer | Adam Chlipala <adam@chlipala.net> | 2012-07-21 11:59:41 -0400 |
commit | 6ee57363d23e05fd783d8b7d151a249c0efdcd23 (patch) | |
tree | 13683afe5e2e162dec21d810da31708f220d3fb5 /src | |
parent | 84a14ca026a8ca7ed4488e51506340b249809fae (diff) |
Basis.giveFocus
Diffstat (limited to 'src')
-rw-r--r-- | src/settings.sml | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/src/settings.sml b/src/settings.sml index 66bc7238..dcaf392d 100644 --- a/src/settings.sml +++ b/src/settings.sml @@ -177,7 +177,8 @@ val benignBase = basis ["get_cookie", "onMouseup", "preventDefault", "stopPropagation", - "fresh"] + "fresh", + "giveFocus"] val benign = ref benignBase fun setBenignEffectful ls = benign := S.addList (benignBase, ls) @@ -205,7 +206,8 @@ val clientBase = basis ["get_client_source", "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 @@ val jsFuncsBase = basisM [("alert", "alert"), ("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) |