Mercurial > urweb
comparison tests/snest.ur @ 1039:8932f855fa85
grid0 working in IE
| author | Adam Chlipala <adamc@hcoop.net> |
|---|---|
| date | Sun, 22 Nov 2009 15:30:15 -0500 |
| parents | |
| children |
comparison
equal
deleted
inserted
replaced
| 1038:dcc6093e9575 | 1039:8932f855fa85 |
|---|---|
| 1 fun main () = | |
| 2 s1 <- source False; | |
| 3 s2 <- source False; | |
| 4 | |
| 5 return <xml><body> | |
| 6 <dyn signal={s1 <- signal s1; | |
| 7 return (if s1 then | |
| 8 <xml><dyn signal={s2 <- signal s2; | |
| 9 return <xml>{[s2]}</xml>}/></xml> | |
| 10 else | |
| 11 <xml>Not yet</xml>)}/> | |
| 12 <hr/> | |
| 13 <button value="s1" onclick={set s1 True}/> | |
| 14 <button value="s2" onclick={set s2 True}/> | |
| 15 </body></xml> |