Mercurial > urweb

comparison tests/dynSpan.ur @ 691:cc58941da3e2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Checking spans in dyns
author Adam Chlipala <adamc@hcoop.net>
date Sat, 04 Apr 2009 11:46:24 -0400
parents
children
comparison
equal deleted inserted replaced
690:01b6f2ee2ef0 691:cc58941da3e2
1 val x = 1
2
3 fun main () : transaction page =
4 s <- source "!";
5 return <xml><body>
6 <dyn signal={x <- signal s; return <xml><span>{[x]}</span></xml>}/>
7 <button onclick={x <- get s; set s (x ^ "!")}/>
8 </body></xml>