diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-04-30 14:48:23 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-04-30 14:48:23 -0400 |
| commit | 5b81f4d3c43a84e84355cbbc84aa6c8e9f3f5044 (patch) | |
| tree | 1d0c5addd790f3060e6c49aa54e931f2791a3bb7 /tests | |
| parent | 28977d57ddbf4bc42139154f30b5e96a49e46894 (diff) | |
<input type='hidden'>
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/subforms.ur | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/tests/subforms.ur b/tests/subforms.ur index cf5d0ba4..f6876bd8 100644 --- a/tests/subforms.ur +++ b/tests/subforms.ur @@ -1,7 +1,7 @@ fun handler' ls = case ls of Nil => <xml/> - | Cons (r, ls) => <xml><li>{[r.A]}, {[r.B]}, {[r.Sub]}</li>{handler' ls}</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/> @@ -14,12 +14,14 @@ fun main () = return <xml><body> <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/> |