summaryrefslogtreecommitdiff
path: root/tests/cselect.ur
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adamc@hcoop.net>2009-05-14 11:04:56 -0400
committerGravatar Adam Chlipala <adamc@hcoop.net>2009-05-14 11:04:56 -0400
commite6dd56d42a28138bcd9fdea52d0b232839c298dc (patch)
treeda75a35df02e170e6cc2cfd6f02433f82d8e3763 /tests/cselect.ur
parentb6c1b15d74dcf84fdb174eecc31cdf64a98f07a3 (diff)
cselect.onchange
Diffstat (limited to 'tests/cselect.ur')
-rw-r--r--tests/cselect.ur2
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/cselect.ur b/tests/cselect.ur
index ca05f504..f2a83556 100644
--- a/tests/cselect.ur
+++ b/tests/cselect.ur
@@ -1,7 +1,7 @@
fun main () =
s <- source "";
return <xml><body>
- <cselect source={s}>
+ <cselect source={s} onchange={v <- get s; alert ("Now it's " ^ v)}>
<coption>Wilbur</coption>
<coption>Walbur</coption>
</cselect>