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

#96310# New method HasBasicWithModules()

Browse Source
This commit is contained in:
Andreas Bregas
2002-01-09 15:43:05 +00:00
parent 70e8cda171
commit 650fa9de25
1 changed files with 37 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

39
basic/source/basmgr/basmgr.cxx
View File

@@ -2,9 +2,9 @@
* *
* $RCSfile: basmgr.cxx,v $ * $RCSfile: basmgr.cxx,v $
* *
* $Revision: 1.18 $ * $Revision: 1.19 $
* *
* last change: $Author: ab $ $Date: 2001-12-19 15:53:38 $ * last change: $Author: ab $ $Date: 2002-01-09 16:43:05 $
* *
* The Contents of this file are made available subject to the terms of * The Contents of this file are made available subject to the terms of
* either of the following licenses * either of the following licenses
@@ -934,6 +934,41 @@ BOOL BasicManager::HasBasicManager( const SotStorage& rStorage )
return rStorage.IsStream( ManagerStreamName ); return rStorage.IsStream( ManagerStreamName );
} }
BOOL BasicManager::HasBasicWithModules( const SotStorage& rStorage )
{
if( !rStorage.IsStream( ManagerStreamName ) )
return FALSE;
StarBASIC* pDummyParentBasic = new StarBASIC();
BasicManager* pBasMgr = new BasicManager( (SotStorage&)rStorage, pDummyParentBasic );
BOOL bRet = FALSE;
USHORT nLibs = pBasMgr->GetLibCount();
for( USHORT nL = 0; nL < nLibs; nL++ )
{
BasicLibInfo* pInfo = pBasMgr->pLibs->GetObject( nL );
StarBASIC* pLib = pInfo->GetLib();
if( !pLib )
{
BOOL bLoaded = pBasMgr->ImpLoadLibary( pInfo, NULL, FALSE );
if( bLoaded )
pLib = pInfo->GetLib();
}
if( pLib )
{
SbxArray* pModules = pLib->GetModules();
if( pModules->Count() )
{
bRet = TRUE;
break;
}
}
}
delete pBasMgr;
return bRet;
}
void BasicManager::ImpMgrNotLoaded( const String& rStorageName ) void BasicManager::ImpMgrNotLoaded( const String& rStorageName )
{ {
// pErrInf wird nur zerstoert, wenn der Fehler von einem ErrorHandler // pErrInf wird nur zerstoert, wenn der Fehler von einem ErrorHandler