comparison tests/ctextbox.ur @ 606:5145181b02fa

Use normal fields of ctextboxes
author Adam Chlipala <adamc@hcoop.net>
date Tue, 27 Jan 2009 09:53:51 -0500
parents
children 983d9b38abc7
comparison
equal deleted inserted replaced
605:1a9171e31fd1 606:5145181b02fa
1 fun main () : transaction page =
2 s <- source "Initial";
3 return <xml><body>
4 <ctextbox source={s} size=5/>
5
6 <dyn signal={s <- signal s; return (cdata s)}/>
7 </body></xml>