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>