blob: 2ab1f1a32839bd4f0e6f24dfcb696eaf78277d74 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
fun handler r = return <xml><body>
{[r.A]}, {[r.Sub.A]}, {[r.Sub.B]}, {[r.Sub.Sub]}, {[r.C]}
</body></xml>
fun main () = return <xml><body>
<form>
<textbox{#A}/><br/>
<subform{#Sub}>
<textbox{#A}/><br/>
<textbox{#B}/><br/>
<textbox{#Sub}/><br/>
</subform>
<textbox{#C}/><br/>
<submit action={handler}/>
</form>
</body></xml>
|
