annotate tests/setActive.ur @ 2042:336070df8aec

Manual: Heuristic compilation warning
author Adam Chlipala <adam@chlipala.net>
date Sat, 26 Jul 2014 09:39:45 -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>