Mercurial > urweb
comparison tests/cselect.ur @ 799:9330ba3a2799
cselect.onchange
| author | Adam Chlipala <adamc@hcoop.net> |
|---|---|
| date | Thu, 14 May 2009 11:04:56 -0400 |
| parents | 2c463eee89fa |
| children |
comparison
equal
deleted
inserted
replaced
| 798:83875a9eb9b8 | 799:9330ba3a2799 |
|---|---|
| 1 fun main () = | 1 fun main () = |
| 2 s <- source ""; | 2 s <- source ""; |
| 3 return <xml><body> | 3 return <xml><body> |
| 4 <cselect source={s}> | 4 <cselect source={s} onchange={v <- get s; alert ("Now it's " ^ v)}> |
| 5 <coption>Wilbur</coption> | 5 <coption>Wilbur</coption> |
| 6 <coption>Walbur</coption> | 6 <coption>Walbur</coption> |
| 7 </cselect> | 7 </cselect> |
| 8 | 8 |
| 9 Hello, I'm <dyn signal={s <- signal s; return <xml>{[s]}</xml>}/>. | 9 Hello, I'm <dyn signal={s <- signal s; return <xml>{[s]}</xml>}/>. |