blob: d3ea4736d73e76cc93eca880a3072b46ec0e12bb (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
val handler1 = fn r => <html><body>
<li> Name: {cdata r.Nam}</li>
<li> Word: {cdata r.Word}</li>
</body></html>
val handler2 = fn r => <html><body>
<li> Name: {cdata r.Nam}</li>
<li> Ward: {cdata r.Ward}</li>
</body></html>
val main : unit -> page = fn () => <html><body>
<lform>
Name: <textbox{#Nam} /><br/>
Word: <textbox{#Word} /><br/>
<submit action={handler1}/>
</lform>
<lform>
Name: <textbox{#Nam} /><br/>
Word: <textbox{#Ward} /><br/>
<submit action={handler2}/>
</lform>
</body></html>
|
