diff options
Diffstat (limited to 'src/monoize.sml')
-rw-r--r-- | src/monoize.sml | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/monoize.sml b/src/monoize.sml index 86a27543..e8d8a122 100644 --- a/src/monoize.sml +++ b/src/monoize.sml @@ -2498,6 +2498,10 @@ fun monoExp (env, st, fm) (all as (e, loc)) = val assgns = List.mapPartial (fn ("Source", _, _) => NONE + | ("Onchange", e, _) => + SOME (strcat [str "addOnChange(d,", + (L'.EJavaScript (L'.Script, e, NONE), loc), + str ")"]) | (x, e, _) => SOME (strcat [str ("d." ^ lowercaseFirst x ^ "="), (L'.EJavaScript (L'.Script, e, NONE), loc), |