blob: f2a835562280fccf4250432c98f504434bbfc33b (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
fun main () =
s <- source "";
return <xml><body>
<cselect source={s} onchange={v <- get s; alert ("Now it's " ^ v)}>
<coption>Wilbur</coption>
<coption>Walbur</coption>
</cselect>
Hello, I'm <dyn signal={s <- signal s; return <xml>{[s]}</xml>}/>.
I'll be your waiter for this evening.
</body></xml>
|
