blob: e937c1d94cf8f394b46c97b3869b6da0d4e402ea (
plain)
1
2
3
4
5
6
7
8
9
|
fun main () : transaction page =
i <- fresh;
x <- source <xml/>;
return <xml>
<body>
<dyn signal={signal x} />
<active code={set x <xml><ctextbox/><ctextbox id={i}/><ctextbox/><active code={giveFocus i; return <xml/>}/></xml>; return <xml/>}/>
</body>
</xml>
|
