Mercurial > urweb
comparison lib/ur/basis.urs @ 2062:795b5b75453c
Add 'role' data attribute.
Note, that 'role' attribute is a part of reach ARIA API described here:
http://www.w3.org/TR/wai-aria/
Among 'role', it defines lots of aria-* attributes
author | Sergey Mironov <grrwlf@gmail.com> |
---|---|
date | Mon, 07 Jul 2014 10:05:04 +0400 |
parents | cbc8bcf30c99 |
children | e48e09a1f583 |
comparison
equal
deleted
inserted
replaced
2061:e7b9002c2bfc | 2062:795b5b75453c |
---|---|
846 con scrollEvents = [Onscroll = transaction unit] | 846 con scrollEvents = [Onscroll = transaction unit] |
847 | 847 |
848 con boxEvents = focusEvents ++ mouseEvents ++ keyEvents ++ resizeEvents ++ scrollEvents | 848 con boxEvents = focusEvents ++ mouseEvents ++ keyEvents ++ resizeEvents ++ scrollEvents |
849 con tableEvents = focusEvents ++ mouseEvents ++ keyEvents | 849 con tableEvents = focusEvents ++ mouseEvents ++ keyEvents |
850 | 850 |
851 con boxAttrs = [Data = data_attr, Id = id, Title = string] ++ boxEvents | 851 con boxAttrs = [Data = data_attr, Id = id, Title = string, Role = string] ++ boxEvents |
852 con tableAttrs = [Data = data_attr, Id = id, Title = string] ++ tableEvents | 852 con tableAttrs = [Data = data_attr, Id = id, Title = string] ++ tableEvents |
853 | 853 |
854 val span : bodyTag boxAttrs | 854 val span : bodyTag boxAttrs |
855 val div : bodyTag boxAttrs | 855 val div : bodyTag boxAttrs |
856 | 856 |