Mercurial > urweb

comparison tests/dynList.ur @ 2206:c1a62ce47083

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge.
author Ziv Scully <ziv@mit.edu>
date Tue, 27 May 2014 21:38:01 -0400
parents 2b2d07946e65
children
comparison
equal deleted inserted replaced
2205:cdea39473c78 2206:c1a62ce47083
1 fun main () =
2 b <- source True;
3 let
4 fun textboxList xs = <xml>
5 <table>
6 {List.mapX (fn src => <xml><tr>
7 <td dynClass={return null} dynStyle={b <- signal b;
8 if b then
9 return (STYLE "width: 500px")
10 else
11 return (STYLE "width: 100px")}>
12 <ctextbox source={src}/>
13 </td></tr></xml>) xs}
14 </table>
15 </xml>
16 in
17 s <- source "foo";
18 return <xml><body>
19 <ccheckbox source={b}/>
20 {textboxList (s :: s :: [])}
21 </body></xml>
22 end