blob: ff3908e909e59cf515f477090deac63826faaa4b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
val handler = fn x => <xml><body>
You entered: {cdata x.A}
</body></xml>
val main = fn () => <xml><body>
<form>
<select{#A}>
<option value="A">A</option>
<option value="B">B</option>
</select>
<submit action={handler}/>
</form>
</body></xml>
|