tdf#156622 - A11Y - fix not clickable warning about blinking text
Make clickable and highlight the problematic text.
Change-Id: Ie53c74b0364d08e4299e4c27ff2744a8c547844e
Reviewed-on: https://gerrit.libreoffice.org/c/core/+/155586
Tested-by: Jenkins
Reviewed-by: Balazs Varga <balazs.varga.extern@allotropia.de>
(cherry picked from commit 13d51d47e8c7c8cca6d1271dfad42e0af982945f)
Reviewed-on: https://gerrit.libreoffice.org/c/core/+/155609
Reviewed-by: Samuel Mehrbrodt <samuel.mehrbrodt@allotropia.de>
diff --git a/sw/source/core/access/AccessibilityCheck.cxx b/sw/source/core/access/AccessibilityCheck.cxx
index f18cb81..ee2ba0a 100644
--- a/sw/source/core/access/AccessibilityCheck.cxx
+++ b/sw/source/core/access/AccessibilityCheck.cxx
@@ -1040,7 +1040,8 @@ public:
class BlinkingTextCheck : public NodeCheck
{
private:
void checkTextRange(uno::Reference<text::XTextRange> const& xTextRange)
void checkTextRange(uno::Reference<text::XTextRange> const& xTextRange, SwTextNode* pTextNode,
sal_Int32 nStart)
{
uno::Reference<beans::XPropertySet> xProperties(xTextRange, uno::UNO_QUERY);
if (xProperties.is() && xProperties->getPropertySetInfo()->hasPropertyByName("CharFlash"))
@@ -1050,7 +1051,12 @@ private:
if (bBlinking)
{
lclAddIssue(m_rIssueCollection, SwResId(STR_TEXT_BLINKING));
auto pIssue = lclAddIssue(m_rIssueCollection, SwResId(STR_TEXT_BLINKING));
pIssue->setIssueObject(IssueObject::TEXT);
pIssue->setNode(pTextNode);
pIssue->setDoc(pTextNode->GetDoc());
pIssue->setStart(nStart);
pIssue->setEnd(nStart + xTextRange->getString().getLength());
}
}
}
@@ -1074,11 +1080,15 @@ public:
uno::Reference<container::XEnumerationAccess> xRunEnumAccess(xParagraph, uno::UNO_QUERY);
uno::Reference<container::XEnumeration> xRunEnum = xRunEnumAccess->createEnumeration();
sal_Int32 nStart = 0;
while (xRunEnum->hasMoreElements())
{
uno::Reference<text::XTextRange> xRun(xRunEnum->nextElement(), uno::UNO_QUERY);
if (xRun.is())
checkTextRange(xRun);
{
checkTextRange(xRun, pTextNode, nStart);
nStart += xRun->getString().getLength();
}
}
}
};