Mercurial > urweb

comparison tests/select.ur @ 372:fe018cbdd41e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Indenting SELECT sub-clauses properly
author Adam Chlipala <adamc@hcoop.net>
date Thu, 16 Oct 2008 16:15:17 -0400
parents 71bafe66dbe1
children
comparison
equal deleted inserted replaced
371:782ef3ad8c28 372:fe018cbdd41e
1 val handler = fn x => <html><body> 1 val handler = fn x => <xml><body>
2 You entered: {cdata x.A} 2 You entered: {cdata x.A}
3 </body></html> 3 </body></xml>
4 4
5 val main = fn () => <html><body> 5 val main = fn () => <xml><body>
6 <lform> 6 <form>
7 <lselect{#A}> 7 <select{#A}>
8 <loption value="A">A</loption> 8 <option value="A">A</option>
9 <loption value="B">B</loption> 9 <option value="B">B</option>
10 </lselect> 10 </select>
11 <submit action={handler}/> 11 <submit action={handler}/>
12 </lform> 12 </form>
13 </body></html> 13 </body></xml>