From 7f6f6045c0c1cc9bd8323e3e7de905e0e46fe82d Mon Sep 17 00:00:00 2001
From: Artyom Shalkhakov <artyom.shalkhakov@gmail.com>
Date: Mon, 28 May 2018 21:34:07 +0600
Subject: Adding: cradio (support for client-side radio box).

---
 lib/js/urweb.js  | 13 +++++++++++++
 lib/ur/basis.urs |  5 ++++-
 src/css.sml      |  1 +
 src/monoize.sml  |  4 +++-
 tests/cradio.py  | 27 +++++++++++++++++++++++++++
 tests/cradio.ur  | 13 +++++++++++++
 tests/cradio.urp |  3 +++
 tests/cradio.urs |  1 +
 8 files changed, 65 insertions(+), 2 deletions(-)
 create mode 100644 tests/cradio.py
 create mode 100644 tests/cradio.ur
 create mode 100644 tests/cradio.urp
 create mode 100644 tests/cradio.urs

diff --git a/lib/js/urweb.js b/lib/js/urweb.js
index d8198ed0..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)
diff --git a/lib/ur/basis.urs b/lib/ur/basis.urs
index c354d784..6d71d00a 100644
--- a/lib/ur/basis.urs
+++ b/lib/ur/basis.urs
@@ -1086,10 +1086,13 @@ val button : cformTag ([Value = string, Disabled = bool] ++ boxAttrs) []
 
 val ccheckbox : cformTag ([Size = int, Source = source bool] ++ boxAttrs ++ inputAttrs') []
 
+val cradio : cformTag ([Source = source (option string), Value = string] ++ boxAttrs ++ inputAttrs') []
+
 val cselect : cformTag ([Source = source string] ++ boxAttrs ++ inputAttrs') [Cselect]
 val coption : unit -> tag [Value = string, Selected = bool] [Cselect, Body] [] [] []
 
-val ctextarea : cformTag ([Rows = int, Cols = int, Placeholder = string, Source = source string] ++ boxAttrs ++ inputAttrs) []
+val ctextarea : cformTag ([Rows = int, Cols = int, Placeholder = string, Source = source string,
+                           Ontext = transaction unit] ++ boxAttrs ++ inputAttrs) []
 
 (*** Tables *)
 
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 =>
diff --git a/tests/cradio.py b/tests/cradio.py
new file mode 100644
index 00000000..b70b2ef1
--- /dev/null
+++ b/tests/cradio.py
@@ -0,0 +1,27 @@
+import unittest
+import base
+
+# issue: initialization doesn't quite work
+
+class Suite(base.Base):
+# test case:
+# initially the source is EMPTY
+# then we pick SECOND variant and check the source
+# then we pick the FIRST variant and check the source
+    def test_1(self):
+        """Test case 1"""
+        self.start("Cradio/main")
+        txt = self.body_text()
+        self.assertEqual("Wilbur Walbur Hello, I'm B. I'll be your waiter for this evening.", txt)
+        el1 = self.xpath('label[1]/input')
+        el2 = self.xpath('label[2]/input')
+        self.assertEqual(False, el1.is_selected())
+        self.assertEqual(True, el2.is_selected())
+        el1.click()
+        alert = self.driver.switch_to.alert
+        self.assertEqual("Now it's A", alert.text)
+        alert.accept()
+        self.assertEqual(True, el1.is_selected())
+        self.assertEqual(False, el2.is_selected())
+        txt = self.body_text()
+        self.assertEqual("Wilbur Walbur Hello, I'm A. I'll be your waiter for this evening.", txt)
diff --git a/tests/cradio.ur b/tests/cradio.ur
new file mode 100644
index 00000000..5b6e9d22
--- /dev/null
+++ b/tests/cradio.ur
@@ -0,0 +1,13 @@
+fun main () =
+s <- source (Some "B");
+let
+    val onc = v <- get s; alert ("Now it's " ^ show v)
+in
+    return <xml><body>
+      <label>Wilbur <cradio source={s} value="A" onchange={onc}/></label>
+      <label>Walbur <cradio source={s} value="B" onchange={onc}/></label>
+
+      Hello, I'm <dyn signal={s <- signal s; return <xml>{[s]}</xml>}/>.
+      I'll be your waiter for this evening.
+    </body></xml>
+end
diff --git a/tests/cradio.urp b/tests/cradio.urp
new file mode 100644
index 00000000..0681ab21
--- /dev/null
+++ b/tests/cradio.urp
@@ -0,0 +1,3 @@
+debug
+
+cradio
diff --git a/tests/cradio.urs b/tests/cradio.urs
new file mode 100644
index 00000000..6ac44e0b
--- /dev/null
+++ b/tests/cradio.urs
@@ -0,0 +1 @@
+val main : unit -> transaction page
-- 
cgit v1.2.3