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