summaryrefslogtreecommitdiff
path: root/tests/cradio.ur
blob: 5b6e9d2229b64a7a316bd3a8bdc0615f094c2e9e (plain)
1
2
3
4
5
6
7
8
9
10
11
12
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