blob: ec466db32346da0bd4b3d5e9d9c78b4450b49463 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
fun handler r = return <xml><body>
<table>
<tr> <th>A:</th> <td>{[r.A]}</td> </tr>
<tr> <th>B:</th> <td>{[r.B]}</td> </tr>
<tr> <th>C:</th> <td>{[r.C]}</td> </tr>
</table>
</body></xml>
fun main () = return <xml><body>
<form>
<table>
<tr> <th>A:</th> <td><textbox{#A}/></td> </tr>
<tr> <th>B:</th> <td><textbox{#B}/></td> </tr>
<tr> <th>C:</th> <td><checkbox{#C}/></td> </tr>
<tr> <th/> <td><submit action={handler}/></td> </tr>
</table>
</form>
</body></xml>
|
