Mercurial > urweb

view tests/reactive5.ur @ 1327:1cc67fdac4d3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
New argument to transactional free functions, to specify whether we are about to retry
author Adam Chlipala <adam@chlipala.net>
date Sat, 04 Dec 2010 11:15:20 -0500
parents e955d50c389d
children
line wrap: on
line source
fun main () : transaction page =
  x <- source <xml>A</xml>;
  y <- source <xml>B</xml>;
  return <xml><body>
    <dyn signal={x <- signal x; y <- signal y; return <xml>{x}, {y}</xml>}/>
    <br/>
    <a onclick={set x <xml>C</xml>}>Change x</a><br/>
    <a onclick={set y <xml>D</xml>}>Change y</a><br/>
  </body></xml>