blob: 35ee92431b5b8dc318fb58c639f016c823a0b4cd (
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={fn _ => set s "Now you clicked it."}/><br/>
<dyn signal={v <- signal s; return <xml>{[v]}</xml>}/>
</body></xml>
|