annotate tests/setActive.ur @ 2057:f4a6ccb7937f

Allow Body tags inside cformTags This is required by Bootstrap. For example, see http://getbootstrap.com/components/#alerts-dismissible
author Sergey Mironov <grrwlf@gmail.com>
date Sun, 17 Aug 2014 18:28:37 +0000
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>