Mercurial > urweb
comparison tests/subforms.ur @ 761:16b34dc2e29c
<input type='hidden'>
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Thu, 30 Apr 2009 14:48:23 -0400 |
parents | 67cd8326f743 |
children |
comparison
equal
deleted
inserted
replaced
760:21f6d2e65685 | 761:16b34dc2e29c |
---|---|
1 fun handler' ls = | 1 fun handler' ls = |
2 case ls of | 2 case ls of |
3 Nil => <xml/> | 3 Nil => <xml/> |
4 | Cons (r, ls) => <xml><li>{[r.A]}, {[r.B]}, {[r.Sub]}</li>{handler' ls}</xml> | 4 | Cons (r, ls) => <xml><li>{[r.Nam]}, {[r.A]}, {[r.B]}, {[r.Sub]}</li>{handler' ls}</xml> |
5 | 5 |
6 fun handler r = return <xml><body> | 6 fun handler r = return <xml><body> |
7 {[r.A]}<br/> | 7 {[r.A]}<br/> |
8 {handler' r.Sub} | 8 {handler' r.Sub} |
9 {[r.C]} | 9 {[r.C]} |
12 fun main () = return <xml><body> | 12 fun main () = return <xml><body> |
13 <form> | 13 <form> |
14 <textbox{#A}/><br/> | 14 <textbox{#A}/><br/> |
15 <subforms{#Sub}> | 15 <subforms{#Sub}> |
16 <entry> | 16 <entry> |
17 <hidden{#Nam} value="Sparky"/> | |
17 <textbox{#A}/><br/> | 18 <textbox{#A}/><br/> |
18 <textbox{#B}/><br/> | 19 <textbox{#B}/><br/> |
19 <textbox{#Sub}/><br/> | 20 <textbox{#Sub}/><br/> |
20 </entry> | 21 </entry> |
21 | 22 |
22 <entry> | 23 <entry> |
24 <hidden{#Nam} value="Snarky"/> | |
23 <textbox{#A}/><br/> | 25 <textbox{#A}/><br/> |
24 <textbox{#B}/><br/> | 26 <textbox{#B}/><br/> |
25 <textbox{#Sub}/><br/> | 27 <textbox{#Sub}/><br/> |
26 </entry> | 28 </entry> |
27 </subforms> | 29 </subforms> |