summaryrefslogtreecommitdiff
path: root/basctl
diff options
context:
space:
mode:
authorKurt Zenker <kz@openoffice.org>2004-07-23 11:04:12 +0000
committerKurt Zenker <kz@openoffice.org>2004-07-23 11:04:12 +0000
commit7eaf4b6e4b2c5027567f236241dac75eaabfe87c (patch)
treea8ab8bbe98117f7eb5e8a887bf4dcf0a13c149c4 /basctl
parent7f6d6cf3ed43433481fe938bf112c8bde7ba90fb (diff)
INTEGRATION: CWS tbe11 (1.15.210); FILE MERGED
2004/07/15 17:50:47 tbe 1.15.210.5: #i31315# Rework Basic IDE Macro Chooser and Macro Organizer 2004/07/13 08:39:39 tbe 1.15.210.4: #i31315# Rework Basic IDE Macro Chooser and Macro Organizer 2004/07/09 15:54:54 tbe 1.15.210.3: #i31315# Rework Basic IDE Macro Chooser and Macro Organizer 2004/06/23 08:35:27 tbe 1.15.210.2: #99468# Basic IDE cannot handle libraries, which contain dialogs only 2004/06/21 11:26:47 tbe 1.15.210.1: #99468# Basic IDE cannot handle libraries, which contain dialogs only
Diffstat (limited to 'basctl')
-rw-r--r--basctl/source/basicide/bastype3.cxx413
1 files changed, 157 insertions, 256 deletions
diff --git a/basctl/source/basicide/bastype3.cxx b/basctl/source/basicide/bastype3.cxx
index 025e7b411aed..471976a1caa5 100644
--- a/basctl/source/basicide/bastype3.cxx
+++ b/basctl/source/basicide/bastype3.cxx
@@ -2,9 +2,9 @@
*
* $RCSfile: bastype3.cxx,v $
*
- * $Revision: 1.15 $
+ * $Revision: 1.16 $
*
- * last change: $Author: sb $ $Date: 2002-07-03 15:48:15 $
+ * last change: $Author: kz $ $Date: 2004-07-23 12:04:12 $
*
* The Contents of this file are made available subject to the terms of
* either of the following licenses
@@ -91,27 +91,19 @@ SV_IMPL_VARARR( EntryArray, SvLBoxEntry*);
void __EXPORT BasicTreeListBox::RequestingChilds( SvLBoxEntry* pEntry )
{
- BasicEntry* pUser = (BasicEntry*)pEntry->GetUserData();
- if ( ( pUser->GetType() == OBJTYPE_SUBOBJ ) ||
- ( pUser->GetType() == OBJTYPE_OBJECT ) )
+ BasicEntryDescriptor aDesc( GetEntryDescriptor( pEntry ) );
+ SfxObjectShell* pShell( aDesc.GetShell() );
+ LibraryLocation eLocation( aDesc.GetLocation() );
+ BasicEntryType eType( aDesc.GetType() );
+
+ if ( eType == OBJ_TYPE_SHELL )
{
- // don't expand dialogs and controls (sbx dialogs removed)
- /*
- SbxObject* pObj = FindObject( pEntry );
- DBG_ASSERT( pObj, "RequestingChilds: Kein gueltiges Objekt");
- if ( pObj )
- ScanSbxObject( pObj, pEntry );
- */
+ ImpCreateLibEntries( pEntry, pShell, eLocation );
}
- else if ( pUser->GetType() == OBJTYPE_LIB )
+ else if ( eType == OBJ_TYPE_LIBRARY )
{
- String aLibName = GetEntryText( pEntry );
+ String aLibName( aDesc.GetLibName() );
::rtl::OUString aOULibName( aLibName );
- SvLBoxEntry* pParent = GetParent( pEntry );
- pUser = (BasicEntry*)pParent->GetUserData();
- DBG_ASSERT( pUser->GetType() == OBJTYPE_BASICMANAGER, "BasicManager?" );
- BasicManager* pBasMgr = ((BasicManagerEntry*)pUser)->GetBasicManager();
- SfxObjectShell* pShell = BasicIDE::FindDocShell( pBasMgr );
// check password
BOOL bOK = TRUE;
@@ -161,7 +153,10 @@ void __EXPORT BasicTreeListBox::RequestingChilds( SvLBoxEntry* pEntry )
ImpCreateLibSubEntries( pEntry, pShell, aLibName );
// exchange image
- setEntryBitmap(pEntry, IMGID_LIB);
+ bool bDlgMode = ( nMode & BROWSEMODE_DIALOGS ) && !( nMode & BROWSEMODE_MODULES );
+ Image aImage( IDEResId( bDlgMode ? RID_IMG_DLGLIB : RID_IMG_MODLIB ) );
+ Image aImageHC( IDEResId( bDlgMode ? RID_IMG_DLGLIB_HC : RID_IMG_MODLIB_HC ) );
+ SetEntryBitmaps( pEntry, aImage, aImageHC );
}
else
{
@@ -173,8 +168,6 @@ void __EXPORT BasicTreeListBox::RequestingChilds( SvLBoxEntry* pEntry )
DBG_ERROR( "BasicTreeListBox::RequestingChilds: Unknown Type!" );
}
-
-
void __EXPORT BasicTreeListBox::ExpandedHdl()
{
SvLBoxEntry* pEntry = GetHdlEntry();
@@ -192,42 +185,21 @@ void __EXPORT BasicTreeListBox::ExpandedHdl()
}
}
-
-
-void BasicTreeListBox::ScanAllBasics()
+void BasicTreeListBox::ScanAllEntries()
{
- ScanBasic( SFX_APP()->GetBasicManager(), Application::GetAppName() );
+ ScanEntry( 0, LIBRARY_LOCATION_USER );
+ ScanEntry( 0, LIBRARY_LOCATION_SHARE );
SfxObjectShell* pDocShell = SfxObjectShell::GetFirst();
while ( pDocShell )
{
- if ( !pDocShell->ISA(BasicDocShell) )
- {
- // Nur, wenn es ein dazugehoeriges Fenster gibt, damit nicht die
- // Gecachten Docs, die nicht sichtbar sind ( Remot-Dokumente )
- BasicManager* pBasMgr = pDocShell->GetBasicManager();
- if ( ( pBasMgr != SFX_APP()->GetBasicManager() ) && ( SfxViewFrame::GetFirst( pDocShell ) ) )
- ScanBasic( pBasMgr, pDocShell->GetTitle( SFX_TITLE_FILENAME ) );
- }
+ // only if there's a corresponding window (not for remote documents)
+ if ( SfxViewFrame::GetFirst( pDocShell ) && !pDocShell->ISA( BasicDocShell ) )
+ ScanEntry( pDocShell, LIBRARY_LOCATION_DOCUMENT );
+
pDocShell = SfxObjectShell::GetNext( *pDocShell );
}
}
-/*
-void BasicTreeListBox::ExpandTree( BasicManager* pBasMgr )
-{
- ULONG nRootPos = 0;
- SvLBoxEntry* pRootEntry = GetEntry( nRootPos );
- // Falsch:
- while ( pRootEntry && (((BasicEntry*)pRootEntry->GetUserData())->GetType() != OBJTYPE_BASICMANAGER ) )
- pRootEntry = GetEntry( ++nRootPos );
-
- if ( pRootEntry )
- ExpandTree( pRootEntry );
-}
-*/
-
-
-
void BasicTreeListBox::ExpandTree( SvLBoxEntry* pRootEntry )
{
DBG_ASSERT( pRootEntry, "Keine Wurzel ?" );
@@ -239,26 +211,12 @@ void BasicTreeListBox::ExpandTree( SvLBoxEntry* pRootEntry )
{
// Nur die mit Childs, sonst waere ChildsOnDemand ueberfluessig
if ( !IsEntryProtected( pLibEntry ) && GetChildCount( pLibEntry ) )
- {
Expand( pLibEntry );
- // Im ObjectDlg nicht alles expandieren...
- if ( !( nMode & BROWSEMODE_PROPS ) )
- {
- SvLBoxEntry* pModOrObjEntry = FirstChild( pLibEntry );
- while ( pModOrObjEntry )
- {
- Expand( pModOrObjEntry );
- pModOrObjEntry = NextSibling( pModOrObjEntry );
- }
- }
- }
pLibEntry = NextSibling( pLibEntry );
}
}
-
-
void BasicTreeListBox::ExpandAllTrees()
{
ULONG nRootPos = 0;
@@ -270,84 +228,13 @@ void BasicTreeListBox::ExpandAllTrees()
}
}
-
-
-BYTE BasicTreeListBox::GetSelectedType()
-{
- SvLBoxEntry* pEntry = GetCurEntry();
-
- if ( !pEntry )
- return 0;
-
- USHORT nDepth = GetModel()->GetDepth( pEntry );
- if ( nDepth == 0 )
- return OBJTYPE_BASICMANAGER;
- else if ( nDepth == 1 )
- return OBJTYPE_LIB;
-
- return ((BasicEntry*)pEntry->GetUserData())->GetType();
-}
-
-
-
-BasicManager* BasicTreeListBox::GetSelectedSbx( String& rLib, String& rModOrObj, String& rSubOrPropOrSObj )
-{
- // Methode kann eigentlich weg, wenn nicht mehr in den Apps !!!
- // Die sollten dann auch direkt mit FindMethod() arbeiten!
- String aTmpStr;
- return GetSelectedSbx( rLib, rModOrObj, rSubOrPropOrSObj, aTmpStr );
-}
-
-
-
-
-BasicManager* BasicTreeListBox::GetSelectedSbx( String& rLib, String& rModOrObj, String& rSubOrPropOrSObj, String& rPropOrSubInSObj )
-{
- SvLBoxEntry* pCurEntry = GetCurEntry();
- return GetSbx( pCurEntry, rLib, rModOrObj, rSubOrPropOrSObj, rPropOrSubInSObj );
-}
-
-
-
-BasicManager* BasicTreeListBox::GetSbx( SvLBoxEntry* pEntry, String& rLib, String& rModOrObj, String& rSubOrPropOrSObj, String& rPropOrSubInSObj )
-{
- rLib.Erase();
- rModOrObj.Erase();
- rSubOrPropOrSObj.Erase();
- rPropOrSubInSObj.Erase();
- BasicManager* pBasMgr = 0;
-
- while ( pEntry )
- {
- USHORT nDepth = GetModel()->GetDepth( pEntry );
- switch ( nDepth )
- {
- case 4: rPropOrSubInSObj = GetEntryText( pEntry );
- break;
- case 3: rSubOrPropOrSObj = GetEntryText( pEntry );
- break;
- case 2: rModOrObj = GetEntryText( pEntry );
- break;
- case 1: rLib = GetEntryText( pEntry );
- break;
- case 0: pBasMgr = ((BasicManagerEntry*)pEntry->GetUserData())->GetBasicManager();
- break;
- }
- pEntry = GetParent( pEntry );
- }
- return pBasMgr;
-}
-
-
-
-
SbxVariable* BasicTreeListBox::FindVariable( SvLBoxEntry* pEntry )
{
if ( !pEntry )
return 0;
String aLib, aModOrObj, aSubOrPropOrSObj, aPropOrSubInSObj;
- BasicManager* pBasMgr = 0;
+ SfxObjectShell* pShell = 0;
EntryArray aEntries;
while ( pEntry )
@@ -358,19 +245,22 @@ SbxVariable* BasicTreeListBox::FindVariable( SvLBoxEntry* pEntry )
case 4:
case 3:
case 2:
- case 1: {
- aEntries.C40_INSERT( SvLBoxEntry, pEntry, 0 );
- break;
- }
- case 0: pBasMgr = ((BasicManagerEntry*)pEntry->GetUserData())->GetBasicManager();
- break;
+ case 1:
+ {
+ aEntries.C40_INSERT( SvLBoxEntry, pEntry, 0 );
+ }
+ break;
+ case 0:
+ {
+ pShell = ((BasicShellEntry*)pEntry->GetUserData())->GetShell();
+ }
+ break;
}
pEntry = GetParent( pEntry );
}
- DBG_ASSERT( pBasMgr, "Fuer den Eintrag keinen BasicManager gefunden!" );
SbxVariable* pVar = 0;
- if ( pBasMgr && aEntries.Count() )
+ if ( aEntries.Count() )
{
for ( USHORT n = 0; n < aEntries.Count(); n++ )
{
@@ -382,45 +272,36 @@ SbxVariable* BasicTreeListBox::FindVariable( SvLBoxEntry* pEntry )
switch ( pBE->GetType() )
{
- case OBJTYPE_LIB:
+ case OBJ_TYPE_LIBRARY:
{
- pVar = pBasMgr->GetLib( aName );
+ BasicManager* pBasMgr = pShell ? pShell->GetBasicManager() : SFX_APP()->GetBasicManager();
+ if ( pBasMgr )
+ pVar = pBasMgr->GetLib( aName );
}
break;
- case OBJTYPE_MODULE:
+ case OBJ_TYPE_MODULE:
{
DBG_ASSERT( pVar && pVar->IsA( TYPE(StarBASIC) ), "FindVariable: Ungueltiges Basic" );
pVar = ((StarBASIC*)pVar)->FindModule( aName );
}
break;
- case OBJTYPE_METHOD:
- //case OBJTYPE_METHODINOBJ: // sbx dialogs removed
+ case OBJ_TYPE_METHOD:
{
DBG_ASSERT( pVar && ( (pVar->IsA( TYPE(SbModule) )) || (pVar->IsA( TYPE(SbxObject) )) ), "FindVariable: Ungueltiges Modul/Objekt" );
pVar = ((SbxObject*)pVar)->GetMethods()->Find( aName, SbxCLASS_METHOD );
}
break;
- case OBJTYPE_OBJECT:
- case OBJTYPE_SUBOBJ:
+ case OBJ_TYPE_DIALOG:
{
// sbx dialogs removed
- /*
- DBG_ASSERT( pVar && pVar->IsA( TYPE(SbxObject) ), "FindVariable: Ungueltiges Objekt" );
- pVar = ((SbxObject*)pVar)->GetObjects()->Find( aName, SbxCLASS_OBJECT );
- */
}
break;
- case OBJTYPE_PROPERTY:
+ default:
{
- // sbx dialogs removed
- /*
- DBG_ASSERT( pVar && pVar->IsA( TYPE(SbxObject) ), "FindVariable: Ungueltiges Objekt(Property)" );
- pVar = ((SbxObject*)pVar)->GetProperties()->Find( aName, SbxCLASS_PROPERTY );
- */
+ DBG_ERROR( "FindVariable: Unbekannter Typ!" );
+ pVar = 0;
}
break;
- default: DBG_ERROR( "FindVariable: Unbekannter Typ!" );
- pVar = 0;
}
if ( !pVar )
break;
@@ -430,18 +311,18 @@ SbxVariable* BasicTreeListBox::FindVariable( SvLBoxEntry* pEntry )
return pVar;
}
-SbxItem BasicTreeListBox::GetSbxItem( SvLBoxEntry* pEntry )
+BasicEntryDescriptor BasicTreeListBox::GetEntryDescriptor( SvLBoxEntry* pEntry )
{
SfxObjectShell* pShell = 0;
+ LibraryLocation eLocation = LIBRARY_LOCATION_UNKNOWN;
String aLibName;
String aName;
String aMethodName;
- USHORT nType = BASICIDE_TYPE_UNKNOWN;
+ BasicEntryType eType = OBJ_TYPE_UNKNOWN;
if ( !pEntry )
- return SbxItem( SID_BASICIDE_ARG_SBX, pShell, aLibName, aName, aMethodName, nType );
+ return BasicEntryDescriptor( pShell, eLocation, aLibName, aName, aMethodName, eType );
- BasicManager* pBasMgr = 0;
EntryArray aEntries;
while ( pEntry )
@@ -452,25 +333,27 @@ SbxItem BasicTreeListBox::GetSbxItem( SvLBoxEntry* pEntry )
case 4:
case 3:
case 2:
- case 1: {
- aEntries.C40_INSERT( SvLBoxEntry, pEntry, 0 );
- break;
- }
- case 0: pBasMgr = ((BasicManagerEntry*)pEntry->GetUserData())->GetBasicManager();
- break;
+ case 1:
+ {
+ aEntries.C40_INSERT( SvLBoxEntry, pEntry, 0 );
+ }
+ break;
+ case 0:
+ {
+ BasicShellEntry* pBasicShellEntry = (BasicShellEntry*)pEntry->GetUserData();
+ if ( pBasicShellEntry )
+ {
+ pShell = pBasicShellEntry->GetShell();
+ eLocation = pBasicShellEntry->GetLocation();
+ eType = OBJ_TYPE_SHELL;
+ }
+ }
+ break;
}
pEntry = GetParent( pEntry );
}
- DBG_ASSERT( pBasMgr, "Fuer den Eintrag keinen BasicManager gefunden!" );
-
- if ( pBasMgr )
- {
- pShell = BasicIDE::FindDocShell( pBasMgr );
- nType = BASICIDE_TYPE_SHELL;
- }
-
- if ( pBasMgr && aEntries.Count() )
+ if ( aEntries.Count() )
{
for ( USHORT n = 0; n < aEntries.Count(); n++ )
{
@@ -481,63 +364,124 @@ SbxItem BasicTreeListBox::GetSbxItem( SvLBoxEntry* pEntry )
switch ( pBE->GetType() )
{
- case OBJTYPE_LIB:
+ case OBJ_TYPE_LIBRARY:
{
aLibName = GetEntryText( pLE );
- nType = BASICIDE_TYPE_LIBRARY;
+ eType = pBE->GetType();
}
break;
- case OBJTYPE_MODULE:
+ case OBJ_TYPE_MODULE:
{
aName = GetEntryText( pLE );
- nType = BASICIDE_TYPE_MODULE;
+ eType = pBE->GetType();
}
break;
- case OBJTYPE_METHOD:
+ case OBJ_TYPE_METHOD:
{
aMethodName = GetEntryText( pLE );
- nType = BASICIDE_TYPE_METHOD;
+ eType = pBE->GetType();
}
break;
- case OBJTYPE_OBJECT:
+ case OBJ_TYPE_DIALOG:
{
aName = GetEntryText( pLE );
- nType = BASICIDE_TYPE_DIALOG;
+ eType = pBE->GetType();
+ }
+ break;
+ default:
+ {
+ DBG_ERROR( "GetEntryDescriptor: Unbekannter Typ!" );
+ eType = OBJ_TYPE_UNKNOWN;
}
break;
- default: DBG_ERROR( "GetSbxItem: Unbekannter Typ!" );
- nType = BASICIDE_TYPE_UNKNOWN;
}
- if ( nType == BASICIDE_TYPE_UNKNOWN )
+ if ( eType == OBJ_TYPE_UNKNOWN )
break;
}
}
- return SbxItem( SID_BASICIDE_ARG_SBX, pShell, aLibName, aName, aMethodName, nType );
+ return BasicEntryDescriptor( pShell, eLocation, aLibName, aName, aMethodName, eType );
}
-
-
-SbxObject* BasicTreeListBox::FindObject( SvLBoxEntry* pEntry )
+USHORT BasicTreeListBox::ConvertType( BasicEntryType eType )
{
- SbxVariable* pVar = FindVariable( pEntry );
- if ( pVar && pVar->IsA( TYPE(SbxObject) ) )
- return (SbxObject*)pVar;
- return 0;
-}
+ USHORT nType = OBJ_TYPE_UNKNOWN;
+ switch ( eType )
+ {
+ case OBJ_TYPE_SHELL:
+ {
+ nType = BASICIDE_TYPE_SHELL;
+ }
+ break;
+ case OBJ_TYPE_LIBRARY:
+ {
+ nType = BASICIDE_TYPE_LIBRARY;
+ }
+ break;
+ case OBJ_TYPE_MODULE:
+ {
+ nType = BASICIDE_TYPE_MODULE;
+ }
+ break;
+ case OBJ_TYPE_DIALOG:
+ {
+ nType = BASICIDE_TYPE_DIALOG;
+ }
+ break;
+ case OBJ_TYPE_METHOD:
+ {
+ nType = BASICIDE_TYPE_METHOD;
+ }
+ break;
+ }
+ return nType;
+}
-SbMethod* BasicTreeListBox::FindMethod( SvLBoxEntry* pEntry )
+bool BasicTreeListBox::IsValidEntry( SvLBoxEntry* pEntry )
{
- SbxVariable* pVar = FindVariable( pEntry );
- if ( pVar && pVar->IsA( TYPE(SbMethod) ) )
- return (SbMethod*)pVar;
- return 0;
-}
+ bool bIsValid = false;
+ BasicEntryDescriptor aDesc( GetEntryDescriptor( pEntry ) );
+ SfxObjectShell* pShell( aDesc.GetShell() );
+ String aLibName( aDesc.GetLibName() );
+ String aName( aDesc.GetName() );
+ String aMethodName( aDesc.GetMethodName() );
+ BasicEntryType eType( aDesc.GetType() );
+ switch ( eType )
+ {
+ case OBJ_TYPE_SHELL:
+ {
+ bIsValid = BasicIDE::HasShell( pShell );
+ }
+ break;
+ case OBJ_TYPE_LIBRARY:
+ {
+ bIsValid = BasicIDE::HasModuleLibrary( pShell, aLibName ) || BasicIDE::HasDialogLibrary( pShell, aLibName );
+ }
+ break;
+ case OBJ_TYPE_MODULE:
+ {
+ bIsValid = BasicIDE::HasModule( pShell, aLibName, aName );
+ }
+ break;
+ case OBJ_TYPE_DIALOG:
+ {
+ bIsValid = BasicIDE::HasDialog( pShell, aLibName, aName );
+ }
+ break;
+ case OBJ_TYPE_METHOD:
+ {
+ bIsValid = BasicIDE::HasMethod( pShell, aLibName, aName, aMethodName );
+ }
+ break;
+ }
+
+ return bIsValid;
+}
SbModule* BasicTreeListBox::FindModule( SvLBoxEntry* pEntry )
{
@@ -547,36 +491,21 @@ SbModule* BasicTreeListBox::FindModule( SvLBoxEntry* pEntry )
return 0;
}
-
-
-SvLBoxEntry* BasicTreeListBox::FindLibEntry( StarBASIC* pLib )
+SvLBoxEntry* BasicTreeListBox::FindRootEntry( SfxObjectShell* pShell, LibraryLocation eLocation )
{
- if ( !pLib )
- return 0;
-
ULONG nRootPos = 0;
SvLBoxEntry* pRootEntry = GetEntry( nRootPos );
while ( pRootEntry )
{
- BasicManager* pBasMgr = ((BasicManagerEntry*)pRootEntry->GetUserData())->GetBasicManager();
- DBG_ASSERT( pBasMgr, "Kein BasicManager?" );
- SvLBoxEntry* pLibEntry = FirstChild( pRootEntry );
- while ( pLibEntry )
- {
- DBG_ASSERT( (((BasicEntry*)pLibEntry->GetUserData())->GetType() == OBJTYPE_LIB ), "Kein Libeintrag?" );
- StarBASIC* pL = pBasMgr->GetLib( GetEntryText( pLibEntry ) );
- if ( pL == pLib )
- return pLibEntry;
-
- pLibEntry = NextSibling( pLibEntry );
- }
+ DBG_ASSERT( (((BasicEntry*)pRootEntry->GetUserData())->GetType() == OBJ_TYPE_SHELL ), "Kein Shelleintrag?" );
+ BasicShellEntry* pBasicShellEntry = (BasicShellEntry*)pRootEntry->GetUserData();
+ if ( pBasicShellEntry && pBasicShellEntry->GetShell() == pShell && pBasicShellEntry->GetLocation() == eLocation )
+ return pRootEntry;
pRootEntry = GetEntry( ++nRootPos );
}
return 0;
}
-
-
String CreateMgrAndLibStr( const String& rMgrName, const String& rLibName )
{
String aName( '[' );
@@ -585,31 +514,3 @@ String CreateMgrAndLibStr( const String& rMgrName, const String& rLibName )
aName += rLibName;
return aName;
}
-
-
-
-String GetMgrFromMgrAndLib( const String& rMgrAndLib )
-{
- // Format: [XXXXXX].Lib
- DBG_ASSERT( rMgrAndLib.GetTokenCount( '.' ) >= 2, "BasMgrAndLib ungueltig! (.)" );
- DBG_ASSERT( rMgrAndLib.GetTokenCount( ']' ) >= 2, "BasMgrAndLib ungueltig! (])" );
- String aLib( rMgrAndLib.GetToken(
- rMgrAndLib.GetTokenCount( '.' ) - 1, '.' ) );
- String aBasMgrAndLib( rMgrAndLib );
- aBasMgrAndLib.Erase( aBasMgrAndLib.Len() - ( aLib.Len() + 1 ) );
- DBG_ASSERT( ( aBasMgrAndLib.Len() > 2 ) && ( aBasMgrAndLib.GetChar( 0 ) == '[' ) && ( aBasMgrAndLib.GetChar( aBasMgrAndLib.Len() - 1 ) == ']' ), "BasMgrAndLib ungueltig! ([...])" );
- String aBasMgr( aBasMgrAndLib, 1, (USHORT)(aBasMgrAndLib.Len()-2) );
- return aBasMgr;
-}
-
-
-
-String GetLibFromMgrAndLib( const String& rMgrAndLib )
-{
- // Format: [XXXXXX].Lib
- DBG_ASSERT( rMgrAndLib.GetTokenCount( '.' ) >= 2, "BasMgrAndLib ungueltig! (.)" );
- DBG_ASSERT( rMgrAndLib.GetTokenCount( ']' ) >= 2, "BasMgrAndLib ungueltig! (])" );
- String aLib( rMgrAndLib.GetToken(
- rMgrAndLib.GetTokenCount( '.' ) - 1, '.' ) );
- return aLib;
-}