blob: 0c460478bd4d7495154f7587e76d47cc643554c1 (
plain)
1
2
3
4
5
6
|
fun main () =
s <- source "You didn't click it yet.";
return <xml><body>
<button value="Click me!" onclick={set s "Now you clicked it."}/><br/>
<dyn signal={v <- signal s; return <xml>{[v]}</xml>}/>
</body></xml>
|