Mercurial > urweb

view tests/setActive.ur @ 1841:184d00f7be74

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add more HTML singleton tags, anticipating that others may make them available via the FFI
author Adam Chlipala <adam@chlipala.net>
date Mon, 31 Dec 2012 09:04:35 -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>