Mercurial > urweb

diff demo/react.ur @ 1784:e6bc6bbd7a32

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Update demo code for key/mouse handler change
author Adam Chlipala <adam@chlipala.net>
date Sat, 21 Jul 2012 10:12:35 -0400
parents 1b571a05874c
children
line wrap: on
line diff
--- a/demo/react.ur	Sat Jul 21 10:02:53 2012 -0400
+++ b/demo/react.ur	Sat Jul 21 10:12:35 2012 -0400
@@ -1,6 +1,6 @@
 fun main () =
   s <- source "You didn't click it yet.";
   return <xml><body>
-    <button value="Click me!" onclick={set s "Now you clicked it."}/><br/>
+    <button value="Click me!" onclick={fn _ => set s "Now you clicked it."}/><br/>
     <dyn signal={v <- signal s; return <xml>{[v]}</xml>}/>
   </body></xml>