Mercurial > urweb
comparison tests/rpc.ur @ 609:56aaa1941dad
First gimpy RPC
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Sun, 15 Feb 2009 10:32:50 -0500 |
parents | 0dd40b6bfdf3 |
children |
comparison
equal
deleted
inserted
replaced
608:330a7de47914 | 609:56aaa1941dad |
---|---|
6 in | 6 in |
7 s <- source 0; | 7 s <- source 0; |
8 return <xml><body> | 8 return <xml><body> |
9 <button value="Get It On!" | 9 <button value="Get It On!" |
10 onclick={n <- getNext (); | 10 onclick={n <- getNext (); |
11 set s n}/> | 11 set s n}/><br/> |
12 <br/> | |
13 Current: <dyn signal={n <- signal s; return <xml>{[n]}</xml>}/> | |
12 </body></xml> | 14 </body></xml> |
13 end | 15 end |