Mercurial > urweb
comparison tests/ccheckbox.ur @ 1610:37f5a23446b2
Catch more <ccheckbox> events
author | Adam Chlipala <adam@chlipala.net> |
---|---|
date | Thu, 24 Nov 2011 11:41:52 -0500 |
parents | |
children |
comparison
equal
deleted
inserted
replaced
1609:c6cc104a47ac | 1610:37f5a23446b2 |
---|---|
1 fun main () : transaction page = | |
2 s <- source True; | |
3 t <- source 1; | |
4 return <xml><body><ccheckbox source={s} onclick={set t 3}/> | |
5 <dyn signal={s <- signal s; | |
6 t <- signal t; | |
7 return <xml>{[s]} {[t]}</xml>}/> | |
8 </body></xml> |