blob: 3c0915f798319a99005b67e04279b2ffa4223796 (
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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
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 handler3 = fn r => <html><body>
<li> Name: {cdata r.Nam}</li>
<li> Ward: {cdata r.Ward}</li>
<li> Words: {cdata r.Words}</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>
<lform>
Name: <textbox{#Nam} /><br/>
Ward: <textbox{#Ward} /><br/>
Words: <textbox{#Words} /><br/>
<submit action={handler3}/>
</lform>
</body></html>
|
