Mercurial > urweb

view tests/select.ur @ 1698:aaae710417df

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Remove seemingly inaccurate part of comment (perhaps clarified version can be added back in later)
author Adam Chlipala <adam@chlipala.net>
date Tue, 13 Mar 2012 11:59:03 -0400
parents fe018cbdd41e
children
line wrap: on
line source
val handler = fn x => <xml><body>
        You entered: {cdata x.A}
</body></xml>

val main = fn () => <xml><body>
        <form>
                <select{#A}>
                        <option value="A">A</option>
                        <option value="B">B</option>
                </select>
                <submit action={handler}/>
        </form>
</body></xml>