Mercurial > urweb

diff tests/dynTable.ur @ 1803:d2383ffc18ab

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Back out last change and pursue a different fix, based on explicitly aborting script execution at times when we don't expect scripts to run
author Adam Chlipala <adam@chlipala.net>
date Fri, 03 Aug 2012 12:39:04 -0400
parents ade93cd5bc59
children
line wrap: on
line diff
--- a/tests/dynTable.ur	Fri Aug 03 08:38:47 2012 -0400
+++ b/tests/dynTable.ur	Fri Aug 03 12:39:04 2012 -0400
@@ -8,14 +8,14 @@
         <tr> <td>Hi</td> </tr>
       </table>
 
-      <button onclick={v <- get n;
-                       set n (v + 1);
-                       set s <xml><tr> <td>Whoa!({[v]})</td> </tr></xml>}/>
+      <button onclick={fn _ => v <- get n;
+                          set n (v + 1);
+                          set s <xml><tr> <td>Whoa!({[v]})</td> </tr></xml>}/>
 
       <table>
         <tr> <dyn signal={signal s1}/> </tr>
         <tr> <td>Hi!</td> </tr>
       </table>
 
-      <button onclick={set s1 <xml><td>Whoa!</td></xml>}/>
+      <button onclick={fn _ => set s1 <xml><td>Whoa!</td></xml>}/>
     </body></xml>