Mercurial > urweb
comparison tests/dynTable.ur @ 1538:ade93cd5bc59
Fix bug with <dyn> as first child of <table>
| author | Adam Chlipala <adam@chlipala.net> |
|---|---|
| date | Sun, 14 Aug 2011 17:39:18 -0400 |
| parents | |
| children | d2383ffc18ab |
comparison
equal
deleted
inserted
replaced
| 1537:e627bab3eda7 | 1538:ade93cd5bc59 |
|---|---|
| 1 fun main () : transaction page = | |
| 2 s <- source <xml/>; | |
| 3 s1 <- source <xml/>; | |
| 4 n <- source 0; | |
| 5 return <xml><body> | |
| 6 <table> | |
| 7 <dyn signal={signal s}/> | |
| 8 <tr> <td>Hi</td> </tr> | |
| 9 </table> | |
| 10 | |
| 11 <button onclick={v <- get n; | |
| 12 set n (v + 1); | |
| 13 set s <xml><tr> <td>Whoa!({[v]})</td> </tr></xml>}/> | |
| 14 | |
| 15 <table> | |
| 16 <tr> <dyn signal={signal s1}/> </tr> | |
| 17 <tr> <td>Hi!</td> </tr> | |
| 18 </table> | |
| 19 | |
| 20 <button onclick={set s1 <xml><td>Whoa!</td></xml>}/> | |
| 21 </body></xml> |