Mercurial > urweb
diff lib/ur/basis.urs @ 1099:118ab9641a64
ctextarea; s/header/include in the manual
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Tue, 29 Dec 2009 13:34:03 -0500 |
parents | ae885ad70d83 |
children | 72670131dace |
line wrap: on
line diff
--- a/lib/ur/basis.urs Tue Dec 29 12:55:26 2009 -0500 +++ b/lib/ur/basis.urs Tue Dec 29 13:34:03 2009 -0500 @@ -734,6 +734,9 @@ val cselect : cformTag ([Source = source string, Onchange = transaction unit] ++ boxAttrs) cselect val coption : unit -> tag [Value = string, Selected = bool] cselect [] [] [] +val ctextarea : cformTag ([Value = string, Rows = int, Cols = int, Source = source string, Onchange = transaction unit, + Ontext = transaction unit] ++ boxAttrs) [] + (*** Tables *) val tabl : other ::: {Unit} -> [other ~ [Body, Table]] => unit