diff options
| author |  Benjamin Barenblat <bbaren@mit.edu> | 2015-04-14 00:50:26 -0400 |
|---|---|---|
| committer | Benjamin Barenblat <bbaren@mit.edu> | 2015-04-14 00:50:26 -0400 |
| commit | 2721267f40e35a3a2acfa8ee332bda454823ef83 (patch) | |
| tree | fd2461d0f1474aedfc1d6585e7f7e140674562de /tests/dynClassB.ur | |
| parent | 2e1bbc9749f1ad089c0fd366b74646921f35a759 (diff) | |
| parent | 6e7a226de27e3689d87c11e5c12f384fb399c499 (diff) | |
Merge branch 'upstream' into dfsg_clean20150412+dfsg
Diffstat (limited to 'tests/dynClassB.ur')
| -rw-r--r-- | tests/dynClassB.ur | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/tests/dynClassB.ur b/tests/dynClassB.ur new file mode 100644 index 00000000..fc7aeb43 --- /dev/null +++ b/tests/dynClassB.ur @@ -0,0 +1,17 @@ +style style1 +style style2 + +fun main () : transaction page = + toggle <- source False; + return <xml> + <head> + <link rel="stylesheet" type="text/css" href="/style.css"/> + </head> + <body dynClass={b <- signal toggle; + return (if b then style1 else style2)} + dynStyle={b <- signal toggle; + return (if b then STYLE "margin: 100px" else STYLE "")}> + Body + <button onclick={fn _ => b <- get toggle; set toggle (not b)}>TOGGLE</button> + </body> + </xml> |