diff tests/dtable.ur @ 899:25a038a9194b

dtable example and demos both working
author Adam Chlipala <adamc@hcoop.net>
date Thu, 06 Aug 2009 11:54:28 -0400
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/tests/dtable.ur	Thu Aug 06 11:54:28 2009 -0400
@@ -0,0 +1,6 @@
+fun main () =
+  s <- source <xml><tr><td>A</td><td>A'</td></tr></xml>;
+  return <xml><body>
+    <button value="Click me!" onclick={set s <xml><tr><td>B</td><td>B'</td></tr><tr><td>C</td><td>C'</td></tr></xml>}/><br/>
+    <table><tr><td>Pre</td><td>Pre'</td></tr><dyn signal={signal s}/><tr><td>Post</td><td>Post</td><td>Post'</td></tr></table>
+  </body></xml>