diff lib/ur/basis.urs @ 1709:4600cc5e335c

Added several missing tag attributes
author Vladimir Shabanov <vshabanoff@gmail.com>
date Wed, 11 Apr 2012 03:03:19 +0400
parents a1a1d66aebac
children 540df112ff62
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) []