blob: 753318f709268a39cbf0c8aaf1524c58293eabb9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
fun main () : transaction page =
a <- source "";
b <- source "";
return <xml><body>
<ctextbox source={a}/>
<button onclick={fn _ => x <- get a; set b x}>click me</button>
<div>
<dyn signal={v <- signal a; return <xml>{[v]}</xml>}/>
/ <dyn signal={v <- signal b; return <xml>{[v]}</xml>}/>
</div>
</body></xml>
|
