Comply with aria attributes for disclosure

This commit is contained in:
Brian J. Cardiff 2022-07-08 15:01:17 -03:00
parent 1722204874
commit dbf1d2c448

View File

@ -500,7 +500,12 @@ viewCustom config =
[ let
buttonAttributes =
[ Aria.disabled config.isDisabled
, Aria.hasMenuPopUp
, case config.purpose of
NavMenu ->
Aria.hasMenuPopUp
Disclosure _ ->
AttributesExtra.none
, Aria.expanded config.isOpen
, -- Whether the menu is open or closed, move to the
-- first menu item if the "down" arrow is pressed