Mercurial > urweb
view tests/dlist.ur @ 2057:f4a6ccb7937f
Allow Body tags inside cformTags
This is required by Bootstrap. For example, see
http://getbootstrap.com/components/#alerts-dismissible
author | Sergey Mironov <grrwlf@gmail.com> |
---|---|
date | Sun, 17 Aug 2014 18:28:37 +0000 |
parents | 20c083327364 |
children |
line wrap: on
line source
datatype dlist = Nil | Cons of string * source dlist fun delist dl = case dl of Nil => <xml>[]</xml> | Cons (x, s) => <xml>{[x]} :: ({delistSource s})</xml> and delistSource s = <xml><dyn signal={dl <- signal s; return (delist dl)}/></xml> fun main () : transaction page = ns <- source Nil; s <- source ns; tb <- source ""; return <xml><body> <dyn signal={s <- signal s; return (delistSource s)}/><br/> <br/> <ctextbox source={tb}/> <button value="Add" onclick={hd <- get tb; tl <- get s; s' <- source (Cons (hd, tl)); set s s'}/> <button value="Reset" onclick={set s ns}/> </body></xml>