annotate tests/setActive.ur @ 2073:1839df6ed755

uw_remoteSock()
author Adam Chlipala <adam@chlipala.net>
date Sun, 16 Nov 2014 13:39:18 -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>