From 650fa9de257e897519e1411e7b88c3886fec06a7 Mon Sep 17 00:00:00 2001
From: Andreas Bregas <ab@openoffice.org>
Date: Wed, 9 Jan 2002 15:43:05 +0000
Subject: #96310# New method HasBasicWithModules()

---
 basic/source/basmgr/basmgr.cxx | 39 +++++++++++++++++++++++++++++++++++++--
 1 file changed, 37 insertions(+), 2 deletions(-)

(limited to 'basic')

diff --git a/basic/source/basmgr/basmgr.cxx b/basic/source/basmgr/basmgr.cxx
index e27facdbfc92..2c1c1bc88203 100644
--- a/basic/source/basmgr/basmgr.cxx
+++ b/basic/source/basmgr/basmgr.cxx
@@ -2,9 +2,9 @@
  *
  *  $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
  *  either of the following licenses
@@ -934,6 +934,41 @@ BOOL BasicManager::HasBasicManager( const SotStorage& rStorage )
     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 )
 {
     // pErrInf wird nur zerstoert, wenn der Fehler von einem ErrorHandler
-- 
cgit