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 | a8e63939847f6fb02b2dc030adca09e554adb89f (patch) | |
| tree | 13683afe5e2e162dec21d810da31708f220d3fb5 /src/settings.sml | |
| parent | da2141fbf28e6173f587ee146acc8f78b7ea8e0d (diff) | |
Basis.giveFocus
Diffstat (limited to 'src/settings.sml')
| -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) |