Mercurial > urweb

comparison tests/html5_forms.ur @ 2220:794017f378de

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge.
author Ziv Scully <ziv@mit.edu>
date Mon, 24 Nov 2014 20:47:38 -0500
parents 6d126af2e1cb
children
comparison
equal deleted inserted replaced
2219:ff38b3e0cdfd 2220:794017f378de
1 fun handler r = return <xml><body>
2 A: {[r.A]}<br/>
3 B: {[r.B]}<br/>
4 C: {[r.C]}<br/>
5 D: {[r.D]}<br/>
6 E: {[r.E]}<br/>
7 F: {[r.F]}<br/>
8 G: {[r.G]}<br/>
9 H: {[r.H]}<br/>
10 I: {[r.I]}<br/>
11 J: {[r.J]}<br/>
12 K: {[r.K]}<br/>
13 L: {[r.L]}<br/>
14 M: {[r.M]}<br/>
15 N: {[r.N]}<br/>
16 O: {[r.O]}<br/>
17 P: {[r.P]}<br/>
18 </body></xml>
19
20 fun main () =
21 return <xml><body>
22 <form>
23 <textbox{#A} required placeholder="bobby"/>
24 <textbox{#B} placeholder="soggy" autofocus/>
25 <checkbox{#C}/>
26 <email{#D}/>
27 <url{#E}/>
28 <tel{#F}/>
29 <search{#G}/>
30
31 <hr/>
32
33 <color{#H}/>
34 <number{#I} min={17.0} max={32.8} value={20.6} step={2.5}/>
35 <range{#J} min={17.0} max={32.8} value={20.6}/>
36 <date{#K}/>
37 <datetime{#L}/>
38 <datetime-local{#M}/>
39 <month{#N}/>
40 <week{#O}/>
41 <timeInput{#P}/>
42
43 <submit action={handler}/>
44 </form>
45 </body></xml>