Mercurial > urweb
view tests/subforms.ur @ 802:ef6de4075dc1
Fix a Core_untangle bug that missed closure variable references; XHTMLize
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Sat, 16 May 2009 12:41:33 -0400 |
parents | 16b34dc2e29c |
children |
line wrap: on
line source
fun handler' ls = case ls of Nil => <xml/> | Cons (r, ls) => <xml><li>{[r.Nam]}, {[r.A]}, {[r.B]}, {[r.Sub]}</li>{handler' ls}</xml> fun handler r = return <xml><body> {[r.A]}<br/> {handler' r.Sub} {[r.C]} </body></xml> fun main () = return <xml><body> <form> <textbox{#A}/><br/> <subforms{#Sub}> <entry> <hidden{#Nam} value="Sparky"/> <textbox{#A}/><br/> <textbox{#B}/><br/> <textbox{#Sub}/><br/> </entry> <entry> <hidden{#Nam} value="Snarky"/> <textbox{#A}/><br/> <textbox{#B}/><br/> <textbox{#Sub}/><br/> </entry> </subforms> <textbox{#C}/><br/> <submit action={handler}/> </form> </body></xml>