Mercurial > urweb
annotate tests/dynClassB.ur @ 2235:0aae15c2a05a
Refactored a lot and fixed an and/or swap, but still not good on current test.
| author | Ziv Scully <ziv@mit.edu> |
|---|---|
| date | Mon, 29 Jun 2015 01:33:47 -0700 |
| parents | f89be9cd2087 |
| children |
| rev | line source |
|---|---|
| adam@2121 | 1 style style1 |
| adam@2121 | 2 style style2 |
| adam@2121 | 3 |
| adam@2121 | 4 fun main () : transaction page = |
| adam@2121 | 5 toggle <- source False; |
| adam@2121 | 6 return <xml> |
| adam@2121 | 7 <head> |
| adam@2121 | 8 <link rel="stylesheet" type="text/css" href="/style.css"/> |
| adam@2121 | 9 </head> |
| adam@2121 | 10 <body dynClass={b <- signal toggle; |
| adam@2121 | 11 return (if b then style1 else style2)} |
| adam@2121 | 12 dynStyle={b <- signal toggle; |
| adam@2121 | 13 return (if b then STYLE "margin: 100px" else STYLE "")}> |
| adam@2121 | 14 Body |
| adam@2121 | 15 <button onclick={fn _ => b <- get toggle; set toggle (not b)}>TOGGLE</button> |
| adam@2121 | 16 </body> |
| adam@2121 | 17 </xml> |