mark methods as stub where appropriate

Hopefully this will allow us to track methods we don't or can't implement ( although we let them actually exectute )

Change-Id: I53c74054ffea6cfa8e45aa4583f51c03f33991ee

13 files changed, 49 insertions, 17 deletions

diff --git a/vbahelper/source/msforms/vbabutton.cxx b/vbahelper/source/msforms/vbabutton.cxx
index 22f698633a35..eb028e7db8ed 100644
--- a/vbahelper/source/msforms/vbabutton.cxx
+++ b/vbahelper/source/msforms/vbabutton.cxx
@@ -71,15 +71,18 @@ sal_Bool SAL_CALL ScVbaButton::getCancel() throw (uno::RuntimeException)
 
 void SAL_CALL ScVbaButton::setCancel( sal_Bool /*bCancel*/ ) throw (uno::RuntimeException)
 {
+    // #STUB
 }
 
 sal_Bool SAL_CALL ScVbaButton::getDefault() throw (uno::RuntimeException)
 {
+    // #STUB
     return sal_False;
 }
 
 void SAL_CALL ScVbaButton::setDefault( sal_Bool /*bDefault*/ ) throw (uno::RuntimeException)
 {
+    // #STUB
 }
 
 sal_Int32 SAL_CALL ScVbaButton::getBackColor() throw (uno::RuntimeException)
@@ -99,6 +102,7 @@ sal_Int32 SAL_CALL ScVbaButton::getForeColor() throw (uno::RuntimeException)
 
 void SAL_CALL ScVbaButton::setForeColor( sal_Int32 /*nForeColor*/ ) throw (uno::RuntimeException)
 {
+    // #STUB
 }
 
 uno::Reference< msforms::XNewFont > SAL_CALL ScVbaButton::getFont() throw (uno::RuntimeException)
diff --git a/vbahelper/source/msforms/vbaframe.cxx b/vbahelper/source/msforms/vbaframe.cxx
index 82b763d10628..ee39e9953b09 100644
--- a/vbahelper/source/msforms/vbaframe.cxx
+++ b/vbahelper/source/msforms/vbaframe.cxx
@@ -62,17 +62,20 @@ sal_Int32 SAL_CALL ScVbaFrame::getSpecialEffect() throw (uno::RuntimeException)
 
 ::sal_Int32 SAL_CALL ScVbaFrame::getForeColor() throw (::com::sun::star::uno::RuntimeException)
 {
+    // #STUB
     return 0;
 }
 
 void SAL_CALL ScVbaFrame::setForeColor( ::sal_Int32 /*_forecolor*/ ) throw (::com::sun::star::uno::RuntimeException)
 {
+    // #STUB
     return;
 }
 
 
 void SAL_CALL ScVbaFrame::setSpecialEffect( sal_Int32 /*nSpecialEffect*/ ) throw (uno::RuntimeException)
 {
+    // #STUB
 }
 
 sal_Int32 SAL_CALL ScVbaFrame::getBorderStyle() throw (uno::RuntimeException)
@@ -82,6 +85,7 @@ sal_Int32 SAL_CALL ScVbaFrame::getBorderStyle() throw (uno::RuntimeException)
 
 void SAL_CALL ScVbaFrame::setBorderStyle( sal_Int32 /*nBorderStyle*/ ) throw (uno::RuntimeException)
 {
+    // #STUB
 }
 
 uno::Reference< msforms::XNewFont > SAL_CALL ScVbaFrame::getFont() throw (uno::RuntimeException)
