Mercurial > urweb

view tests/setActive.ur @ 2191:849404a3af27

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Change behavior of SQL equality to do the intuitive thing for nullable types
author Adam Chlipala <adam@chlipala.net>
date Sun, 01 Nov 2015 17:02:16 -0500
parents 3d823d8424cc
children
line wrap: on
line source
fun main () : transaction page =
    i <- fresh;
    x <- source <xml/>;
    return <xml>
      <body>
        <dyn signal={signal x} />
        <active code={set x <xml><ctextbox/><ctextbox id={i}/><ctextbox/><active code={giveFocus i; return <xml/>}/></xml>; return <xml/>}/>
      </body>
    </xml>