Mercurial > urweb

diff tests/sendurl.ur @ 1108:82ac88b4e0a7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Proper client-side attrifyString
author Adam Chlipala <adamc@hcoop.net>
date Fri, 01 Jan 2010 10:49:36 -0500
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/tests/sendurl.ur	Fri Jan 01 10:49:36 2010 -0500
@@ -0,0 +1,11 @@
+fun main () =
+    let
+        fun getIt () = return (bless "http://www.yahoo.com/")
+    in
+        s <- source <xml/>;
+        return <xml><body>
+          <dyn signal={signal s}/>
+
+          <button onclick={v <- rpc (getIt ()); set s <xml><a href={v}>Go!</a></xml>}/>
+        </body></xml>
+    end