Mercurial > urweb

diff tests/dcol.ur @ 903:63114a2e5075

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
<dyn> inside <tr>
author Adam Chlipala <adamc@hcoop.net>
date Thu, 06 Aug 2009 14:57:44 -0400
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/tests/dcol.ur	Thu Aug 06 14:57:44 2009 -0400
@@ -0,0 +1,8 @@
+fun main () =
+  s <- source <xml><td>A</td><td>A'</td></xml>;
+  return <xml><body>
+    <button value="Click me!" onclick={set s <xml><td>B</td><td>B'</td></xml>}/><br/>
+    <table><tr><td>Pre</td><td>Pre'</td></tr>
+      <tr><td>Hehe</td><dyn signal={signal s}/><td>Hoho</td></tr>
+      <tr><td>Post</td><td>Post</td><td>Post'</td></tr></table>
+  </body></xml>