annotate tests/setActive.ur @ 1956:ac1be85e91ad

Add 'html5' .urp directive
author Adam Chlipala <adam@chlipala.net>
date Thu, 09 Jan 2014 17:27:24 -0500
parents 3d823d8424cc
children
rev   line source
adam@1792 1 fun main () : transaction page =
adam@1792 2 i <- fresh;
adam@1792 3 x <- source <xml/>;
adam@1792 4 return <xml>
adam@1792 5 <body>
adam@1792 6 <dyn signal={signal x} />
adam@1792 7 <active code={set x <xml><ctextbox/><ctextbox id={i}/><ctextbox/><active code={giveFocus i; return <xml/>}/></xml>; return <xml/>}/>
adam@1792 8 </body>
adam@1792 9 </xml>