Mercurial > urweb
annotate tests/html5_forms.ur @ 2077:3cd2bd4b1de0
More simple textual HTML5 input types
| author | Adam Chlipala <adam@chlipala.net> |
|---|---|
| date | Sun, 16 Nov 2014 14:16:11 -0500 |
| parents | 855d7746a084 |
| children | 6d126af2e1cb |
| rev | line source |
|---|---|
| adam@2075 | 1 fun handler r = return <xml><body> |
| adam@2076 | 2 A: {[r.A]}<br/> |
| adam@2076 | 3 B: {[r.B]}<br/> |
| adam@2076 | 4 C: {[r.C]}<br/> |
| adam@2077 | 5 D: {[r.D]}<br/> |
| adam@2077 | 6 E: {[r.E]}<br/> |
| adam@2077 | 7 F: {[r.F]}<br/> |
| adam@2077 | 8 G: {[r.G]}<br/> |
| adam@2075 | 9 </body></xml> |
| adam@2075 | 10 |
| adam@2075 | 11 fun main () = |
| adam@2075 | 12 return <xml><body> |
| adam@2075 | 13 <form> |
| adam@2075 | 14 <textbox{#A} required placeholder="bobby"/> |
| adam@2075 | 15 <textbox{#B} placeholder="soggy" autofocus/> |
| adam@2076 | 16 <checkbox{#C}/> |
| adam@2077 | 17 <email{#D}/> |
| adam@2077 | 18 <url{#E}/> |
| adam@2077 | 19 <tel{#F}/> |
| adam@2077 | 20 <search{#G}/> |
| adam@2075 | 21 |
| adam@2075 | 22 <submit action={handler}/> |
| adam@2075 | 23 </form> |
| adam@2075 | 24 </body></xml> |