Mercurial > urweb

comparison lib/ur/basis.urs @ 2057:f4a6ccb7937f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Allow Body tags inside cformTags This is required by Bootstrap. For example, see http://getbootstrap.com/components/#alerts-dismissible
author Sergey Mironov <grrwlf@gmail.com>
date Sun, 17 Aug 2014 18:28:37 +0000
parents 7c2229aa22fc
children cbc8bcf30c99
comparison
equal deleted inserted replaced
2056:a9159911c3ba 2057:f4a6ccb7937f
1006 1006
1007 (*** AJAX-oriented widgets *) 1007 (*** AJAX-oriented widgets *)
1008 1008
1009 con cformTag = fn (attrs :: {Type}) (inner :: {Unit}) => 1009 con cformTag = fn (attrs :: {Type}) (inner :: {Unit}) =>
1010 ctx ::: {Unit} 1010 ctx ::: {Unit}
1011 -> [[Body] ~ ctx] => 1011 -> [[Body] ~ ctx] => [[Body] ~ inner] =>
1012 unit -> tag attrs ([Body] ++ ctx) inner [] [] 1012 unit -> tag attrs ([Body] ++ ctx) ([Body] ++ inner) [] []
1013 1013
1014 val ctextbox : cformTag ([Value = string, Size = int, Source = source string, Placeholder = string, Onchange = transaction unit, 1014 val ctextbox : cformTag ([Value = string, Size = int, Source = source string, Placeholder = string, Onchange = transaction unit,
1015 Ontext = transaction unit] ++ boxAttrs) [] 1015 Ontext = transaction unit] ++ boxAttrs) []
1016 val cpassword : cformTag ([Value = string, Size = int, Source = source string, Placeholder = string, Onchange = transaction unit, 1016 val cpassword : cformTag ([Value = string, Size = int, Source = source string, Placeholder = string, Onchange = transaction unit,
1017 Ontext = transaction unit] ++ boxAttrs) [] 1017 Ontext = transaction unit] ++ boxAttrs) []