annotate tests/select.ur @ 2270:1e3ba868f8bf

Merge.
author Ziv Scully <ziv@mit.edu>
date Mon, 19 Oct 2015 14:42:22 -0400
parents fe018cbdd41e
children
rev   line source
adamc@372 1 val handler = fn x => <xml><body>
adamc@154 2 You entered: {cdata x.A}
adamc@372 3 </body></xml>
adamc@154 4
adamc@372 5 val main = fn () => <xml><body>
adamc@372 6 <form>
adamc@372 7 <select{#A}>
adamc@372 8 <option value="A">A</option>
adamc@372 9 <option value="B">B</option>
adamc@372 10 </select>
adamc@154 11 <submit action={handler}/>
adamc@372 12 </form>
adamc@372 13 </body></xml>