annotate tests/setActive.ur @ 2180:5940149cd11a

Return to working version mode
author Adam Chlipala <adam@chlipala.net>
date Sun, 18 Oct 2015 10:50:59 -0400
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>