blob: 17e9a0cfbe1313f8ebddc50c2a1cddf2db6d2bab (
plain)
1
2
3
4
5
6
7
8
9
10
|
fun main () : transaction page =
s <- source "Hi";
return <xml><body>
<form>
<textbox{#A} source={s}/>
</form>
<a onclick={set s "NEW AND DIFFERENT"}>Change it up!</a><br/>
<br/>
Latest: <dyn signal={s <- signal s; return (cdata s)}/>
</body></xml>
|