diff --git a/vbahelper/source/msforms/vbalabel.cxx b/vbahelper/source/msforms/vbalabel.cxx
index d7a0d5ed257d..4c9a723cce4a 100644
--- a/vbahelper/source/msforms/vbalabel.cxx
+++ b/vbahelper/source/msforms/vbalabel.cxx
@@ -60,14 +60,14 @@ ScVbaLabel::setValue( const uno::Any& _value ) throw (::com::sun::star::uno::Run
 rtl::OUString SAL_CALL
 ScVbaLabel::getAccelerator() throw (css::uno::RuntimeException)
 {
-    //FIXME: seems not support?
+    // #STUB
     return rtl::OUString();
 }
 
 void SAL_CALL
 ScVbaLabel::setAccelerator( const rtl::OUString& /*_accelerator*/ ) throw (::com::sun::star::uno::RuntimeException)
 {
-    //FIXME: seems not support?
+    // #STUB
 }
 
 uno::Reference< msforms::XNewFont > SAL_CALL ScVbaLabel::getFont() throw (uno::RuntimeException)
diff --git a/vbahelper/source/msforms/vbapages.cxx b/vbahelper/source/msforms/vbapages.cxx
index df4384713dcd..ba1ef2b9c703 100644
--- a/vbahelper/source/msforms/vbapages.cxx
+++ b/vbahelper/source/msforms/vbapages.cxx
@@ -47,6 +47,7 @@ ScVbaPages::getServiceImplName()
 uno::Reference< container::XEnumeration > SAL_CALL
 ScVbaPages::createEnumeration() throw (uno::RuntimeException)
 {
+    // #STUB
     return uno::Reference< container::XEnumeration >();
 }
 
diff --git a/vbahelper/source/msforms/vbatextbox.cxx b/vbahelper/source/msforms/vbatextbox.cxx
index 0703693f61be..45edf35aff7c 100644
--- a/vbahelper/source/msforms/vbatextbox.cxx
+++ b/vbahelper/source/msforms/vbatextbox.cxx
@@ -122,6 +122,7 @@ sal_Int32 SAL_CALL ScVbaTextBox::getSpecialEffect() throw (uno::RuntimeException
 
 void SAL_CALL ScVbaTextBox::setSpecialEffect( sal_Int32 /*nSpecialEffect*/ ) throw (uno::RuntimeException)
 {
+    // #STUB
 }
 
 sal_Int32 SAL_CALL ScVbaTextBox::getBorderStyle() throw (uno::RuntimeException)
@@ -131,6 +132,7 @@ sal_Int32 SAL_CALL ScVbaTextBox::getBorderStyle() throw (uno::RuntimeException)
 
 void SAL_CALL ScVbaTextBox::setBorderStyle( sal_Int32 /*nBorderStyle*/ ) throw (uno::RuntimeException)
 {
+    // #STUB
 }
 
 sal_Int32 SAL_CALL ScVbaTextBox::getTextLength() throw (uno::RuntimeException)
diff --git a/vbahelper/source/msforms/vbatogglebutton.cxx b/vbahelper/source/msforms/vbatogglebutton.cxx
index 7d6ded2135d3..f80aa40dd50c 100644
--- a/vbahelper/source/msforms/vbatogglebutton.cxx
+++ b/vbahelper/source/msforms/vbatogglebutton.cxx
@@ -100,20 +100,24 @@ void SAL_CALL ScVbaToggleButton::setAutoSize( sal_Bool bAutoSize ) throw (uno::R
 
 sal_Bool SAL_CALL ScVbaToggleButton::getCancel() throw (uno::RuntimeException)
 {
+    // #STUB
     return sal_False;
 }
 
 void SAL_CALL ScVbaToggleButton::setCancel( sal_Bool /*bCancel*/ ) throw (uno::RuntimeException)
 {
+    // #STUB
 }
 
 sal_Bool SAL_CALL ScVbaToggleButton::getDefault() throw (uno::RuntimeException)
 {
+    // #STUB
     return sal_False;
 }
 
 void SAL_CALL ScVbaToggleButton::setDefault( sal_Bool /*bDefault*/ ) throw (uno::RuntimeException)
 {
+    // #STUB
 }
 
 sal_Int32 SAL_CALL ScVbaToggleButton::getBackColor() throw (uno::RuntimeException)
@@ -128,11 +132,13 @@ void SAL_CALL ScVbaToggleButton::setBackColor( sal_Int32 nBackColor ) throw (uno
 
 sal_Int32 SAL_CALL ScVbaToggleButton::getForeColor() throw (uno::RuntimeException)
 {
+    // #STUB
     return 0;
 }
 
 void SAL_CALL ScVbaToggleButton::setForeColor( sal_Int32 /*nForeColor*/ ) throw (uno::RuntimeException)
 {
+    // #STUB
 }
 
 uno::Reference< msforms::XNewFont > SAL_CALL ScVbaToggleButton::getFont() throw (uno::RuntimeException)
diff --git a/vbahelper/source/msforms/vbauserform.cxx b/vbahelper/source/msforms/vbauserform.cxx
index e2c4dc67e025..b8775ea5fdb0 100644
--- a/vbahelper/source/msforms/vbauserform.cxx
+++ b/vbahelper/source/msforms/vbauserform.cxx
@@ -158,6 +158,7 @@ void SAL_CALL ScVbaUserForm::setVisible( sal_Bool bVisible ) throw (uno::Runtime
 void SAL_CALL
 ScVbaUserForm::RePaint(  ) throw (uno::RuntimeException)
 {
+    // #STUB
     // do nothing
 }
 
diff --git a/vbahelper/source/vbahelper/vbacommandbar.cxx b/vbahelper/source/vbahelper/vbacommandbar.cxx
index bafeba9e6ff2..7a641ebca82d 100644
--- a/vbahelper/source/vbahelper/vbacommandbar.cxx
+++ b/vbahelper/source/vbahelper/vbacommandbar.cxx
@@ -211,11 +211,13 @@ void SAL_CALL VbaDummyCommandBar::setName( const ::rtl::OUString& _name ) throw
 
 ::sal_Bool SAL_CALL VbaDummyCommandBar::getVisible() throw (uno::RuntimeException)
 {
+    // #STUB
     return sal_True;
 }
 
 void SAL_CALL VbaDummyCommandBar::setVisible( ::sal_Bool /*_visible*/ ) throw (uno::RuntimeException)
 {
+    // #STUB
 }
 
 ::sal_Bool SAL_CALL VbaDummyCommandBar::getEnabled() throw (uno::RuntimeException)
@@ -233,6 +235,7 @@ void SAL_CALL VbaDummyCommandBar::setEnabled( sal_Bool _enabled ) throw (uno::Ru
 void SAL_CALL VbaDummyCommandBar::Delete(  ) throw (script::BasicErrorException, uno::RuntimeException)
 {
     // no-op
+    // #STUB
 }
 
 uno::Any SAL_CALL VbaDummyCommandBar::Controls( const uno::Any& aIndex ) throw (script::BasicErrorException, uno::RuntimeException)
diff --git a/vbahelper/source/vbahelper/vbacommandbarcontrol.cxx b/vbahelper/source/vbahelper/vbacommandbarcontrol.cxx
index 228fba67ce6a..2c7c50d18e84 100644
--- a/vbahelper/source/vbahelper/vbacommandbarcontrol.cxx
+++ b/vbahelper/source/vbahelper/vbacommandbarcontrol.cxx
@@ -133,6 +133,7 @@ ScVbaCommandBarControl::setEnabled( sal_Bool _enabled ) throw (uno::RuntimeExcep
 ScVbaCommandBarControl::getBeginGroup() throw (css::uno::RuntimeException)
 {
     // TODO: need to check if the item before this item is of type 'separator'
+    //#STUB
     return sal_False;
 }
 
diff --git a/vbahelper/source/vbahelper/vbadialogsbase.cxx b/vbahelper/source/vbahelper/vbadialogsbase.cxx
index e26751cb44e2..f96672bebb7d 100644
--- a/vbahelper/source/vbahelper/vbadialogsbase.cxx
+++ b/vbahelper/source/vbahelper/vbadialogsbase.cxx
@@ -24,13 +24,14 @@ using namespace ::com::sun::star;
 ::sal_Int32
 VbaDialogsBase::getCount() throw (uno::RuntimeException)
 {
-    //#TODO #FIXEME
+    //#STUB
     return 0;
 }
 
 uno::Any
 VbaDialogsBase::Item( const uno::Any& /* &aItem */) throw (uno::RuntimeException)
 {
+    //#STUB
     return uno::Any();
 }
 
diff --git a/vbahelper/source/vbahelper/vbalineformat.cxx b/vbahelper/source/vbahelper/vbalineformat.cxx
index 4a84e38179cd..e87edb948d11 100644
--- a/vbahelper/source/vbahelper/vbalineformat.cxx
+++ b/vbahelper/source/vbahelper/vbalineformat.cxx
@@ -126,59 +126,74 @@ ScVbaLineFormat::setBeginArrowheadStyle( sal_Int32 _beginarrowheadstyle ) throw
 sal_Int32 SAL_CALL
 ScVbaLineFormat::getBeginArrowheadLength() throw (uno::RuntimeException)
 {
+    // #STUB
+    // force error
     throw uno::RuntimeException( rtl::OUString("Property 'EndArrowheadWidth' is not supported."), uno::Reference< uno::XInterface >() );
 }
 
 void SAL_CALL
 ScVbaLineFormat::setBeginArrowheadLength( sal_Int32 /*_beginarrowheadlength*/ ) throw (uno::RuntimeException)
 {
+    // #STUB
+    // force error
     throw uno::RuntimeException( rtl::OUString("Property 'EndArrowheadWidth' is not supported."), uno::Reference< uno::XInterface >() );
 }
 
 sal_Int32 SAL_CALL
 ScVbaLineFormat::getBeginArrowheadWidth() throw (uno::RuntimeException)
 {
+    // #STUB
+    // force error
     throw uno::RuntimeException( rtl::OUString("Property 'EndArrowheadWidth' is not supported."), uno::Reference< uno::XInterface >() );
 }
 
 void SAL_CALL
 ScVbaLineFormat::setBeginArrowheadWidth( sal_Int32 /*_beginarrowheadwidth*/ ) throw (uno::RuntimeException)
 {
+    // #STUB
+    // force error
     throw uno::RuntimeException( rtl::OUString("Property 'EndArrowheadWidth' is not supported."), uno::Reference< uno::XInterface >() );
 }
 
 sal_Int32 SAL_CALL
 ScVbaLineFormat::getEndArrowheadStylel() throw (uno::RuntimeException)
 {
+    // #STUB
     return 0;
 }
 
 void SAL_CALL
 ScVbaLineFormat::setEndArrowheadStylel( sal_Int32 /*_endarrowheadstylel*/ ) throw (uno::RuntimeException)
 {
+    // #STUB
 }
 
 sal_Int32 SAL_CALL
 ScVbaLineFormat::getEndArrowheadLength() throw (uno::RuntimeException)
 {
+    // #STUB
+    // force error
     throw uno::RuntimeException( rtl::OUString("Property 'EndArrowheadWidth' is not supported."), uno::Reference< uno::XInterface >() );
 }
 
 void SAL_CALL
 ScVbaLineFormat::setEndArrowheadLength( sal_Int32 /*_endarrowheadlength*/ ) throw (uno::RuntimeException)
 {
+    // #STUB
     throw uno::RuntimeException( rtl::OUString("Property 'EndArrowheadWidth' is not supported."), uno::Reference< uno::XInterface >() );
 }
 
 sal_Int32 SAL_CALL
 ScVbaLineFormat::getEndArrowheadWidth() throw (uno::RuntimeException)
 {
+    // #STUB
     throw uno::RuntimeException( rtl::OUString("Property 'EndArrowheadWidth' is not supported."), uno::Reference< uno::XInterface >() );
 }
 
 void SAL_CALL
 ScVbaLineFormat::setEndArrowheadWidth( sal_Int32 /*_endarrowheadwidth*/ ) throw (uno::RuntimeException)
 {
+    // #STUB
     throw uno::RuntimeException( rtl::OUString("Property 'EndArrowheadWidth' is not supported."), uno::Reference< uno::XInterface >() );
 }
 
@@ -269,6 +284,8 @@ ScVbaLineFormat::setStyle( sal_Int16 /*_style */) throw (uno::RuntimeException)
     //Therefore we do not set the LineStyle, because it maybe is already set
     //to Dashed or Single Line. Setting the 'Visible' or 'DashStyle' properties
     //will be done with the according methods.
+
+    // #STUB
 }
 
 sal_Int32 SAL_CALL
diff --git a/vbahelper/source/vbahelper/vbapictureformat.cxx b/vbahelper/source/vbahelper/vbapictureformat.cxx
index 1ba62da94c48..2ffdff10fad9 100644
--- a/vbahelper/source/vbahelper/vbapictureformat.cxx
+++ b/vbahelper/source/vbahelper/vbapictureformat.cxx
@@ -104,7 +104,6 @@ ScVbaPictureFormat::IncrementContrast( double increment ) throw (uno::RuntimeExc
 {
     double nContrast = getContrast();
     nContrast += increment;
-    //VBA, minz@cn.ibm.com.
     if( nContrast < 0 )
     {
         nContrast = 0.0;
diff --git a/vbahelper/source/vbahelper/vbashape.cxx b/vbahelper/source/vbahelper/vbashape.cxx
index 33846d35a131..679290bf9def 100644
--- a/vbahelper/source/vbahelper/vbashape.cxx
+++ b/vbahelper/source/vbahelper/vbashape.cxx
@@ -56,15 +56,6 @@ ScVbaShape::ScVbaShape( const uno::Reference< XHelperInterface >& xParent, const
 
 ScVbaShape::~ScVbaShape()
 {
-    // dtor must never ever throw
-    /*try
-    {
-        removeShapeListener();
-        removeShapesListener();
-    }
-    catch( uno::Exception& )
-    {
-    }*/
 }
 
 void SAL_CALL
@@ -268,6 +259,7 @@ ScVbaShape::setTop( double _top ) throw (uno::RuntimeException)
 sal_Bool SAL_CALL
 ScVbaShape::getVisible() throw (uno::RuntimeException)
 {
+    // #STUB
     //UNO Shapes are always visible
     return sal_True;
 }
@@ -275,6 +267,7 @@ ScVbaShape::getVisible() throw (uno::RuntimeException)
 void SAL_CALL
 ScVbaShape::setVisible( sal_Bool /*_visible*/ ) throw (uno::RuntimeException)
 {
+    // #STUB
     //UNO Shapes are always visible
 }
 
@@ -513,27 +506,27 @@ void SAL_CALL ScVbaShape::Copy() throw (uno::RuntimeException)
 sal_Bool SAL_CALL
 ScVbaShape::getLockAspectRatio() throw (uno::RuntimeException)
 {
-    // FIXME:
+    // #STUB
     return sal_False;
 }
 
 void SAL_CALL
 ScVbaShape::setLockAspectRatio( sal_Bool /*_lockaspectratio*/ ) throw (uno::RuntimeException)
 {
-    // FIXME:
+    // #STUB
 }
 
 sal_Bool SAL_CALL
 ScVbaShape::getLockAnchor() throw (uno::RuntimeException)
 {
-    // FIXME:
+    // #STUB
     return sal_True;
 }
 
 void SAL_CALL
 ScVbaShape::setLockAnchor( sal_Bool /*_lockanchor*/ ) throw (uno::RuntimeException)
 {
-    // FIXME:
+    // #STUB
 }
 
 sal_Int32 SAL_CALL