Mercurial > urweb

annotate tests/snest.ur @ 2237:e79ef5792c8b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix bug in redundancy checking and use finer formula for UPDATE statements.
author Ziv Scully <ziv@mit.edu>
date Sun, 05 Jul 2015 23:57:28 -0700
parents 8932f855fa85
children
rev   line source
adamc@1039 1 fun main () =
adamc@1039 2 s1 <- source False;
adamc@1039 3 s2 <- source False;
adamc@1039 4
adamc@1039 5 return <xml><body>
adamc@1039 6 <dyn signal={s1 <- signal s1;
adamc@1039 7 return (if s1 then
adamc@1039 8 <xml><dyn signal={s2 <- signal s2;
adamc@1039 9 return <xml>{[s2]}</xml>}/></xml>
adamc@1039 10 else
adamc@1039 11 <xml>Not yet</xml>)}/>
adamc@1039 12 <hr/>
adamc@1039 13 <button value="s1" onclick={set s1 True}/>
adamc@1039 14 <button value="s2" onclick={set s2 True}/>
adamc@1039 15 </body></xml>