Mercurial > urweb

comparison 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
comparison
equal deleted inserted replaced
1783:5bc4fbf9c0fe 1784:e6bc6bbd7a32
1 fun main () = 1 fun main () =
2 s <- source "You didn't click it yet."; 2 s <- source "You didn't click it yet.";
3 return <xml><body> 3 return <xml><body>
4 <button value="Click me!" onclick={set s "Now you clicked it."}/><br/> 4 <button value="Click me!" onclick={fn _ => set s "Now you clicked it."}/><br/>
5 <dyn signal={v <- signal s; return <xml>{[v]}</xml>}/> 5 <dyn signal={v <- signal s; return <xml>{[v]}</xml>}/>
6 </body></xml> 6 </body></xml>