annotate tests/select.ur @ 1473:d40066b38710

Handle spaces in filenames passed to GCC (caught by Zachary Tatlock)
author Adam Chlipala <adam@chlipala.net>
date Wed, 15 Jun 2011 09:52:06 -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>