Mercurial > urweb

view demo/form.ur @ 1542:dc4c61363d0a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add timestamps to 'app.js' filenames, to prevent inappropriate caching by browsers
author Adam Chlipala <adam@chlipala.net>
date Fri, 19 Aug 2011 08:59:01 -0400
parents a71600cac815
children
line wrap: on
line source
fun handler r = return <xml><body>
  <table>
    <tr> <th>A:</th> <td>{[r.A]}</td> </tr>
    <tr> <th>B:</th> <td>{[r.B]}</td> </tr>
    <tr> <th>C:</th> <td>{[r.C]}</td> </tr>
  </table>
</body></xml>

fun main () = return <xml><body>
  <form>
    <table>
      <tr> <th>A:</th> <td><textbox{#A}/></td> </tr>
      <tr> <th>B:</th> <td><textbox{#B}/></td> </tr>
      <tr> <th>C:</th> <td><checkbox{#C}/></td> </tr>
      <tr> <th/> <td><submit action={handler}/></td> </tr>
    </table>
  </form>
</body></xml>