[ooo-build-commit] .: patches/dev300 patches/vba

[Noel Power]

 patches/dev300/apply                         |    2 ++
 patches/vba/vba-multipage-fireapichange.diff |   15 +++++++++++++++
 2 files changed, 17 insertions(+)

New commits:
commit 947119e3b0b66e9d9f2c293909e0b66696679192
Author: Noel Power <noel.power at novell.com>
Date:   Fri Feb 5 11:21:04 2010 +0000

    ensure MultiPage_Change event is fired when 'Value' is changed via the api
    
    * patches/dev300/apply:
    * patches/vba/vba-multipage-fireapichange.diff:

diff --git a/patches/dev300/apply b/patches/dev300/apply
index 96988bd..0e118a8 100644
--- a/patches/dev300/apply
+++ b/patches/dev300/apply
@@ -1683,6 +1683,8 @@ vba-enable-fieldrelatedbits.diff
 vba-fix-scp2-librarylocation.diff
 # container controls
 vba-container-controls.diff
+# fire change event when active tab is changed via api for multipage
+vba-multipage-fireapichange.diff
 [VBAUntested]
 SectionOwner => noelpwer
 # doesn't work
diff --git a/patches/vba/vba-multipage-fireapichange.diff b/patches/vba/vba-multipage-fireapichange.diff
new file mode 100644
index 0000000..8f35a19
--- /dev/null
+++ b/patches/vba/vba-multipage-fireapichange.diff
@@ -0,0 +1,15 @@
+--- vbahelper/source/msforms/vbamultipage.cxx	2010-02-05 10:43:43.000000000 +0000
++++ ../../build-good/ooo320-m8/vbahelper/source/msforms//vbamultipage.cxx	2010-02-05 10:20:38.000000000 +0000
+@@ -92,8 +92,11 @@ void SAL_CALL
+ ScVbaMultiPage::setValue( const sal_Int32 _value ) throw (::com::sun::star::uno::RuntimeException)
+ {
+     // Openoffice 1 based tab index
+-   sal_Int32 nVal = _value + 1;
++    sal_Int32 nVal = _value + 1;
++    sal_Int32 nOldVal = getValue();
+     m_xProps->setPropertyValue( SVALUE, uno::makeAny( nVal ) );
++    if ( nVal != nOldVal )
++        fireChangeEvent();  
+ }
+ 
+