Mercurial > urweb
comparison tests/dynClass.ur @ 2206:c1a62ce47083
Merge.
author | Ziv Scully <ziv@mit.edu> |
---|---|
date | Tue, 27 May 2014 21:38:01 -0400 |
parents | 2b2d07946e65 |
children |
comparison
equal
deleted
inserted
replaced
2205:cdea39473c78 | 2206:c1a62ce47083 |
---|---|
13 dynStyle={b <- signal toggle; | 13 dynStyle={b <- signal toggle; |
14 return (if b then | 14 return (if b then |
15 STYLE "width: 500px" | 15 STYLE "width: 500px" |
16 else | 16 else |
17 STYLE "width: 200px")} | 17 STYLE "width: 200px")} |
18 onclick={b <- get toggle; set toggle (not b)}/> | 18 onclick={fn _ => b <- get toggle; set toggle (not b)}/> |
19 | 19 |
20 <button dynStyle={b <- signal toggle; | 20 <button dynStyle={b <- signal toggle; |
21 return (if b then | 21 return (if b then |
22 STYLE "width: 200px" | 22 STYLE "width: 200px" |
23 else | 23 else |