Mercurial > urweb

view tests/id.ur @ 1924:b44138e6a3bf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add activeHead tag. activeHead is similar to active but produces xhead instead of xbody
author Sergey Mironov <grrwlf@gmail.com>
date Fri, 06 Dec 2013 13:59:39 +0400
parents 6f2f74cc4ead
children
line wrap: on
line source
fun main () : transaction page =
    id1 <- fresh;
    id2 <- fresh;
    x <- source <xml/>;
    return <xml><body>
      <span id={id1}>Hi!</span>
      <span id={id2}>Ho!</span>
      <dyn signal={signal x}/>
      <button value="Set" onclick={id <- fresh; set x <xml><span id={id}>He!</span></xml>}/>
      <button value="Show" onclick={x <- get x; alert (show x)}/>
    </body></xml>