blob: a11c008800f63c43aa52b1ba36d052faa2ffc6ee (
plain)
1
2
3
4
5
6
7
8
9
10
|
fun main () =
s <- source "";
return <xml><body>
<ctextbox source={s}/><br/>
<button value="Echo" onclick={s <- get s; alert s}/>
<button value="+1" onclick={s <- get s; alert (show (readError s + 1))}/>
<button value="*3" onclick={s <- get s; alert (show ((readError s) * 3))}/>
</body></xml>
|