diff options
| author |  Adam Chlipala <adam@chlipala.net> | 2011-04-09 14:36:47 -0400 |
|---|---|---|
| committer | Adam Chlipala <adam@chlipala.net> | 2011-04-09 14:36:47 -0400 |
| commit | a9d63c44fad31322477b51c11655adfb7002712e (patch) | |
| tree | 129120a683d01c00c6deb50349c48d8975dfd573 /tests/rs.ur | |
| parent | bb8cd3211735e282f6e61a5bc9136eec616379e4 (diff) | |
Each context gets its own non-repeating sequence of source numbers
Diffstat (limited to 'tests/rs.ur')
| -rw-r--r-- | tests/rs.ur | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/tests/rs.ur b/tests/rs.ur new file mode 100644 index 00000000..ae5ff85f --- /dev/null +++ b/tests/rs.ur @@ -0,0 +1,15 @@ +fun bobo () = + n1 <- source 0; + n2 <- source 1; + return <xml> + <dyn signal={n1 <- signal n1; n2 <- signal n2; return <xml>{[n1 + n2]}</xml>}/> + <button value="Increment1" onclick={v <- get n1; set n1 (v + 1)}/> + <button value="Increment2" onclick={v <- get n2; set n2 (v + 1)}/> + </xml> + +fun main () = + x <- source <xml/>; + return <xml><body> + <dyn signal={signal x}/> + <button value="Grab" onclick={y <- rpc (bobo ()); set x y}/> + </body></xml> |