Mercurial > urweb

comparison src/monoize.sml @ 1711:78ea155b6b14

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fixed 'onload' handling for img tag.
author Vladimir Shabanov <vshabanoff@gmail.com>
date Wed, 11 Apr 2012 03:06:23 +0400
parents a7b70c7b3f1a
children 355dc023fbb8
comparison
equal deleted inserted replaced
1710:540df112ff62 1711:78ea155b6b14
3045 [] => (onload, onunload, acc) 3045 [] => (onload, onunload, acc)
3046 | ("Onload", e, _) :: rest => findOnload (rest, SOME e, onunload, acc) 3046 | ("Onload", e, _) :: rest => findOnload (rest, SOME e, onunload, acc)
3047 | ("Onunload", e, _) :: rest => findOnload (rest, onload, SOME e, acc) 3047 | ("Onunload", e, _) :: rest => findOnload (rest, onload, SOME e, acc)
3048 | x :: rest => findOnload (rest, onload, onunload, x :: acc) 3048 | x :: rest => findOnload (rest, onload, onunload, x :: acc)
3049 3049
3050 val (onload, onunload, attrs) = findOnload (attrs, NONE, NONE, []) 3050 val (onload, onunload, attrs) =
3051 if tag = "body" then
3052 findOnload (attrs, NONE, NONE, [])
3053 else
3054 (NONE, NONE, attrs)
3051 3055
3052 val (class, fm) = monoExp (env, st, fm) class 3056 val (class, fm) = monoExp (env, st, fm) class
3053 val (dynClass, fm) = monoExp (env, st, fm) dynClass 3057 val (dynClass, fm) = monoExp (env, st, fm) dynClass
3054 3058
3055 val dynamics = ["dyn", "ctextbox", "ccheckbox", "cselect", "coption", "ctextarea"] 3059 val dynamics = ["dyn", "ctextbox", "ccheckbox", "cselect", "coption", "ctextarea"]