Mercurial > urweb

comparison lib/ur/basis.urs @ 2138:3ca67d73fa5d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add fieldset and legend tags
author Julian Squires <julian@cipht.net>
date Mon, 04 May 2015 13:22:29 -0400
parents e8863d9f8c59
children d857da05f042
comparison
equal deleted inserted replaced
2137:8ecbd1100227 2138:3ca67d73fa5d
1026 -> tag ([Src = url, Width = int, Height = int, Alt = string, Action = $use -> transaction page] ++ boxAttrs) 1026 -> tag ([Src = url, Width = int, Height = int, Alt = string, Action = $use -> transaction page] ++ boxAttrs)
1027 ([Form] ++ ctx) ([Form] ++ ctx) use [] 1027 ([Form] ++ ctx) ([Form] ++ ctx) use []
1028 1028
1029 val label : bodyTag ([For = id, Accesskey = string] ++ tableAttrs) 1029 val label : bodyTag ([For = id, Accesskey = string] ++ tableAttrs)
1030 1030
1031 val fieldset : bodyTag boxAttrs
1032 val legend : bodyTag boxAttrs
1033
1031 1034
1032 (*** AJAX-oriented widgets *) 1035 (*** AJAX-oriented widgets *)
1033 1036
1034 con cformTag = fn (attrs :: {Type}) (inner :: {Unit}) => 1037 con cformTag = fn (attrs :: {Type}) (inner :: {Unit}) =>
1035 ctx ::: {Unit} 1038 ctx ::: {Unit}