Mercurial > urweb
comparison tests/stypes.ur @ 589:102e81d975e3
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> |