Mercurial > urweb

comparison tests/stypes.ur @ 589:102e81d975e3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Included a recursive function in JavaScript
author Adam Chlipala <adamc@hcoop.net>
date Thu, 01 Jan 2009 11:58:00 -0500
parents 5803b4f041cb
children
comparison
equal deleted inserted replaced
588:5803b4f041cb 589:102e81d975e3
54 <dyn signal={c <- signal sColor; return <xml>{[c]}</xml>}/> 54 <dyn signal={c <- signal sColor; return <xml>{[c]}</xml>}/>
55 <a onclick={set sColor Red}>Red</a> 55 <a onclick={set sColor Red}>Red</a>
56 <a onclick={set sColor White}>White</a> 56 <a onclick={set sColor White}>White</a>
57 <a onclick={set sColor Blue}>Blue</a><br/> 57 <a onclick={set sColor Blue}>Blue</a><br/>
58 58
59 <dyn signal={ls <- signal sList; return <xml>{[isNil ls]}</xml>}/> 59 <dyn signal={ls <- signal sList; return <xml>{[isNil ls]}</xml>}/>;
60 <dyn signal={ls <- signal sList; return <xml>{delist ls}</xml>}/>
60 <a onclick={set sList (Cons ("A", Cons ("B", Nil)))}>Change</a><br/> 61 <a onclick={set sList (Cons ("A", Cons ("B", Nil)))}>Change</a><br/>
61 </body></xml> 62 </body></xml>