Skip to content

C
core
Kaydet (Commit) 66a1d406 authored tarafından Andreas Mantke's avatar Andreas Mantke
Dosyalara gözat
Seçenekler

Translation of comments to English

üst 90352e2b
Hide whitespace changes
Inline Side-by-side
Showing with 61 additions and 62 deletions
basic/source/sbx/sbxobj.cxx
Dosyayı görüntüle @ 66a1d406
......@@ -79,11 +79,11 @@ SbxObject& SbxObject::operator=( const SbxObject& r )
pMethods = new SbxArray;
pProps = new SbxArray;
pObjs = new SbxArray( SbxOBJECT );
// Die Arrays werden kopiert, die Inhalte uebernommen
// The arrays were copied, the content taken over
*pMethods = *r.pMethods;
*pProps = *r.pProps;
*pObjs = *r.pObjs;
// Da die Variablen uebernommen wurden, ist dies OK
// Because the variables were taken over, this is OK
pDfltProp = r.pDfltProp;
SetName( r.GetName() );
SetFlags( r.GetFlags() );
......@@ -99,7 +99,7 @@ static void CheckParentsOnDelete( SbxObject* pObj, SbxArray* p )
SbxVariableRef& rRef = p->GetRef( i );
if( rRef->IsBroadcaster() )
pObj->EndListening( rRef->GetBroadcaster(), TRUE );
// Hat das Element mehr als eine Referenz und noch einen Listener?
// Did the element have more then one reference and still a Listener?
if( rRef->GetRefCount() > 1 )
{
rRef->SetParent( NULL );
......@@ -189,16 +189,16 @@ SbxVariable* SbxObject::FindUserData( UINT32 nData )
pRes = pProps->FindUserData( nData );
if( !pRes )
pRes = pObjs->FindUserData( nData );
// Search in den Parents?
// Search in the parents?
if( !pRes && IsSet( SBX_GBLSEARCH ) )
{
SbxObject* pCur = this;
while( !pRes && pCur->pParent )
{
// Ich selbst bin schon durchsucht worden!
// I myself was already searched through!
USHORT nOwn = pCur->GetFlags();
pCur->ResetFlag( SBX_EXTSEARCH );
// Ich suche bereits global!
// I search already global!
USHORT nPar = pCur->pParent->GetFlags();
pCur->pParent->ResetFlag( SBX_GBLSEARCH );
pRes = pCur->pParent->FindUserData( nData );
......@@ -251,21 +251,21 @@ SbxVariable* SbxObject::Find( const XubString& rName, SbxClassType t )
if( pArray )
pRes = pArray->Find( rName, t );
}
// Extended Search im Objekt-Array?
// Fuer Objekte und DontCare ist das Objektarray bereits
// durchsucht worden
// ExtendedsSearch in the Object-Array?
// For objects and DontCare is the Objektarray already
// searched through
if( !pRes && ( t == SbxCLASS_METHOD || t == SbxCLASS_PROPERTY ) )
pRes = pObjs->Find( rName, t );
// Search in den Parents?
// Search in the parents?
if( !pRes && IsSet( SBX_GBLSEARCH ) )
{
SbxObject* pCur = this;
while( !pRes && pCur->pParent )
{
// Ich selbst bin schon durchsucht worden!
// I myself was already searched through!
USHORT nOwn = pCur->GetFlags();
pCur->ResetFlag( SBX_EXTSEARCH );
// Ich suche bereits global!
// I search already global!
USHORT nPar = pCur->pParent->GetFlags();
pCur->pParent->ResetFlag( SBX_GBLSEARCH );
pRes = pCur->pParent->Find( rName, t );
......@@ -287,16 +287,16 @@ SbxVariable* SbxObject::Find( const XubString& rName, SbxClassType t )
return pRes;
}
// Kurzform: Die Parent-Kette wird durchsucht
// Das ganze rekursiv, da Call() ueberladen sein kann
// Qualified Names sind zugelassen
// Abbreviated version: The parent-string will be searched through
// The whole thing recursive, because Call() might be overloaded
// Qualified names are allowed
BOOL SbxObject::Call( const XubString& rName, SbxArray* pParam )
{
SbxVariable* pMeth = FindQualified( rName, SbxCLASS_DONTCARE);
if( pMeth && pMeth->ISA(SbxMethod) )
{
// FindQualified() koennte schon zugeschlagen haben!
// FindQualified() might have been stroked!
if( pParam )
pMeth->SetParameters( pParam );
pMeth->Broadcast( SBX_HINT_DATAWANTED );
......@@ -340,9 +340,9 @@ void SbxObject::SetDfltProperty( SbxProperty* p )
SetModified( TRUE );
}
// Suchen einer bereits vorhandenen Variablen. Falls sie gefunden wurde,
// wird der Index gesetzt, sonst wird der Count des Arrays geliefert.
// In jedem Fall wird das korrekte Array geliefert.
// Search of a already available variable. If she was located,
// the index will be set, elsewise will be delivered the Count of the Array.
// In any case it will be delivered the correct Array.
SbxArray* SbxObject::FindVar( SbxVariable* pVar, USHORT& nArrayIdx )
{
......@@ -359,7 +359,7 @@ SbxArray* SbxObject::FindVar( SbxVariable* pVar, USHORT& nArrayIdx )
if( pArray )
{
nArrayIdx = pArray->Count();
// ist die Variable per Name vorhanden?
// Is the variable per name available?
pArray->ResetFlag( SBX_EXTSEARCH );
SbxVariable* pOld = pArray->Find( pVar->GetName(), pVar->GetClass() );
if( pOld )
......@@ -375,12 +375,12 @@ SbxArray* SbxObject::FindVar( SbxVariable* pVar, USHORT& nArrayIdx )
return pArray;
}
// Falls ein neues Objekt eingerichtet wird, wird es, falls es bereits
// eines mit diesem Namen gibt, indiziert.
// If a new object will be established, this object will be indexed,
// if an object of this name exists already.
SbxVariable* SbxObject::Make( const XubString& rName, SbxClassType ct, SbxDataType dt )
{
// Ist das Objekt bereits vorhanden?
// Is the object already available?
SbxArray* pArray = NULL;
switch( ct )
{
......@@ -393,13 +393,13 @@ SbxVariable* SbxObject::Make( const XubString& rName, SbxClassType ct, SbxDataTy
}
if( !pArray )
return NULL;
// Collections duerfen gleichnamige Objekte enthalten
// Collections may contain objects of the same name
if( !( ct == SbxCLASS_OBJECT && ISA(SbxCollection) ) )
{
SbxVariable* pRes = pArray->Find( rName, ct );
if( pRes )
{
/* Wegen haeufiger Probleme (z.B. #67000) erstmal ganz raus
/* Due to often problems (e.g. #67000) first of all completly out
#ifdef DBG_UTIL
if( pRes->GetHashCode() != nNameHash
&& pRes->GetHashCode() != nParentHash )
......@@ -434,7 +434,7 @@ SbxVariable* SbxObject::Make( const XubString& rName, SbxClassType ct, SbxDataTy
pVar->SetParent( this );
pArray->Put( pVar, pArray->Count() );
SetModified( TRUE );
// Das Objekt lauscht immer
// The object listen always
StartListening( pVar->GetBroadcaster(), TRUE );
Broadcast( SBX_HINT_OBJECTCHANGED );
return pVar;
......@@ -442,13 +442,13 @@ SbxVariable* SbxObject::Make( const XubString& rName, SbxClassType ct, SbxDataTy
SbxObject* SbxObject::MakeObject( const XubString& rName, const XubString& rClass )
{
// Ist das Objekt bereits vorhanden?
// Is the object already available?
if( !ISA(SbxCollection) )
{
SbxVariable* pRes = pObjs->Find( rName, SbxCLASS_OBJECT );
if( pRes )
{
/* Wegen haeufiger Probleme (z.B. #67000) erstmal ganz raus
/* Due to often problems (e.g. #67000) first of all completly out
#ifdef DBG_UTIL
if( pRes->GetHashCode() != nNameHash
&& pRes->GetHashCode() != nParentHash )
......@@ -472,7 +472,7 @@ SbxObject* SbxObject::MakeObject( const XubString& rName, const XubString& rClas
pVar->SetParent( this );
pObjs->Put( pVar, pObjs->Count() );
SetModified( TRUE );
// Das Objekt lauscht immer
// The object listen always
StartListening( pVar->GetBroadcaster(), TRUE );
Broadcast( SBX_HINT_OBJECTCHANGED );
}
......@@ -485,21 +485,21 @@ void SbxObject::Insert( SbxVariable* pVar )
SbxArray* pArray = FindVar( pVar, nIdx );
if( pArray )
{
// Hinein damit. Man sollte allerdings auf die Pointer aufpassen!
// Into with it. But you should pay attention at the Pointer!
if( nIdx < pArray->Count() )
{
// dann gibt es dieses Element bereits
// Bei Collections duerfen gleichnamige Objekte hinein
// Then this element exists already
// There are objects of the same name allowed at collections
if( pArray == pObjs && ISA(SbxCollection) )
nIdx = pArray->Count();
else
{
SbxVariable* pOld = pArray->Get( nIdx );
// schon drin: ueberschreiben
// already inside: overwrite
if( pOld == pVar )
return;
/* Wegen haeufiger Probleme (z.B. #67000) erstmal ganz raus
/* Due to often problems (e.g. #67000) first of all completly out
#ifdef DBG_UTIL
if( pOld->GetHashCode() != nNameHash
&& pOld->GetHashCode() != nParentHash )
......@@ -543,8 +543,8 @@ void SbxObject::Insert( SbxVariable* pVar )
}
}
// AB 23.4.1997, Optimierung, Einfuegen ohne Ueberpruefung auf doppelte
// Eintraege und ohne Broadcasts, wird nur in SO2/auto.cxx genutzt
// From 1997-04-23, Optimisation, Insertion without checking about
// double entry and without broadcasts, will only be used in SO2/auto.cxx
void SbxObject::QuickInsert( SbxVariable* pVar )
{
SbxArray* pArray = NULL;
......@@ -583,7 +583,7 @@ void SbxObject::QuickInsert( SbxVariable* pVar )
}
}
// AB 23.3.1997, Spezial-Methode, gleichnamige Controls zulassen
// From 1997-03-23, special method, allow controls of the same name
void SbxObject::VCPtrInsert( SbxVariable* pVar )
{
SbxArray* pArray = NULL;
......@@ -641,11 +641,11 @@ void SbxObject::Remove( SbxVariable* pVar )
}
}
// AB 23.3.1997, Loeschen per Pointer fuer Controls (doppelte Namen!)
// From 1997-03-23, cleanup per Pointer for Controls (double names!)
void SbxObject::VCPtrRemove( SbxVariable* pVar )
{
USHORT nIdx;
// Neu FindVar-Methode, sonst identisch mit normaler Methode
// New FindVar-Method, otherwise identical with the normal method
SbxArray* pArray = VCPtrFindVar( pVar, nIdx );
if( pArray && nIdx < pArray->Count() )
{
......@@ -662,7 +662,7 @@ void SbxObject::VCPtrRemove( SbxVariable* pVar )
}
}
// AB 23.3.1997, Zugehoerige Spezial-Methode, nur ueber Pointer suchen
// From 1997-03-23, associated special method, search only by Pointer
SbxArray* SbxObject::VCPtrFindVar( SbxVariable* pVar, USHORT& nArrayIdx )
{
SbxArray* pArray = NULL;
......@@ -730,19 +730,19 @@ static BOOL LoadArray( SvStream& rStrm, SbxObject* pThis, SbxArray* pArray )
return TRUE;
}
// Der Load eines Objekts ist additiv!
// The load of an object is additive!
BOOL SbxObject::LoadData( SvStream& rStrm, USHORT nVer )
{
// Hilfe fuer das Einlesen alter Objekte: einfach TRUE zurueck,
// LoadPrivateData() muss Default-Zustand herstellen
// Help for the read in of old objects: just TRUE back,
// LoadPrivateData() had to set the default status up
if( !nVer )
return TRUE;
pDfltProp = NULL;
if( !SbxVariable::LoadData( rStrm, nVer ) )
return FALSE;
// Wenn kein fremdes Objekt enthalten ist, uns selbst eintragen
// If it contains no alien object, insert ourselves
if( aData.eType == SbxOBJECT && !aData.pObj )
aData.pObj = this;
sal_uInt32 nSize;
......@@ -762,7 +762,7 @@ BOOL SbxObject::LoadData( SvStream& rStrm, USHORT nVer )
|| !LoadArray( rStrm, this, pProps )
|| !LoadArray( rStrm, this, pObjs ) )
return FALSE;
// Properties setzen
// Set properties
if( aDfltProp.Len() )
pDfltProp = (SbxProperty*) pProps->Find( aDfltProp, SbxCLASS_PROPERTY );
SetModified( FALSE );
......@@ -799,7 +799,7 @@ BOOL SbxObject::StoreData( SvStream& rStrm ) const
XubString SbxObject::GenerateSource( const XubString &rLinePrefix,
const SbxObject* )
{
// Properties in einem String einsammeln
// Collect the properties in a String
XubString aSource;
SbxArrayRef xProps( GetProperties() );
bool bLineFeed = false;
......@@ -811,7 +811,7 @@ XubString SbxObject::GenerateSource( const XubString &rLinePrefix,
&& !( xProp->GetHashCode() == nNameHash
&& aPropName.EqualsIgnoreCaseAscii( pNameProp ) ) )
{
// ausser vor dem ersten Property immer einen Umbruch einfuegen
// Insert a break except in front of the first property
if ( bLineFeed )
aSource.AppendAscii( "\n" );
else
......@@ -822,17 +822,17 @@ XubString SbxObject::GenerateSource( const XubString &rLinePrefix,
aSource += aPropName;
aSource.AppendAscii( " = " );
// den Property-Wert textuell darstellen
// Display the property value textual
switch ( xProp->GetType() )
{
case SbxEMPTY:
case SbxNULL:
// kein Wert
// no value
break;
case SbxSTRING:
{
// Strings in Anf"uhrungszeichen
// Strings in quotation mark
aSource.AppendAscii( "\"" );
aSource += xProp->GetString();
aSource.AppendAscii( "\"" );
......@@ -841,7 +841,7 @@ XubString SbxObject::GenerateSource( const XubString &rLinePrefix,
default:
{
// sonstiges wie z.B. Zahlen direkt
// miscellaneous, such as e.g.numerary directly
aSource += xProp->GetString();
break;
}
......@@ -890,7 +890,7 @@ static BOOL CollectAttrs( const SbxBase* p, XubString& rRes )
void SbxObject::Dump( SvStream& rStrm, BOOL bFill )
{
// Einr"uckung
// Shifting
static USHORT nLevel = 0;
if ( nLevel > 10 )
{
......@@ -902,11 +902,11 @@ void SbxObject::Dump( SvStream& rStrm, BOOL bFill )
for ( USHORT n = 1; n < nLevel; ++n )
aIndent.AppendAscii( " " );
// ggf. Objekt vervollst"andigen
// if necessary complete the object
if ( bFill )
GetAll( SbxCLASS_DONTCARE );
// Daten des Objekts selbst ausgeben
// Output the data of the object itself
ByteString aNameStr( (const UniString&)GetName(), RTL_TEXTENCODING_ASCII_US );
ByteString aClassNameStr( (const UniString&)aClassName, RTL_TEXTENCODING_ASCII_US );
rStrm << "Object( "
......@@ -955,7 +955,7 @@ void SbxObject::Dump( SvStream& rStrm, BOOL bFill )
aLine.AppendAscii( " !! Not a Method !!" );
rStrm.WriteByteString( aLine, RTL_TEXTENCODING_ASCII_US );
// bei Object-Methods auch das Object ausgeben
// Output also the object at object-methods
if ( pVar->GetValues_Impl().eType == SbxOBJECT &&
pVar->GetValues_Impl().pObj &&
pVar->GetValues_Impl().pObj != this &&
......@@ -988,7 +988,7 @@ void SbxObject::Dump( SvStream& rStrm, BOOL bFill )
aLine.AppendAscii( " !! Not a Property !!" );
rStrm.WriteByteString( aLine, RTL_TEXTENCODING_ASCII_US );
// bei Object-Properties auch das Object ausgeben
// output also the object at object properties
if ( pVar->GetValues_Impl().eType == SbxOBJECT &&
pVar->GetValues_Impl().pObj &&
pVar->GetValues_Impl().pObj != this &&
......@@ -1051,14 +1051,13 @@ SbxClassType SbxProperty::GetClass() const
void SbxObject::GarbageCollection( ULONG /*nObjects*/ )
/* [Beschreibung]
/* [Description]
Diese statische Methode durchsucht die n"achsten 'nObjects' der zur Zeit
existierenden <SbxObject>-Instanzen nach zyklischen Referenzen, die sich
nur noch selbst am Leben erhalten. Ist 'nObjects==0', dann werden
alle existierenden durchsucht.
This statistic method browse the next 'nObjects' of the currently existing
<SbxObject>-Instances for cyclic references, which keep only themselfes alive
If there is 'nObjects==0', then all existing will be browsed.
zur Zeit nur implementiert: Object -> Parent-Property -> Parent -> Object
currently only implemented: Object -> Parent-Property -> Parent -> Object
*/
{
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment