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