comparison tests/textarea.lac @ 152:67ab26888839
textarea
| author |
Adam Chlipala <adamc@hcoop.net> |
| date |
Thu, 24 Jul 2008 10:41:53 -0400 |
| parents |
|
| children |
|
comparison
equal
deleted
inserted
replaced
| |
1 val handler = fn x => <html><body> |
| |
2 You entered: {cdata x.A} |
| |
3 </body></html> |
| |
4 |
| |
5 val main = fn () => <html><body> |
| |
6 <lform> |
| |
7 <ltextarea{#A}/> |
| |
8 <submit action={handler}/> |
| |
9 </lform> |
| |
10 </body></html> |
