Mercurial > urweb
comparison tests/subform.ur @ 756:8ce31c052dce
Subforms
| author | Adam Chlipala <adamc@hcoop.net> |
|---|---|
| date | Tue, 28 Apr 2009 17:26:53 -0400 |
| parents | |
| children |
comparison
equal
deleted
inserted
replaced
| 755:58d8f877e1ee | 756:8ce31c052dce |
|---|---|
| 1 fun handler r = return <xml><body> | |
| 2 {[r.A]}, {[r.Sub.A]}, {[r.Sub.B]}, {[r.Sub.Sub]}, {[r.C]} | |
| 3 </body></xml> | |
| 4 | |
| 5 fun main () = return <xml><body> | |
| 6 <form> | |
| 7 <textbox{#A}/><br/> | |
| 8 <subform{#Sub}> | |
| 9 <textbox{#A}/><br/> | |
| 10 <textbox{#B}/><br/> | |
| 11 <textbox{#Sub}/><br/> | |
| 12 </subform> | |
| 13 <textbox{#C}/><br/> | |
| 14 <submit action={handler}/> | |
| 15 </form> | |
| 16 </body></xml> |