Mercurial > urweb
comparison tests/autocomp.ur @ 1491:b2ca3e1e5b40
Fixes for detecting pastes and autocompletes for dynamic textboxes
| author | Adam Chlipala <adam@chlipala.net> |
|---|---|
| date | Fri, 15 Jul 2011 10:02:54 -0400 |
| parents | |
| children |
comparison
equal
deleted
inserted
replaced
| 1490:a77fa7e7bb7b | 1491:b2ca3e1e5b40 |
|---|---|
| 1 fun main () : transaction page = | |
| 2 a <- source ""; | |
| 3 b <- source ""; | |
| 4 return <xml><body> | |
| 5 <form> | |
| 6 <textbox{#A} source={a}/> | |
| 7 <button onclick={x <- get a; set b x}/> | |
| 8 <dyn signal={v <- signal a; return <xml>{[v]}</xml>}/> | |
| 9 / <dyn signal={v <- signal b; return <xml>{[v]}</xml>}/> | |
| 10 </form> | |
| 11 </body></xml> |