blob: 01c63eaeae9c7af49cd8e9e61ce0c8610556c74f (
plain)
1
2
3
4
5
6
7
8
9
|
fun main () : transaction page =
x <- source <xml>A</xml>;
y <- source <xml>B</xml>;
return <xml><body>
<dyn signal={x <- signal x; y <- signal y; return <xml>{x}, {y}</xml>}/>
<br/>
<a onclick={set x <xml>C</xml>}>Change x</a><br/>
<a onclick={set y <xml>D</xml>}>Change y</a><br/>
</body></xml>
|
