Mercurial > urweb
changeset 1709:4600cc5e335c
Added several missing tag attributes
| author | Vladimir Shabanov <vshabanoff@gmail.com> |
|---|---|
| date | Wed, 11 Apr 2012 03:03:19 +0400 |
| parents | e263dab7b579 |
| children | 540df112ff62 |
| files | lib/ur/basis.urs |
| diffstat | 1 files changed, 6 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lib/ur/basis.urs Sun Apr 08 16:29:28 2012 -0400 +++ b/lib/ur/basis.urs Wed Apr 11 03:03:19 2012 +0400 @@ -716,7 +716,7 @@ val title : unit -> tag [] head [] [] [] val link : unit -> tag [Id = id, Rel = string, Typ = string, Href = url, Media = string] head [] [] [] -val body : unit -> tag [Onload = transaction unit, Onresize = transaction unit, Onunload = transaction unit] +val body : unit -> tag [Onload = transaction unit, Onresize = transaction unit, Onunload = transaction unit, Onhashchange = transaction unit] html body [] [] con bodyTag = fn (attrs :: {Type}) => ctx ::: {Unit} -> @@ -738,11 +738,12 @@ Onkeyup = int -> transaction unit] (* Key arguments are character codes. *) con resizeEvents = [Onresize = transaction unit] +con scrollEvents = [Onscroll = transaction unit] -con boxEvents = focusEvents ++ mouseEvents ++ keyEvents ++ resizeEvents +con boxEvents = focusEvents ++ mouseEvents ++ keyEvents ++ resizeEvents ++ scrollEvents con tableEvents = focusEvents ++ mouseEvents ++ keyEvents -con boxAttrs = [Id = id, Title = string] ++ boxEvents +con boxAttrs = [Id = id, Title = string, Style = string] ++ boxEvents con tableAttrs = [Id = id, Title = string] ++ tableEvents val span : bodyTag boxAttrs @@ -803,7 +804,7 @@ nm :: Name -> unit -> tag attrs ([Form] ++ ctx) inner [] [nm = ty] val hidden : formTag string [] [Id = string, Value = string] -val textbox : formTag string [] ([Value = string, Size = int, Source = source string, Onchange = transaction unit, +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] ++ boxAttrs) val textarea : formTag string [] ([Rows = int, Cols = int, Onchange = transaction unit, @@ -859,7 +860,7 @@ -> [[Body] ~ ctx] => unit -> tag attrs ([Body] ++ ctx) inner [] [] -val ctextbox : cformTag ([Value = string, Size = int, Source = source string, Onchange = transaction unit, +val ctextbox : cformTag ([Value = string, Size = int, Source = source string, Placeholder = string, Onchange = transaction unit, Ontext = transaction unit] ++ boxAttrs) [] val button : cformTag ([Value = string] ++ boxAttrs) []