Mercurial > urweb
diff tests/subforms.ur @ 759:67cd8326f743
subforms working
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Thu, 30 Apr 2009 13:47:46 -0400 |
parents | 8323c1beef2e |
children | 16b34dc2e29c |
line wrap: on
line diff
--- a/tests/subforms.ur Thu Apr 30 11:48:56 2009 -0400 +++ b/tests/subforms.ur Thu Apr 30 13:47:46 2009 -0400 @@ -4,7 +4,9 @@ | Cons (r, ls) => <xml><li>{[r.A]}, {[r.B]}, {[r.Sub]}</li>{handler' ls}</xml> fun handler r = return <xml><body> - {[r.A]}, {handler' r.Sub}, {[r.C]} + {[r.A]}<br/> + {handler' r.Sub} + {[r.C]} </body></xml> fun main () = return <xml><body> @@ -16,6 +18,12 @@ <textbox{#B}/><br/> <textbox{#Sub}/><br/> </entry> + + <entry> + <textbox{#A}/><br/> + <textbox{#B}/><br/> + <textbox{#Sub}/><br/> + </entry> </subforms> <textbox{#C}/><br/> <submit action={handler}/>