diff options
author | Adam Chlipala <adam@chlipala.net> | 2014-06-10 10:58:22 -0400 |
---|---|---|
committer | Adam Chlipala <adam@chlipala.net> | 2014-06-10 10:58:22 -0400 |
commit | d5b6e2668069721d91acb7fbcd0b2a92e08ce71e (patch) | |
tree | 149096ba19a65de99f88d83a146906af4fecc689 /lib/ur/basis.urs | |
parent | 8023f94ecb26116e00e1fcd25a6bd821e998ea4a (diff) |
String.trim; add OnChange to more tags
Diffstat (limited to 'lib/ur/basis.urs')
-rw-r--r-- | lib/ur/basis.urs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/ur/basis.urs b/lib/ur/basis.urs index ce864563..5e5e81c3 100644 --- a/lib/ur/basis.urs +++ b/lib/ur/basis.urs @@ -946,11 +946,11 @@ con formTag = fn (ty :: Type) (inner :: {Unit}) (attrs :: {Type}) => val hidden : formTag string [] [Data = data_attr, Id = string, Value = string] val textbox : formTag string [] ([Value = string, Size = int, Placeholder = string, Source = source string, Onchange = transaction unit, Ontext = transaction unit] ++ boxAttrs) -val password : formTag string [] ([Value = string, Size = int, Placeholder = string] ++ boxAttrs) +val password : formTag string [] ([Value = string, Size = int, Placeholder = string, Onchange = transaction unit] ++ boxAttrs) val textarea : formTag string [] ([Rows = int, Cols = int, Onchange = transaction unit, Ontext = transaction unit] ++ boxAttrs) -val checkbox : formTag bool [] ([Checked = bool] ++ boxAttrs) +val checkbox : formTag bool [] ([Checked = bool, Onchange = transaction unit] ++ boxAttrs) type file val fileName : file -> option string @@ -1010,7 +1010,7 @@ val ctextbox : cformTag ([Value = string, Size = int, Source = source string, Pl Ontext = transaction unit] ++ boxAttrs) [] val button : cformTag ([Value = string] ++ boxAttrs) [] -val ccheckbox : cformTag ([Value = bool, Size = int, Source = source bool] ++ boxAttrs) [] +val ccheckbox : cformTag ([Value = bool, Size = int, Source = source bool, Onchange = transaction unit] ++ boxAttrs) [] con cselect = [Cselect] val cselect : cformTag ([Source = source string, Onchange = transaction unit] ++ boxAttrs) cselect |