summaryrefslogtreecommitdiff
path: root/basic
diff options
context:
space:
mode:
authorVladimir Glazounov <vg@openoffice.org>2006-11-02 15:34:22 +0000
committerVladimir Glazounov <vg@openoffice.org>2006-11-02 15:34:22 +0000
commitf678ace1abe7e4eff8465a926a025c893bc12db7 (patch)
tree862e325c39a3065b7ab7b3cfc8281a0119d2a745 /basic
parent1ae74487be1d893621e52331e94426d4f1596c46 (diff)
INTEGRATION: CWS npower4 (1.6.12); FILE MERGED
2006/10/18 20:29:19 npower 1.6.12.1: #i64884# changes for default properties
Diffstat (limited to 'basic')
-rw-r--r--basic/source/sbx/sbxobj.cxx19
1 files changed, 12 insertions, 7 deletions
diff --git a/basic/source/sbx/sbxobj.cxx b/basic/source/sbx/sbxobj.cxx
index 8f256d1ed4b6..508b56bf6c30 100644
--- a/basic/source/sbx/sbxobj.cxx
+++ b/basic/source/sbx/sbxobj.cxx
@@ -4,9 +4,9 @@
*
* $RCSfile: sbxobj.cxx,v $
*
- * $Revision: 1.6 $
+ * $Revision: 1.7 $
*
- * last change: $Author: obo $ $Date: 2006-09-17 10:11:04 $
+ * last change: $Author: vg $ $Date: 2006-11-02 16:34:22 $
*
* The Contents of this file are made available subject to
* the terms of GNU Lesser General Public License Version 2.1.
@@ -320,16 +320,21 @@ BOOL SbxObject::Call( const XubString& rName, SbxArray* pParam )
return FALSE;
}
-void SbxObject::SetDfltProperty( const XubString& rName )
+SbxProperty* SbxObject::GetDfltProperty()
{
- if( rName.Len() )
+ if ( !pDfltProp && aDfltPropName.Len() )
{
- pDfltProp = (SbxProperty*) Find( rName, SbxCLASS_PROPERTY );
+ pDfltProp = (SbxProperty*) Find( aDfltPropName, SbxCLASS_PROPERTY );
if( !pDfltProp )
- pDfltProp = (SbxProperty*) Make( rName, SbxCLASS_PROPERTY, SbxVARIANT );
+ pDfltProp = (SbxProperty*) Make( aDfltPropName, SbxCLASS_PROPERTY, SbxVARIANT );
}
- else
+ return pDfltProp;
+}
+void SbxObject::SetDfltProperty( const XubString& rName )
+{
+ if ( rName != aDfltPropName )
pDfltProp = NULL;
+ aDfltPropName = rName;
SetModified( TRUE );
}