diff 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
line wrap: on
line diff
--- a/tests/rpc.ur	Sun Feb 15 09:27:36 2009 -0500
+++ b/tests/rpc.ur	Sun Feb 15 10:32:50 2009 -0500
@@ -8,6 +8,8 @@
         return <xml><body>
           <button value="Get It On!"
                   onclick={n <- getNext ();
-                           set s n}/>
+                           set s n}/><br/>
+          <br/>
+          Current: <dyn signal={n <- signal s; return <xml>{[n]}</xml>}/>
         </body></xml>
     end