diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-04-30 13:47:46 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-04-30 13:47:46 -0400 |
| commit | fe0742107983aeaea3db6715d2f71e2260ce05f1 (patch) | |
| tree | 1e0d1f4e66efcd4d99034622ca33a453794a31b1 /tests | |
| parent | 1a60a233b9349f320e67f35db1aa3b87d7c2a591 (diff) | |
subforms working
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/subforms.ur | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/tests/subforms.ur b/tests/subforms.ur index 3db55a43..cf5d0ba4 100644 --- a/tests/subforms.ur +++ b/tests/subforms.ur @@ -4,7 +4,9 @@ fun handler' ls = | 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 @@ fun main () = return <xml><body> <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}/> |