Mercurial > urweb
view demo/more/expandable.ur @ 1249:7c6fc92f6c31
Complain about DValRec; optimizations for unit-valued ECase and forgetting of path conditions across ESeq
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Thu, 29 Apr 2010 11:47:24 -0400 |
parents | 7facf72aaf0a |
children |
line wrap: on
line source
con t ctx = source bool * xml ctx [] [] fun create [ctx] (x : xml ctx [] []) = s <- source False; return (s, x) fun expand [ctx] (t : t ctx) = set t.1 True fun collapse [ctx] (t : t ctx) = set t.1 False fun render [ctx] [[Body] ~ ctx] (t : t ([Body] ++ ctx)) = <xml><dyn signal={b <- signal t.1; return (if b then <xml> <button value="-" onclick={collapse t}/><br/> {t.2} </xml> else <xml> <button value="+" onclick={expand t}/><br/> </xml>)}/></xml>