[Libreoffice-commits] core.git: include/vcl vcl/source

[Szymon KÅ‚os (via logerrit)]

 include/vcl/vclmedit.hxx     |    2 ++
 vcl/source/edit/vclmedit.cxx |    8 ++++++++
 2 files changed, 10 insertions(+)

New commits:
commit 113a5e2b70d31299acad676fadac8c820e655a67
Author:     Szymon Kłos <szymon.klos at collabora.com>
AuthorDate: Tue Mar 17 15:17:14 2020 +0100
Commit:     Szymon Kłos <szymon.klos at collabora.com>
CommitDate: Thu Jul 9 08:45:08 2020 +0200

    jsdialog: export cursor visibility for text areas
    
    Change-Id: I404e496a6f68f5cc2e2e628b51c759be49c7fecd
    Reviewed-on: https://gerrit.libreoffice.org/c/core/+/97729
    Tested-by: Jenkins CollaboraOffice <jenkinscollaboraoffice at gmail.com>
    Reviewed-by: Szymon Kłos <szymon.klos at collabora.com>
    Reviewed-on: https://gerrit.libreoffice.org/c/core/+/98231
    Tested-by: Jenkins

diff --git a/include/vcl/vclmedit.hxx b/include/vcl/vclmedit.hxx
index caec816bd4b3..a21e7ba66b83 100644
--- a/include/vcl/vclmedit.hxx
+++ b/include/vcl/vclmedit.hxx
@@ -174,6 +174,8 @@ public:
     virtual FactoryFunction GetUITestFactory() const override;
 
     virtual bool set_property(const OString &rKey, const OUString &rValue) override;
+
+    virtual void DumpAsPropertyTree(tools::JsonWriter&) override;
 };
 
 #endif // INCLUDED_VCL_VCLMEDIT_HXX
diff --git a/vcl/source/edit/vclmedit.cxx b/vcl/source/edit/vclmedit.cxx
index fe459ba59a0d..b3fb80f2dbc6 100644
--- a/vcl/source/edit/vclmedit.cxx
+++ b/vcl/source/edit/vclmedit.cxx
@@ -38,6 +38,7 @@
 #include <vcl/settings.hxx>
 #include <vcl/weld.hxx>
 #include <osl/diagnose.h>
+#include <tools/json_writer.hxx>
 
 class ImpVclMEdit : public SfxListener
 {
@@ -1552,4 +1553,11 @@ bool VclMultiLineEdit::set_property(const OString &rKey, const OUString &rValue)
     return true;
 }
 
+void VclMultiLineEdit::DumpAsPropertyTree(tools::JsonWriter& rJsonWriter)
+{
+    Edit::DumpAsPropertyTree(rJsonWriter);
+
+    rJsonWriter.put("cursor", pImpVclMEdit->GetTextWindow()->GetTextView()->IsCursorEnabled());
+}
+
 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */