Mercurial > urweb
view tests/subforms.ur @ 1761:f8ddaa296115
Fix hyphenation for demos; parse CSS class 'table' as 'tabl'
author | Adam Chlipala <adam@chlipala.net> |
---|---|
date | Sun, 13 May 2012 14:27:29 -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>