Mercurial > urweb

diff tests/snest.ur @ 1039:8932f855fa85

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
grid0 working in IE
author Adam Chlipala <adamc@hcoop.net>
date Sun, 22 Nov 2009 15:30:15 -0500
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/tests/snest.ur	Sun Nov 22 15:30:15 2009 -0500
@@ -0,0 +1,15 @@
+fun main () =
+    s1 <- source False;
+    s2 <- source False;
+
+    return <xml><body>
+      <dyn signal={s1 <- signal s1;
+                   return (if s1 then
+                               <xml><dyn signal={s2 <- signal s2;
+                                                 return <xml>{[s2]}</xml>}/></xml>
+                           else
+                               <xml>Not yet</xml>)}/>
+      <hr/>
+      <button value="s1" onclick={set s1 True}/>
+      <button value="s2" onclick={set s2 True}/>
+   </body></xml>