Mercurial > urweb

view tests/rs.ur @ 1688:8c2e8d41a8f2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Correct an SQL grammar omission (thanks to Alexei Golovko for spotting the problem)
author Adam Chlipala <adam@chlipala.net>
date Sat, 25 Feb 2012 15:34:44 -0500
parents 36f7d1debb37
children
line wrap: on
line source
fun bobo () =
    n1 <- source 0;
    n2 <- source 1;
    return <xml>
      <dyn signal={n1 <- signal n1; n2 <- signal n2; return <xml>{[n1 + n2]}</xml>}/>
      <button value="Increment1" onclick={v <- get n1; set n1 (v + 1)}/>
      <button value="Increment2" onclick={v <- get n2; set n2 (v + 1)}/>
    </xml>

fun main () =
    x <- source <xml/>;
    return <xml><body>
      <dyn signal={signal x}/>
      <button value="Grab" onclick={y <- rpc (bobo ()); set x y}/>
    </body></xml>