[Libreoffice-commits] core.git: 2 commits - oovbaapi/ooo sc/qa sc/source

[Noel Power]

 oovbaapi/ooo/vba/excel/XName.idl     |    8 ++++----
 sc/qa/extras/macros-test.cxx         |    4 ++++
 sc/qa/extras/testdocuments/Names.xls |binary
 sc/source/ui/vba/vbarange.cxx        |    2 ++
 4 files changed, 10 insertions(+), 4 deletions(-)

New commits:
commit 63899dd0421516da758b7d9a0c276e9cfb4846f5
Author: Noel Power <noel.power at suse.com>
Date:   Tue May 14 15:59:10 2013 +0100

    fire change event after copy ( with dest paramater set )
    
    Change-Id: I86caf96be62120e4bcebadb0083cd4dae1f5d8d1

diff --git a/sc/source/ui/vba/vbarange.cxx b/sc/source/ui/vba/vbarange.cxx
index e40aab4..a2470f1 100644
--- a/sc/source/ui/vba/vbarange.cxx
+++ b/sc/source/ui/vba/vbarange.cxx
@@ -2507,6 +2507,8 @@ ScVbaRange::Copy(const ::uno::Any& Destination) throw (uno::RuntimeException)
                                                 xRange->getColumn()-1,xRange->getRow()-1), uno::UNO_QUERY_THROW );
         uno::Reference< sheet::XCellRangeAddressable > xSource( mxRange, uno::UNO_QUERY);
         xMover->copyRange( xDestination->getCellAddress(), xSource->getRangeAddress() );
+        if ( ScVbaRange* pRange = getImplementation( xRange ) )
+            pRange->fireChangeEvent();
     }
     else
     {
commit fbd74ed44cd011ebab95bb4bc4eb6b15c1272c43
Author: Noel Power <noel.power at suse.com>
Date:   Tue May 14 12:07:43 2013 +0100

    make some vba Name object attributes read/write and add test document
    
    Change-Id: Ibd12835cc5368080a302b3b8d7c6f52ccc434e3c

diff --git a/oovbaapi/ooo/vba/excel/XName.idl b/oovbaapi/ooo/vba/excel/XName.idl
index dc6ba1c..d46dc14 100644
--- a/oovbaapi/ooo/vba/excel/XName.idl
+++ b/oovbaapi/ooo/vba/excel/XName.idl
@@ -37,10 +37,10 @@ interface XName
     [attribute] string NameLocal;
     [attribute] boolean Visible;
     [attribute] string Value;
-    [attribute, readonly] string RefersTo;
-    [attribute, readonly] string RefersToLocal;
-    [attribute, readonly] string RefersToR1C1;
-    [attribute, readonly] string RefersToR1C1Local;
+    [attribute] string RefersTo;
+    [attribute] string RefersToLocal;
+    [attribute] string RefersToR1C1;
+    [attribute] string RefersToR1C1Local;
     [attribute, readonly] XRange RefersToRange;
 
     void Delete( );
diff --git a/sc/qa/extras/macros-test.cxx b/sc/qa/extras/macros-test.cxx
index 347db65..68bed14 100644
--- a/sc/qa/extras/macros-test.cxx
+++ b/sc/qa/extras/macros-test.cxx
@@ -179,6 +179,10 @@ void ScMacrosTest::testVba()
             OUString("Workbooks."),
             OUString("vnd.sun.Star.script:VBAProject.testMacros.test?language=Basic&location=document")
         },
+        {
+            OUString("Names."),
+            OUString("vnd.sun.Star.script:VBAProject.testMacros.test?language=Basic&location=document")
+        },
     };
     OUString sTempDir;
     OUString sTempDirURL;
diff --git a/sc/qa/extras/testdocuments/Names.xls b/sc/qa/extras/testdocuments/Names.xls
new file mode 100755
index 0000000..fcacf9b
Binary files /dev/null and b/sc/qa/extras/testdocuments/Names.xls differ