annotate tests/dynList.ur @ 2119:5439b35c5d0b

Add 'download' attribute to <a/>, part of HTML5
author Sergey Mironov <grrwlf@gmail.com>
date Sun, 26 Oct 2014 14:07:07 +0000
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