Mercurial > urweb

view tests/select.ur @ 2207:f0f7bf234893

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Removes DBMS choice override from compiler.sml (which was there for debugging).
author Ziv Scully <ziv@mit.edu>
date Fri, 30 May 2014 12:00:00 -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>