annotate tests/dynList.ur @ 2223:9410959d296f

Remove Sqlcache urlification hack.
author Ziv Scully <ziv@mit.edu>
date Sat, 29 Nov 2014 04:34:41 -0500
parents 2b2d07946e65
children
rev   line source
adam@2012 1 fun main () =
adam@2012 2 b <- source True;
adam@2012 3 let
adam@2012 4 fun textboxList xs = <xml>
adam@2012 5 <table>
adam@2012 6 {List.mapX (fn src => <xml><tr>
adam@2012 7 <td dynClass={return null} dynStyle={b <- signal b;
adam@2012 8 if b then
adam@2012 9 return (STYLE "width: 500px")
adam@2012 10 else
adam@2012 11 return (STYLE "width: 100px")}>
adam@2012 12 <ctextbox source={src}/>
adam@2012 13 </td></tr></xml>) xs}
adam@2012 14 </table>
adam@2012 15 </xml>
adam@2012 16 in
adam@2012 17 s <- source "foo";
adam@2012 18 return <xml><body>
adam@2012 19 <ccheckbox source={b}/>
adam@2012 20 {textboxList (s :: s :: [])}
adam@2012 21 </body></xml>
adam@2012 22 end