blob: 9a1e3e90d33920afa2eb31670de6e1304ae0a56a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
fun main () =
s1 <- source "";
s2 <- source "";
let
fun echo s = return s
fun echoer () =
v1 <- get s1;
v1' <- rpc (echo v1);
set s2 v1'
in
return <xml><body>
<dyn signal={v <- signal s2; return (cdata v)}/><hr/>
<ctextbox source={s1}/> <button onclick={echoer ()}/>
</body></xml>
end
|
