Mercurial > urweb
diff tests/stypes.ur @ 587:4c899701bd28
Reactive if
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Thu, 01 Jan 2009 11:16:57 -0500 |
parents | 1c969230ee7f |
children | 5803b4f041cb |
line wrap: on
line diff
--- a/tests/stypes.ur Thu Jan 01 11:13:08 2009 -0500 +++ b/tests/stypes.ur Thu Jan 01 11:16:57 2009 -0500 @@ -22,5 +22,7 @@ | Some n => return <xml>{[n]}</xml>}/> <a onclick={set sOpt (Some 7)}>Change</a><br/> - <dyn signal={b <- signal sBool; return <xml>{[b]}</xml>}/> <a onclick={set sBool False}>Change</a><br/> + <dyn signal={b <- signal sBool; return <xml>{[b]}</xml>}/> + <dyn signal={b <- signal sBool; if b then return <xml>Yes</xml> else return <xml>No</xml>}/> + <a onclick={set sBool False}>Change</a><br/> </body></xml>