mir/libreoffice
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

npower13_objectmodule: #i109734# object module stuff

Browse Source
This commit is contained in:
npower Developer
2010-03-02 12:39:31 +00:00
parent 4d8175599b
commit da0a3a0e7f
20 changed files with 747 additions and 67 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
basic/source/runtime/methods1.cxx
View File

@@ -61,6 +61,7 @@
#endif
#include <vcl/jobset.hxx>
#include <basic/sbobjmod.hxx>
#include "sbintern.hxx"
#include "runtime.hxx"
@@ -2594,14 +2595,15 @@ RTLFUNC(Me)
SbModule* pActiveModule = pINST->GetActiveModule();
SbClassModuleObject* pClassModuleObject = PTR_CAST(SbClassModuleObject,pActiveModule);
SbxVariableRef refVar = rPar.Get(0);
if( pClassModuleObject == NULL )
{
StarBASIC::Error( SbERR_INVALID_USAGE_OBJECT );
SbObjModule* pMod = PTR_CAST(SbObjModule,pActiveModule);
if ( pMod )
refVar->PutObject( pMod );
}
else
{
SbxVariableRef refVar = rPar.Get(0);
refVar->PutObject( pClassModuleObject );
}
}