Mercurial > urweb
changeset 581:e955d50c389d
Double-bind works
| author | Adam Chlipala <adamc@hcoop.net> |
|---|---|
| date | Tue, 30 Dec 2008 16:11:29 -0500 |
| parents | bb8463c3b712 |
| children | 66463006f893 |
| files | tests/reactive5.ur tests/reactive5.urp |
| diffstat | 2 files changed, 12 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/tests/reactive5.ur Tue Dec 30 16:11:29 2008 -0500 @@ -0,0 +1,9 @@ +fun main () : transaction page = + x <- source <xml>A</xml>; + y <- source <xml>B</xml>; + return <xml><body> + <dyn signal={x <- signal x; y <- signal y; return <xml>{x}, {y}</xml>}/> + <br/> + <a onclick={set x <xml>C</xml>}>Change x</a><br/> + <a onclick={set y <xml>D</xml>}>Change y</a><br/> + </body></xml>