diff options
Diffstat (limited to 'lib/ur')
| -rw-r--r-- | lib/ur/basis.urs | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/lib/ur/basis.urs b/lib/ur/basis.urs index 9736ce1e..cc18d7b2 100644 --- a/lib/ur/basis.urs +++ b/lib/ur/basis.urs @@ -623,13 +623,17 @@ val submit : ctx ::: {Unit} -> use ::: {Type} (*** AJAX-oriented widgets *) -con cformTag = fn (attrs :: {Type}) => +con cformTag = fn (attrs :: {Type}) (inner :: {Unit}) => ctx ::: {Unit} -> [[Body] ~ ctx] => - unit -> tag attrs ([Body] ++ ctx) [] [] [] + unit -> tag attrs ([Body] ++ ctx) inner [] [] -val ctextbox : cformTag [Value = string, Size = int, Source = source string] -val button : cformTag [Value = string, Onclick = transaction unit] +val ctextbox : cformTag [Value = string, Size = int, Source = source string] [] +val button : cformTag [Value = string, Onclick = transaction unit] [] + +con cselect = [Cselect] +val cselect : cformTag [Source = source string] cselect +val coption : unit -> tag [Value = string, Selected = bool] cselect [] [] [] (*** Tables *) |