diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-05-14 11:04:56 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-05-14 11:04:56 -0400 |
| commit | e6dd56d42a28138bcd9fdea52d0b232839c298dc (patch) | |
| tree | da75a35df02e170e6cc2cfd6f02433f82d8e3763 /src/scriptcheck.sml | |
| parent | b6c1b15d74dcf84fdb174eecc31cdf64a98f07a3 (diff) | |
cselect.onchange
Diffstat (limited to 'src/scriptcheck.sml')
| -rw-r--r-- | src/scriptcheck.sml | 26 |
1 files changed, 24 insertions, 2 deletions
diff --git a/src/scriptcheck.sml b/src/scriptcheck.sml index 61676dc6..834ff1c7 100644 --- a/src/scriptcheck.sml +++ b/src/scriptcheck.sml @@ -43,9 +43,31 @@ val pullBasis = SS.addList (SS.empty, val pushBasis = SS.addList (SS.empty, ["new_channel", "self"]) + +val events = ["abort", + "blur", + "change", + "click", + "dblclick", + "error", + "focus", + "keydown", + "keypress", + "keyup", + "load", + "mousedown", + "mousemove", + "mouseout", + "mouseover", + "mouseup", + "reset", + "resize", + "select", + "submit", + "unload"] -val scriptWords = ["<script", - " onclick='"] +val scriptWords = "<script" + :: map (fn s => "on" ^ s ^ " ='") events val pushWords = ["rv("] |