summaryrefslogtreecommitdiff
path: root/tests/activeBlock.ur
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>