Mercurial > urweb
diff tests/subform.ur @ 756:8ce31c052dce
Subforms
| author | Adam Chlipala <adamc@hcoop.net> |
|---|---|
| date | Tue, 28 Apr 2009 17:26:53 -0400 |
| parents | |
| children |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/tests/subform.ur Tue Apr 28 17:26:53 2009 -0400 @@ -0,0 +1,16 @@ +fun handler r = return <xml><body> + {[r.A]}, {[r.Sub.A]}, {[r.Sub.B]}, {[r.Sub.Sub]}, {[r.C]} +</body></xml> + +fun main () = return <xml><body> + <form> + <textbox{#A}/><br/> + <subform{#Sub}> + <textbox{#A}/><br/> + <textbox{#B}/><br/> + <textbox{#Sub}/><br/> + </subform> + <textbox{#C}/><br/> + <submit action={handler}/> + </form> +</body></xml>