Fix visibility in basic to make automation link again.

There are still some link warnings left, though.

3 files changed, 40 insertions, 0 deletions

diff --git a/basic/source/sbx/sbxarray.cxx b/basic/source/sbx/sbxarray.cxx
index 0f9b81f8d479..d21f10639819 100644
--- a/basic/source/sbx/sbxarray.cxx
+++ b/basic/source/sbx/sbxarray.cxx
@@ -645,6 +645,11 @@ void SbxDimArray::AddDimImpl32( sal_Int32 lb, sal_Int32 ub, sal_Bool bAllowSize0
         SetError( eRes );
 }
 
+short SbxDimArray::GetDims() const
+{
+    return nDim;
+}
+
 void SbxDimArray::AddDim( short lb, short ub )
 {
     AddDimImpl32( lb, ub, sal_False );
diff --git a/basic/source/sbx/sbxobj.cxx b/basic/source/sbx/sbxobj.cxx
index bf4bd83c7b28..cfac25578bc9 100644
--- a/basic/source/sbx/sbxobj.cxx
+++ b/basic/source/sbx/sbxobj.cxx
@@ -986,6 +986,21 @@ SvDispatch* SbxObject::GetSvDispatch()
     return NULL;
 }
 
+SbxMethod::SbxMethod( const String& r, SbxDataType t )
+    : SbxVariable( t )
+{
+    SetName( r );
+}
+
+SbxMethod::SbxMethod( const SbxMethod& r )
+    : SvRefBase( r ), SbxVariable( r )
+{
+}
+
+SbxMethod::~SbxMethod()
+{
+}
+
 sal_Bool SbxMethod::Run( SbxValues* pValues )
 {
     SbxValues aRes;
@@ -1000,6 +1015,16 @@ SbxClassType SbxMethod::GetClass() const
     return SbxCLASS_METHOD;
 }
 
+SbxProperty::SbxProperty( const String& r, SbxDataType t )
+    : SbxVariable( t )
+{
+    SetName( r );
+}
+
+SbxProperty::~SbxProperty()
+{
+}
+
 SbxClassType SbxProperty::GetClass() const
 {
     return SbxCLASS_PROPERTY;
diff --git a/basic/source/sbx/sbxvar.cxx b/basic/source/sbx/sbxvar.cxx
index 77c3b51d74a9..012c643e96e9 100644
--- a/basic/source/sbx/sbxvar.cxx
+++ b/basic/source/sbx/sbxvar.cxx
@@ -159,6 +159,16 @@ SfxBroadcaster& SbxVariable::GetBroadcaster()
     return *pCst;
 }
 
+SbxArray* SbxVariable::GetParameters() const
+{
+    return mpPar;
+}
+
+SbxObject* SbxVariable::GetParent()
+{
+    return pParent;
+}
+
 // Perhaps some day one could cut the parameter 0.
 // then the copying will be dropped ...