1 files changed, 34 insertions, 6 deletions

diff --git a/lib/js/urweb.js b/lib/js/urweb.js
index ebe192ca..99b45ec9 100644
--- a/lib/js/urweb.js
+++ b/lib/js/urweb.js
@@ -1205,6 +1205,19 @@ function time(s, name) {
     return inpt("time", s, name);
 }
 
+function crad(s) {
+    if (suspendScripts)
+        return;
+
+    var x = input(document.createElement("input"), s,
+                  function(x) { return function(v) { x.checked = (x.value === v); }; }, "radio");
+    x.onclick = x.onkeyup = x.oninput = x.onchange = x.onpropertychange = function() { sv(s, x.value) };
+    setTimeout(function() {
+	x.defaultChecked = x.checked = (s.data === x.value);
+    }, 10);
+
+    return x;
+}
 
 function selectValue(x) {
     if (x.options.length == 0)
@@ -1286,11 +1299,12 @@ function dynClass(pnode, html, s_class, s_style) {
     if (pnode == "table" && html.tagName == "TBODY") {
         html = html.firstChild;
     }
-    addNode(html);
-    runScripts(html);
+
+    var x = null;
+    var y = null;
 
     if (s_class) {
-        var x = document.createElement("script");
+        x = document.createElement("script");
         x.dead = false;
         x.signal = s_class;
         x.sources = null;
@@ -1305,13 +1319,12 @@ function dynClass(pnode, html, s_class, s_style) {
 	    x.closures = concat(cls.v, htmlCls);
         }
 
-        html.appendChild(x);
         populate(x);
     }
 
     if (s_style) {
         var htmlCls2 = s_class ? null : htmlCls;
-        var y = document.createElement("script");
+        y = document.createElement("script");
         y.dead = false;
         y.signal = s_style;
         y.sources = null;
@@ -1326,9 +1339,16 @@ function dynClass(pnode, html, s_class, s_style) {
 	    y.closures = concat(cls.v, htmlCls2);
         }
 
-        html.appendChild(y);
         populate(y);
     }
+
+    addNode(html);
+    runScripts(html);
+
+    if (x)
+        html.appendChild(x);
+    if (y)
+        html.appendChild(y);
 }
 
 function bodyDynClass(s_class, s_style) {
@@ -1389,6 +1409,14 @@ function addOnChange(x, f) {
         x.onchange = function() { old(); f(); };
 }
 
+function addOnInput(x, f) {
+    var old = x.oninput;
+    if (old == null)
+        x.oninput = f;
+    else
+        x.oninput = function() { old(); f(); };
+}
+
 function addOnKeyUp(x, f) {
     var old = x.onkeyup;
     if (old == null)