diff options
| author | Vladimir Glazounov <vg@openoffice.org> | 2006-11-02 15:32:13 +0000 |
|---|---|---|
| committer | Vladimir Glazounov <vg@openoffice.org> | 2006-11-02 15:32:13 +0000 |
| commit | 0a6cd6e80f6e1d0540af9d1f311ce09a933e777a (patch) | |
| tree | 28acbc77344aeed847529dc77f7e234d1788147e /basic | |
| parent | 7c826e237da809c0f252ad038fb3f17b25bc5396 (diff) | |
INTEGRATION: CWS npower4 (1.17.10); FILE MERGED
2006/10/18 20:29:17 npower 1.17.10.1: #i64884# changes for default properties
Diffstat (limited to 'basic')
| -rw-r--r-- | basic/source/comp/parser.cxx | 16 |
1 files changed, 13 insertions, 3 deletions
diff --git a/basic/source/comp/parser.cxx b/basic/source/comp/parser.cxx index 59e0689f8990..79fdfbfd6451 100644 --- a/basic/source/comp/parser.cxx +++ b/basic/source/comp/parser.cxx @@ -4,9 +4,9 @@ * * $RCSfile: parser.cxx,v $ * - * $Revision: 1.18 $ + * $Revision: 1.19 $ * - * last change: $Author: vg $ $Date: 2006-11-01 16:14:20 $ + * last change: $Author: vg $ $Date: 2006-11-02 16:32:13 $ * * The Contents of this file are made available subject to * the terms of GNU Lesser General Public License Version 2.1. @@ -603,10 +603,20 @@ void SbiParser::Set() SbiExpression aExpr( this ); aLvalue.Gen(); aExpr.Gen(); + // Its a good idea to distinguish between + // set someting = another & + // someting = another + // ( its necessary for vba objects where set is object + // specific and also doesn't involve processing default params ) if( pDef->GetTypeId() ) aGen.Gen( _SETCLASS, pDef->GetTypeId() ); else - aGen.Gen( _SET ); + { + if ( bVBASupportOn ) + aGen.Gen( _VBASET ); + else + aGen.Gen( _SET ); + } } // aGen.Gen( _SET ); } |