view demo/more/expandable.ur @ 1036:e214ac93d73e

Deal with bizarre IE6 .innerHTML behavior (which eats some <script> tags)
author Adam Chlipala <adamc@hcoop.net>
date Sat, 21 Nov 2009 13:50:59 -0500
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>