annotate 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
rev   line source
adamc@758 1 fun handler' ls =
adamc@758 2 case ls of
adamc@758 3 Nil => <xml/>
adamc@758 4 | Cons (r, ls) => <xml><li>{[r.A]}, {[r.B]}, {[r.Sub]}</li>{handler' ls}</xml>
adamc@758 5
adamc@758 6 fun handler r = return <xml><body>
adamc@759 7 {[r.A]}<br/>
adamc@759 8 {handler' r.Sub}
adamc@759 9 {[r.C]}
adamc@758 10 </body></xml>
adamc@758 11
adamc@758 12 fun main () = return <xml><body>
adamc@758 13 <form>
adamc@758 14 <textbox{#A}/><br/>
adamc@758 15 <subforms{#Sub}>
adamc@758 16 <entry>
adamc@758 17 <textbox{#A}/><br/>
adamc@758 18 <textbox{#B}/><br/>
adamc@758 19 <textbox{#Sub}/><br/>
adamc@758 20 </entry>
adamc@759 21
adamc@759 22 <entry>
adamc@759 23 <textbox{#A}/><br/>
adamc@759 24 <textbox{#B}/><br/>
adamc@759 25 <textbox{#Sub}/><br/>
adamc@759 26 </entry>
adamc@758 27 </subforms>
adamc@758 28 <textbox{#C}/><br/>
adamc@758 29 <submit action={handler}/>
adamc@758 30 </form>
adamc@758 31 </body></xml>