1 files changed, 145 insertions, 0 deletions
diff --git a/vcl/unx/gtk4/gtkaccessibletext.cxx b/vcl/unx/gtk4/gtkaccessibletext.cxx
new file mode 100644
index 000000000000..32e1448a5f65
--- /dev/null
+++ b/vcl/unx/gtk4/gtkaccessibletext.cxx
@@ -0,0 +1,145 @@
+/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
+/*
+ * This file is part of the LibreOffice project.
+ *
+ * This Source Code Form is subject to the terms of the Mozilla Public
+ * License, v. 2.0. If a copy of the MPL was not distributed with this
+ * file, You can obtain one at http://mozilla.org/MPL/2.0/.
+ */
+
+#include <com/sun/star/accessibility/AccessibleTextType.hpp>
+#include <com/sun/star/accessibility/TextSegment.hpp>
+#include <com/sun/star/accessibility/XAccessibleText.hpp>
+#include <sal/log.hxx>
+
+#include "a11y.hxx"
+#include "gtkaccessibletext.hxx"
+
+#if GTK_CHECK_VERSION(4, 13, 8)
+
+namespace
+{
+sal_Int16 lcl_GtkTextGranularityToUNOBoundaryType(GtkAccessibleTextGranularity eGranularity)
+{
+    switch (eGranularity)
+    {
+        case GTK_ACCESSIBLE_TEXT_GRANULARITY_CHARACTER:
+            return com::sun::star::accessibility::AccessibleTextType::CHARACTER;
+        case GTK_ACCESSIBLE_TEXT_GRANULARITY_WORD:
+            return com::sun::star::accessibility::AccessibleTextType::WORD;
+        case GTK_ACCESSIBLE_TEXT_GRANULARITY_SENTENCE:
+            return com::sun::star::accessibility::AccessibleTextType::SENTENCE;
+        case GTK_ACCESSIBLE_TEXT_GRANULARITY_LINE:
+            return com::sun::star::accessibility::AccessibleTextType::LINE;
+        case GTK_ACCESSIBLE_TEXT_GRANULARITY_PARAGRAPH:
+            return com::sun::star::accessibility::AccessibleTextType::PARAGRAPH;
+        default:
+            assert(false && "Unhandled GtkAccessibleTextGranularity.");
+            return GTK_ACCESSIBLE_TEXT_GRANULARITY_CHARACTER;
+    }
+}
+
+css::uno::Reference<css::accessibility::XAccessibleText> getXText(GtkAccessibleText* pGtkText)
+{
+    LoAccessible* pAccessible = LO_ACCESSIBLE(pGtkText);
+    if (!pAccessible->uno_accessible)
+        return nullptr;
+
+    css::uno::Reference<css::accessibility::XAccessibleContext> xContext(
+        pAccessible->uno_accessible->getAccessibleContext());
+
+    css::uno::Reference<css::accessibility::XAccessibleText> xText(xContext, css::uno::UNO_QUERY);
+    return xText;
+}
+}
+
+static GBytes* lo_accessible_text_get_contents(GtkAccessibleText* self, unsigned int start,
+                                               unsigned int end)
+{
+    css::uno::Reference<css::accessibility::XAccessibleText> xText = getXText(self);
+    if (!xText.is())
+        return nullptr;
+
+    // G_MAXUINT has special meaning: end of the text
+    const sal_Int32 nEndIndex = (end == G_MAXUINT) ? xText->getCharacterCount() : end;
+
+    const OString sText
+        = rtl::OUStringToOString(xText->getTextRange(start, nEndIndex), RTL_TEXTENCODING_UTF8);
+    return g_bytes_new(sText.getStr(), sText.getLength());
+}
+
+static GBytes* lo_accessible_text_get_contents_at(GtkAccessibleText* self, unsigned int offset,
+                                                  GtkAccessibleTextGranularity eGranularity,
+                                                  unsigned int* start, unsigned int* end)
+{
+    css::uno::Reference<css::accessibility::XAccessibleText> xText = getXText(self);
+    if (!xText.is())
+        return nullptr;
+
+    if (offset < 0 || offset > o3tl::make_unsigned(xText->getCharacterCount()))
+    {
+        SAL_WARN("vcl.gtk",
+                 "lo_accessible_text_get_contents_at called with invalid offset: " << offset);
+        return nullptr;
+    }
+
+    const sal_Int16 nUnoBoundaryType = lcl_GtkTextGranularityToUNOBoundaryType(eGranularity);
+    const css::accessibility::TextSegment aSegment
+        = xText->getTextAtIndex(offset, nUnoBoundaryType);
+    *start = o3tl::make_unsigned(aSegment.SegmentStart);
+    *end = o3tl::make_unsigned(aSegment.SegmentEnd);
+    const OString sText = rtl::OUStringToOString(aSegment.SegmentText, RTL_TEXTENCODING_UTF8);
+    return g_bytes_new(sText.getStr(), sText.getLength());
+}
+
+static unsigned int lo_accessible_text_get_caret_position(GtkAccessibleText* self)
+{
+    css::uno::Reference<css::accessibility::XAccessibleText> xText = getXText(self);
+    if (!xText.is())
+        return 0;
+
+    return std::max(0, xText->getCaretPosition());
+}
+
+static gboolean lo_accessible_text_get_selection(GtkAccessibleText* self, gsize* n_ranges,
+                                                 GtkAccessibleTextRange** ranges)
+{
+    css::uno::Reference<css::accessibility::XAccessibleText> xText = getXText(self);
+    if (!xText.is())
+        return 0;
+
+    if (xText->getSelectedText().isEmpty())
+        return false;
+
+    const sal_Int32 nSelectionStart = xText->getSelectionStart();
+    const sal_Int32 nSelectionEnd = xText->getSelectionEnd();
+
+    *n_ranges = 1;
+    *ranges = g_new(GtkAccessibleTextRange, 1);
+    (*ranges)[0].start = std::min(nSelectionStart, nSelectionEnd);
+    (*ranges)[0].length = std::abs(nSelectionEnd - nSelectionStart);
+    return true;
+}
+
+static gboolean lo_accessible_text_get_attributes(GtkAccessibleText* /* self */,
+                                                  unsigned int /* offset */, gsize* /* n_ranges */,
+                                                  GtkAccessibleTextRange** /* ranges */,
+                                                  char*** /* attribute_names */,
+                                                  char*** /* attribute_values */)
+{
+    // TODO: implement
+    return false;
+}
+
+void lo_accessible_text_init(GtkAccessibleTextInterface* iface)
+{
+    iface->get_contents = lo_accessible_text_get_contents;
+    iface->get_contents_at = lo_accessible_text_get_contents_at;
+    iface->get_caret_position = lo_accessible_text_get_caret_position;
+    iface->get_selection = lo_accessible_text_get_selection;
+    iface->get_attributes = lo_accessible_text_get_attributes;
+}
+
+#endif
+
+/* vim:set shiftwidth=4 softtabstop=4 expandtab: */