diff lib/basis.urs @ 598:4c2c740c6931

Hooking a source into an input
author Adam Chlipala <adamc@hcoop.net>
date Sun, 11 Jan 2009 10:05:06 -0500
parents 9f02f1765149
children 7c3c21eb5b4c
line wrap: on
line diff
--- a/lib/basis.urs	Thu Jan 08 10:30:14 2009 -0500
+++ b/lib/basis.urs	Sun Jan 11 10:05:06 2009 -0500
@@ -423,7 +423,7 @@
                   -> fn [[Form] ~ ctx] =>
                         nm :: Name -> unit
                         -> tag attrs ([Form] ++ ctx) inner [] [nm = ty]
-val textbox : formTag string [] [Value = string, Size = int]
+val textbox : formTag string [] [Value = string, Size = int, Source = source string]
 val password : formTag string [] [Value = string, Size = int]
 val textarea : formTag string [] [Rows = int, Cols = int]