diff options
| author | npower Developer <npower@openoffice.org> | 2010-03-02 12:39:31 +0000 |
|---|---|---|
| committer | npower Developer <npower@openoffice.org> | 2010-03-02 12:39:31 +0000 |
| commit | da0a3a0e7f71bc56a6e4e49b4d0645de6903739c (patch) | |
| tree | b5758d632f0ffc509548dfd3afe9aaad1716deb1 /basic/source/runtime/methods1.cxx | |
| parent | 4d8175599b8d193aba6eef89ef905c830b87d7e7 (diff) | |
npower13_objectmodule: #i109734# object module stuff
Diffstat (limited to 'basic/source/runtime/methods1.cxx')
| -rw-r--r-- | basic/source/runtime/methods1.cxx | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/basic/source/runtime/methods1.cxx b/basic/source/runtime/methods1.cxx index e0501e5c0d94..3a234b78e1df 100644 --- a/basic/source/runtime/methods1.cxx +++ b/basic/source/runtime/methods1.cxx @@ -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 ); - } } |