blob: c7daae3c7eac869859ce578caca19939078b94d4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
fun main () =
s1 <- source False;
s2 <- source False;
return <xml><body>
<dyn signal={s1 <- signal s1;
return (if s1 then
<xml><dyn signal={s2 <- signal s2;
return <xml>{[s2]}</xml>}/></xml>
else
<xml>Not yet</xml>)}/>
<hr/>
<button value="s1" onclick={set s1 True}/>
<button value="s2" onclick={set s2 True}/>
</body></xml>
|
