blob: 5560eddafeac01dcebaad5601fa8db32c5757308 (
plain)
1
2
3
4
5
6
7
8
9
10
|
fun main () : transaction page = return <xml><body>
<active code={s <- source ""; return <xml>
<dyn signal={s <- signal s; return (txt s)}/>
<button onclick={fn _ => set s "Hi!"}/>
</xml>}/>
<active code={sleep 1; return <xml>Hi!</xml>}/>
<active code={spawn (sleep 1; alert "Hi!"); return <xml>Success</xml>}/>
</body></xml>
|
