diff options
| author |  Artyom Shalkhakov <artyom.shalkhakov@gmail.com> | 2018-05-28 21:34:07 +0600 |
|---|---|---|
| committer | Artyom Shalkhakov <artyom.shalkhakov@gmail.com> | 2018-05-28 21:34:07 +0600 |
| commit | 7f6f6045c0c1cc9bd8323e3e7de905e0e46fe82d (patch) | |
| tree | 5e21a934f0d49d35633ccbc65ab8114d4570d9e0 /src | |
| parent | 373cb403871c0c77f26cb76213adde3aeb278240 (diff) | |
Adding: cradio (support for client-side radio box).
Diffstat (limited to 'src')
| -rw-r--r-- | src/css.sml | 1 | ||||
| -rw-r--r-- | src/monoize.sml | 4 |
2 files changed, 4 insertions, 1 deletions
diff --git a/src/css.sml b/src/css.sml index 9e50686f..5bf4ea7b 100644 --- a/src/css.sml +++ b/src/css.sml @@ -104,6 +104,7 @@ val tags = [("span", inline), ("cpassword", replaced), ("button", replaced), ("ccheckbox", replaced), + ("cradio", replaced), ("cselect", replaced), ("ctextarea", replaced), ("tabl", table), diff --git a/src/monoize.sml b/src/monoize.sml index 85a66e87..11c6ea31 100644 --- a/src/monoize.sml +++ b/src/monoize.sml @@ -3070,7 +3070,7 @@ fun monoExp (env, st, fm) (all as (e, loc)) = | _ => (attrs, NONE) - val dynamics = ["dyn", "ctextbox", "cpassword", "ccheckbox", "cselect", "coption", "ctextarea", "active", "script", "cemail", "csearch", "curl", "ctel", "ccolor"] + val dynamics = ["dyn", "ctextbox", "cpassword", "ccheckbox", "cradio", "cselect", "coption", "ctextarea", "active", "script", "cemail", "csearch", "curl", "ctel", "ccolor"] fun isSome (e, _) = case e of @@ -3560,6 +3560,8 @@ fun monoExp (env, st, fm) (all as (e, loc)) = | "ctime" => cinput ("time", "time") | "ccheckbox" => cinput ("checkbox", "chk") + | "cradio" => cinput ("radio", "crad") + | "cselect" => (case List.find (fn ("Source", _, _) => true | _ => false) attrs of NONE => |