1*b1cdbd2cSJim Jagielski /**************************************************************
2*b1cdbd2cSJim Jagielski *
3*b1cdbd2cSJim Jagielski * Licensed to the Apache Software Foundation (ASF) under one
4*b1cdbd2cSJim Jagielski * or more contributor license agreements. See the NOTICE file
5*b1cdbd2cSJim Jagielski * distributed with this work for additional information
6*b1cdbd2cSJim Jagielski * regarding copyright ownership. The ASF licenses this file
7*b1cdbd2cSJim Jagielski * to you under the Apache License, Version 2.0 (the
8*b1cdbd2cSJim Jagielski * "License"); you may not use this file except in compliance
9*b1cdbd2cSJim Jagielski * with the License. You may obtain a copy of the License at
10*b1cdbd2cSJim Jagielski *
11*b1cdbd2cSJim Jagielski * http://www.apache.org/licenses/LICENSE-2.0
12*b1cdbd2cSJim Jagielski *
13*b1cdbd2cSJim Jagielski * Unless required by applicable law or agreed to in writing,
14*b1cdbd2cSJim Jagielski * software distributed under the License is distributed on an
15*b1cdbd2cSJim Jagielski * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
16*b1cdbd2cSJim Jagielski * KIND, either express or implied. See the License for the
17*b1cdbd2cSJim Jagielski * specific language governing permissions and limitations
18*b1cdbd2cSJim Jagielski * under the License.
19*b1cdbd2cSJim Jagielski *
20*b1cdbd2cSJim Jagielski *************************************************************/
21*b1cdbd2cSJim Jagielski
22*b1cdbd2cSJim Jagielski
23*b1cdbd2cSJim Jagielski
24*b1cdbd2cSJim Jagielski // MARKER(update_precomp.py): autogen include statement, do not remove
25*b1cdbd2cSJim Jagielski #include "precompiled_basic.hxx"
26*b1cdbd2cSJim Jagielski
27*b1cdbd2cSJim Jagielski
28*b1cdbd2cSJim Jagielski #include <tools/stream.hxx>
29*b1cdbd2cSJim Jagielski #include "svl/brdcst.hxx"
30*b1cdbd2cSJim Jagielski
31*b1cdbd2cSJim Jagielski #include <basic/sbx.hxx>
32*b1cdbd2cSJim Jagielski #include <basic/sbxbase.hxx>
33*b1cdbd2cSJim Jagielski #include "sbxres.hxx"
34*b1cdbd2cSJim Jagielski #include "sbxconv.hxx"
35*b1cdbd2cSJim Jagielski #include <math.h>
36*b1cdbd2cSJim Jagielski #include <ctype.h>
37*b1cdbd2cSJim Jagielski
38*b1cdbd2cSJim Jagielski #include "com/sun/star/uno/XInterface.hpp"
39*b1cdbd2cSJim Jagielski using namespace com::sun::star::uno;
40*b1cdbd2cSJim Jagielski
41*b1cdbd2cSJim Jagielski ///////////////////////////// SbxVariable //////////////////////////////
42*b1cdbd2cSJim Jagielski
43*b1cdbd2cSJim Jagielski TYPEINIT1(SbxVariable,SbxValue)
44*b1cdbd2cSJim Jagielski TYPEINIT1(SbxHint,SfxSimpleHint)
45*b1cdbd2cSJim Jagielski
46*b1cdbd2cSJim Jagielski extern sal_uInt32 nVarCreator; // in SBXBASE.CXX, fuer LoadData()
47*b1cdbd2cSJim Jagielski #ifdef DBG_UTIL
48*b1cdbd2cSJim Jagielski static sal_uIntPtr nVar = 0;
49*b1cdbd2cSJim Jagielski #endif
50*b1cdbd2cSJim Jagielski
51*b1cdbd2cSJim Jagielski ///////////////////////////// SbxVariableImpl ////////////////////////////
52*b1cdbd2cSJim Jagielski
53*b1cdbd2cSJim Jagielski class SbxVariableImpl
54*b1cdbd2cSJim Jagielski {
55*b1cdbd2cSJim Jagielski friend class SbxVariable;
56*b1cdbd2cSJim Jagielski String m_aDeclareClassName;
57*b1cdbd2cSJim Jagielski Reference< XInterface > m_xComListener;
58*b1cdbd2cSJim Jagielski StarBASIC* m_pComListenerParentBasic;
59*b1cdbd2cSJim Jagielski
SbxVariableImpl(void)60*b1cdbd2cSJim Jagielski SbxVariableImpl( void )
61*b1cdbd2cSJim Jagielski : m_pComListenerParentBasic( NULL )
62*b1cdbd2cSJim Jagielski {}
SbxVariableImpl(const SbxVariableImpl & r)63*b1cdbd2cSJim Jagielski SbxVariableImpl( const SbxVariableImpl& r )
64*b1cdbd2cSJim Jagielski : m_aDeclareClassName( r.m_aDeclareClassName )
65*b1cdbd2cSJim Jagielski , m_xComListener( r.m_xComListener )
66*b1cdbd2cSJim Jagielski , m_pComListenerParentBasic( r.m_pComListenerParentBasic )
67*b1cdbd2cSJim Jagielski {
68*b1cdbd2cSJim Jagielski }
69*b1cdbd2cSJim Jagielski };
70*b1cdbd2cSJim Jagielski
71*b1cdbd2cSJim Jagielski
72*b1cdbd2cSJim Jagielski ///////////////////////////// Konstruktoren //////////////////////////////
73*b1cdbd2cSJim Jagielski
SbxVariable()74*b1cdbd2cSJim Jagielski SbxVariable::SbxVariable() : SbxValue()
75*b1cdbd2cSJim Jagielski {
76*b1cdbd2cSJim Jagielski mpSbxVariableImpl = NULL;
77*b1cdbd2cSJim Jagielski pCst = NULL;
78*b1cdbd2cSJim Jagielski pParent = NULL;
79*b1cdbd2cSJim Jagielski nUserData = 0;
80*b1cdbd2cSJim Jagielski nHash = 0;
81*b1cdbd2cSJim Jagielski #ifdef DBG_UTIL
82*b1cdbd2cSJim Jagielski DbgOutf( "SbxVariable::Ctor %lx=%ld", (void*)this, ++nVar );
83*b1cdbd2cSJim Jagielski GetSbxData_Impl()->aVars.Insert( this, LIST_APPEND );
84*b1cdbd2cSJim Jagielski #endif
85*b1cdbd2cSJim Jagielski }
86*b1cdbd2cSJim Jagielski
87*b1cdbd2cSJim Jagielski void registerComListenerVariableForBasic( SbxVariable* pVar, StarBASIC* pBasic );
88*b1cdbd2cSJim Jagielski
SbxVariable(const SbxVariable & r)89*b1cdbd2cSJim Jagielski SbxVariable::SbxVariable( const SbxVariable& r )
90*b1cdbd2cSJim Jagielski : SvRefBase( r ), SbxValue( r ), mpPar( r.mpPar ), pInfo( r.pInfo )
91*b1cdbd2cSJim Jagielski {
92*b1cdbd2cSJim Jagielski mpSbxVariableImpl = NULL;
93*b1cdbd2cSJim Jagielski if( r.mpSbxVariableImpl != NULL )
94*b1cdbd2cSJim Jagielski {
95*b1cdbd2cSJim Jagielski mpSbxVariableImpl = new SbxVariableImpl( *r.mpSbxVariableImpl );
96*b1cdbd2cSJim Jagielski if( mpSbxVariableImpl->m_xComListener.is() )
97*b1cdbd2cSJim Jagielski registerComListenerVariableForBasic( this, mpSbxVariableImpl->m_pComListenerParentBasic );
98*b1cdbd2cSJim Jagielski }
99*b1cdbd2cSJim Jagielski pCst = NULL;
100*b1cdbd2cSJim Jagielski if( r.CanRead() )
101*b1cdbd2cSJim Jagielski {
102*b1cdbd2cSJim Jagielski pParent = r.pParent;
103*b1cdbd2cSJim Jagielski nUserData = r.nUserData;
104*b1cdbd2cSJim Jagielski maName = r.maName;
105*b1cdbd2cSJim Jagielski nHash = r.nHash;
106*b1cdbd2cSJim Jagielski }
107*b1cdbd2cSJim Jagielski else
108*b1cdbd2cSJim Jagielski {
109*b1cdbd2cSJim Jagielski pParent = NULL;
110*b1cdbd2cSJim Jagielski nUserData = 0;
111*b1cdbd2cSJim Jagielski nHash = 0;
112*b1cdbd2cSJim Jagielski }
113*b1cdbd2cSJim Jagielski #ifdef DBG_UTIL
114*b1cdbd2cSJim Jagielski static sal_Char const aCellsStr[] = "Cells";
115*b1cdbd2cSJim Jagielski if ( maName.EqualsAscii( aCellsStr ) )
116*b1cdbd2cSJim Jagielski maName.AssignAscii( aCellsStr, sizeof( aCellsStr )-1 );
117*b1cdbd2cSJim Jagielski DbgOutf( "SbxVariable::Ctor %lx=%ld", (void*)this, ++nVar );
118*b1cdbd2cSJim Jagielski GetSbxData_Impl()->aVars.Insert( this, LIST_APPEND );
119*b1cdbd2cSJim Jagielski #endif
120*b1cdbd2cSJim Jagielski }
121*b1cdbd2cSJim Jagielski
SbxVariable(SbxDataType t,void * p)122*b1cdbd2cSJim Jagielski SbxVariable::SbxVariable( SbxDataType t, void* p ) : SbxValue( t, p )
123*b1cdbd2cSJim Jagielski {
124*b1cdbd2cSJim Jagielski mpSbxVariableImpl = NULL;
125*b1cdbd2cSJim Jagielski pCst = NULL;
126*b1cdbd2cSJim Jagielski pParent = NULL;
127*b1cdbd2cSJim Jagielski nUserData = 0;
128*b1cdbd2cSJim Jagielski nHash = 0;
129*b1cdbd2cSJim Jagielski #ifdef DBG_UTIL
130*b1cdbd2cSJim Jagielski DbgOutf( "SbxVariable::Ctor %lx=%ld", (void*)this, ++nVar );
131*b1cdbd2cSJim Jagielski GetSbxData_Impl()->aVars.Insert( this, LIST_APPEND );
132*b1cdbd2cSJim Jagielski #endif
133*b1cdbd2cSJim Jagielski }
134*b1cdbd2cSJim Jagielski
135*b1cdbd2cSJim Jagielski void removeDimAsNewRecoverItem( SbxVariable* pVar );
136*b1cdbd2cSJim Jagielski
~SbxVariable()137*b1cdbd2cSJim Jagielski SbxVariable::~SbxVariable()
138*b1cdbd2cSJim Jagielski {
139*b1cdbd2cSJim Jagielski #ifdef DBG_UTIL
140*b1cdbd2cSJim Jagielski ByteString aBStr( (const UniString&)maName, RTL_TEXTENCODING_ASCII_US );
141*b1cdbd2cSJim Jagielski DbgOutf( "SbxVariable::Dtor %lx (%s)", (void*)this, aBStr.GetBuffer() );
142*b1cdbd2cSJim Jagielski static sal_Char const aCellsStr[] = "Cells";
143*b1cdbd2cSJim Jagielski if ( maName.EqualsAscii( aCellsStr ) )
144*b1cdbd2cSJim Jagielski maName.AssignAscii( aCellsStr, sizeof( aCellsStr )-1 );
145*b1cdbd2cSJim Jagielski GetSbxData_Impl()->aVars.Remove( this );
146*b1cdbd2cSJim Jagielski #endif
147*b1cdbd2cSJim Jagielski if( IsSet( SBX_DIM_AS_NEW ))
148*b1cdbd2cSJim Jagielski removeDimAsNewRecoverItem( this );
149*b1cdbd2cSJim Jagielski delete mpSbxVariableImpl;
150*b1cdbd2cSJim Jagielski delete pCst;
151*b1cdbd2cSJim Jagielski }
152*b1cdbd2cSJim Jagielski
153*b1cdbd2cSJim Jagielski ////////////////////////////// Broadcasting //////////////////////////////
154*b1cdbd2cSJim Jagielski
GetBroadcaster()155*b1cdbd2cSJim Jagielski SfxBroadcaster& SbxVariable::GetBroadcaster()
156*b1cdbd2cSJim Jagielski {
157*b1cdbd2cSJim Jagielski if( !pCst )
158*b1cdbd2cSJim Jagielski pCst = new SfxBroadcaster;
159*b1cdbd2cSJim Jagielski return *pCst;
160*b1cdbd2cSJim Jagielski }
161*b1cdbd2cSJim Jagielski
162*b1cdbd2cSJim Jagielski // Eines Tages kann man vielleicht den Parameter 0 schleifen,
163*b1cdbd2cSJim Jagielski // dann entfaellt die Kopiererei...
164*b1cdbd2cSJim Jagielski
Broadcast(sal_uIntPtr nHintId)165*b1cdbd2cSJim Jagielski void SbxVariable::Broadcast( sal_uIntPtr nHintId )
166*b1cdbd2cSJim Jagielski {
167*b1cdbd2cSJim Jagielski if( pCst && !IsSet( SBX_NO_BROADCAST ) && StaticIsEnabledBroadcasting() )
168*b1cdbd2cSJim Jagielski {
169*b1cdbd2cSJim Jagielski // Da die Methode von aussen aufrufbar ist, hier noch einmal
170*b1cdbd2cSJim Jagielski // die Berechtigung testen
171*b1cdbd2cSJim Jagielski if( nHintId & SBX_HINT_DATAWANTED )
172*b1cdbd2cSJim Jagielski if( !CanRead() )
173*b1cdbd2cSJim Jagielski return;
174*b1cdbd2cSJim Jagielski if( nHintId & SBX_HINT_DATACHANGED )
175*b1cdbd2cSJim Jagielski if( !CanWrite() )
176*b1cdbd2cSJim Jagielski return;
177*b1cdbd2cSJim Jagielski // Weitere Broadcasts verhindern
178*b1cdbd2cSJim Jagielski SfxBroadcaster* pSave = pCst;
179*b1cdbd2cSJim Jagielski pCst = NULL;
180*b1cdbd2cSJim Jagielski sal_uInt16 nSaveFlags = GetFlags();
181*b1cdbd2cSJim Jagielski SetFlag( SBX_READWRITE );
182*b1cdbd2cSJim Jagielski if( mpPar.Is() )
183*b1cdbd2cSJim Jagielski // this, als Element 0 eintragen, aber den Parent nicht umsetzen!
184*b1cdbd2cSJim Jagielski mpPar->GetRef( 0 ) = this;
185*b1cdbd2cSJim Jagielski pSave->Broadcast( SbxHint( nHintId, this ) );
186*b1cdbd2cSJim Jagielski delete pCst; // wer weiss schon, auf welche Gedanken mancher kommt?
187*b1cdbd2cSJim Jagielski pCst = pSave;
188*b1cdbd2cSJim Jagielski SetFlags( nSaveFlags );
189*b1cdbd2cSJim Jagielski }
190*b1cdbd2cSJim Jagielski }
191*b1cdbd2cSJim Jagielski
GetInfo()192*b1cdbd2cSJim Jagielski SbxInfo* SbxVariable::GetInfo()
193*b1cdbd2cSJim Jagielski {
194*b1cdbd2cSJim Jagielski if( !pInfo )
195*b1cdbd2cSJim Jagielski {
196*b1cdbd2cSJim Jagielski Broadcast( SBX_HINT_INFOWANTED );
197*b1cdbd2cSJim Jagielski if( pInfo.Is() )
198*b1cdbd2cSJim Jagielski SetModified( sal_True );
199*b1cdbd2cSJim Jagielski }
200*b1cdbd2cSJim Jagielski return pInfo;
201*b1cdbd2cSJim Jagielski }
202*b1cdbd2cSJim Jagielski
SetInfo(SbxInfo * p)203*b1cdbd2cSJim Jagielski void SbxVariable::SetInfo( SbxInfo* p )
204*b1cdbd2cSJim Jagielski {
205*b1cdbd2cSJim Jagielski pInfo = p;
206*b1cdbd2cSJim Jagielski }
207*b1cdbd2cSJim Jagielski
SetParameters(SbxArray * p)208*b1cdbd2cSJim Jagielski void SbxVariable::SetParameters( SbxArray* p )
209*b1cdbd2cSJim Jagielski {
210*b1cdbd2cSJim Jagielski mpPar = p;
211*b1cdbd2cSJim Jagielski }
212*b1cdbd2cSJim Jagielski
213*b1cdbd2cSJim Jagielski
214*b1cdbd2cSJim Jagielski /////////////////////////// Name der Variablen ///////////////////////////
215*b1cdbd2cSJim Jagielski
SetName(const XubString & rName)216*b1cdbd2cSJim Jagielski void SbxVariable::SetName( const XubString& rName )
217*b1cdbd2cSJim Jagielski {
218*b1cdbd2cSJim Jagielski maName = rName;
219*b1cdbd2cSJim Jagielski nHash = MakeHashCode( rName );
220*b1cdbd2cSJim Jagielski }
221*b1cdbd2cSJim Jagielski
GetName(SbxNameType t) const222*b1cdbd2cSJim Jagielski const XubString& SbxVariable::GetName( SbxNameType t ) const
223*b1cdbd2cSJim Jagielski {
224*b1cdbd2cSJim Jagielski static char cSuffixes[] = " %&!#@ $";
225*b1cdbd2cSJim Jagielski if( t == SbxNAME_NONE )
226*b1cdbd2cSJim Jagielski return maName;
227*b1cdbd2cSJim Jagielski // Parameter-Infos anfordern (nicht fuer Objekte)
228*b1cdbd2cSJim Jagielski ((SbxVariable*)this)->GetInfo();
229*b1cdbd2cSJim Jagielski // Nix anfuegen, wenn einfache Property (keine leeren Klammern)
230*b1cdbd2cSJim Jagielski if( !pInfo
231*b1cdbd2cSJim Jagielski || ( !pInfo->aParams.Count() && GetClass() == SbxCLASS_PROPERTY ) )
232*b1cdbd2cSJim Jagielski return maName;
233*b1cdbd2cSJim Jagielski xub_Unicode cType = ' ';
234*b1cdbd2cSJim Jagielski XubString aTmp( maName );
235*b1cdbd2cSJim Jagielski // Kurzer Typ? Dann holen, evtl. ist dieser 0.
236*b1cdbd2cSJim Jagielski SbxDataType et = GetType();
237*b1cdbd2cSJim Jagielski if( t == SbxNAME_SHORT_TYPES )
238*b1cdbd2cSJim Jagielski {
239*b1cdbd2cSJim Jagielski if( et <= SbxSTRING )
240*b1cdbd2cSJim Jagielski cType = cSuffixes[ et ];
241*b1cdbd2cSJim Jagielski if( cType != ' ' )
242*b1cdbd2cSJim Jagielski aTmp += cType;
243*b1cdbd2cSJim Jagielski }
244*b1cdbd2cSJim Jagielski aTmp += '(';
245*b1cdbd2cSJim Jagielski for( sal_uInt16 i = 0; i < pInfo->aParams.Count(); i++ )
246*b1cdbd2cSJim Jagielski {
247*b1cdbd2cSJim Jagielski const SbxParamInfo* q = pInfo->aParams.GetObject( i );
248*b1cdbd2cSJim Jagielski int nt = q->eType & 0x0FFF;
249*b1cdbd2cSJim Jagielski if( i )
250*b1cdbd2cSJim Jagielski aTmp += ',';
251*b1cdbd2cSJim Jagielski if( q->nFlags & SBX_OPTIONAL )
252*b1cdbd2cSJim Jagielski aTmp += String( SbxRes( STRING_OPTIONAL ) );
253*b1cdbd2cSJim Jagielski if( q->eType & SbxBYREF )
254*b1cdbd2cSJim Jagielski aTmp += String( SbxRes( STRING_BYREF ) );
255*b1cdbd2cSJim Jagielski aTmp += q->aName;
256*b1cdbd2cSJim Jagielski cType = ' ';
257*b1cdbd2cSJim Jagielski // Kurzer Typ? Dann holen, evtl. ist dieser 0.
258*b1cdbd2cSJim Jagielski if( t == SbxNAME_SHORT_TYPES )
259*b1cdbd2cSJim Jagielski {
260*b1cdbd2cSJim Jagielski if( nt <= SbxSTRING )
261*b1cdbd2cSJim Jagielski cType = cSuffixes[ nt ];
262*b1cdbd2cSJim Jagielski }
263*b1cdbd2cSJim Jagielski if( cType != ' ' )
264*b1cdbd2cSJim Jagielski {
265*b1cdbd2cSJim Jagielski aTmp += cType;
266*b1cdbd2cSJim Jagielski if( q->eType & SbxARRAY )
267*b1cdbd2cSJim Jagielski aTmp.AppendAscii( "()" );
268*b1cdbd2cSJim Jagielski }
269*b1cdbd2cSJim Jagielski else
270*b1cdbd2cSJim Jagielski {
271*b1cdbd2cSJim Jagielski if( q->eType & SbxARRAY )
272*b1cdbd2cSJim Jagielski aTmp.AppendAscii( "()" );
273*b1cdbd2cSJim Jagielski // langer Typ?
274*b1cdbd2cSJim Jagielski if( t != SbxNAME_SHORT )
275*b1cdbd2cSJim Jagielski {
276*b1cdbd2cSJim Jagielski aTmp += String( SbxRes( STRING_AS ) );
277*b1cdbd2cSJim Jagielski if( nt < 32 )
278*b1cdbd2cSJim Jagielski aTmp += String( SbxRes(
279*b1cdbd2cSJim Jagielski sal::static_int_cast< sal_uInt16 >( STRING_TYPES + nt ) ) );
280*b1cdbd2cSJim Jagielski else
281*b1cdbd2cSJim Jagielski aTmp += String( SbxRes( STRING_ANY ) );
282*b1cdbd2cSJim Jagielski }
283*b1cdbd2cSJim Jagielski }
284*b1cdbd2cSJim Jagielski }
285*b1cdbd2cSJim Jagielski aTmp += ')';
286*b1cdbd2cSJim Jagielski // Langer Typ? Dann holen
287*b1cdbd2cSJim Jagielski if( t == SbxNAME_LONG_TYPES && et != SbxEMPTY )
288*b1cdbd2cSJim Jagielski {
289*b1cdbd2cSJim Jagielski aTmp += String( SbxRes( STRING_AS ) );
290*b1cdbd2cSJim Jagielski if( et < 32 )
291*b1cdbd2cSJim Jagielski aTmp += String( SbxRes(
292*b1cdbd2cSJim Jagielski sal::static_int_cast< sal_uInt16 >( STRING_TYPES + et ) ) );
293*b1cdbd2cSJim Jagielski else
294*b1cdbd2cSJim Jagielski aTmp += String( SbxRes( STRING_ANY ) );
295*b1cdbd2cSJim Jagielski }
296*b1cdbd2cSJim Jagielski ((SbxVariable*) this)->aToolString = aTmp;
297*b1cdbd2cSJim Jagielski return aToolString;
298*b1cdbd2cSJim Jagielski }
299*b1cdbd2cSJim Jagielski
300*b1cdbd2cSJim Jagielski // Einen simplen Hashcode erzeugen: Es werden die ersten 6 Zeichen gewertet.
301*b1cdbd2cSJim Jagielski
MakeHashCode(const XubString & rName)302*b1cdbd2cSJim Jagielski sal_uInt16 SbxVariable::MakeHashCode( const XubString& rName )
303*b1cdbd2cSJim Jagielski {
304*b1cdbd2cSJim Jagielski sal_uInt16 n = 0;
305*b1cdbd2cSJim Jagielski sal_uInt16 nLen = rName.Len();
306*b1cdbd2cSJim Jagielski if( nLen > 6 )
307*b1cdbd2cSJim Jagielski nLen = 6;
308*b1cdbd2cSJim Jagielski const xub_Unicode* p = rName.GetBuffer();
309*b1cdbd2cSJim Jagielski while( nLen-- )
310*b1cdbd2cSJim Jagielski {
311*b1cdbd2cSJim Jagielski sal_uInt8 c = (sal_uInt8)*p;
312*b1cdbd2cSJim Jagielski p++;
313*b1cdbd2cSJim Jagielski // Falls wir ein Schweinezeichen haben, abbrechen!!
314*b1cdbd2cSJim Jagielski if( c >= 0x80 )
315*b1cdbd2cSJim Jagielski return 0;
316*b1cdbd2cSJim Jagielski n = sal::static_int_cast< sal_uInt16 >( ( n << 3 ) + toupper( c ) );
317*b1cdbd2cSJim Jagielski }
318*b1cdbd2cSJim Jagielski return n;
319*b1cdbd2cSJim Jagielski }
320*b1cdbd2cSJim Jagielski
321*b1cdbd2cSJim Jagielski ////////////////////////////// Operatoren ////////////////////////////////
322*b1cdbd2cSJim Jagielski
operator =(const SbxVariable & r)323*b1cdbd2cSJim Jagielski SbxVariable& SbxVariable::operator=( const SbxVariable& r )
324*b1cdbd2cSJim Jagielski {
325*b1cdbd2cSJim Jagielski SbxValue::operator=( r );
326*b1cdbd2cSJim Jagielski delete mpSbxVariableImpl;
327*b1cdbd2cSJim Jagielski if( r.mpSbxVariableImpl != NULL )
328*b1cdbd2cSJim Jagielski {
329*b1cdbd2cSJim Jagielski mpSbxVariableImpl = new SbxVariableImpl( *r.mpSbxVariableImpl );
330*b1cdbd2cSJim Jagielski if( mpSbxVariableImpl->m_xComListener.is() )
331*b1cdbd2cSJim Jagielski registerComListenerVariableForBasic( this, mpSbxVariableImpl->m_pComListenerParentBasic );
332*b1cdbd2cSJim Jagielski }
333*b1cdbd2cSJim Jagielski else
334*b1cdbd2cSJim Jagielski mpSbxVariableImpl = NULL;
335*b1cdbd2cSJim Jagielski return *this;
336*b1cdbd2cSJim Jagielski }
337*b1cdbd2cSJim Jagielski
338*b1cdbd2cSJim Jagielski //////////////////////////////// Konversion ////////////////////////////////
339*b1cdbd2cSJim Jagielski
GetType() const340*b1cdbd2cSJim Jagielski SbxDataType SbxVariable::GetType() const
341*b1cdbd2cSJim Jagielski {
342*b1cdbd2cSJim Jagielski if( aData.eType == SbxOBJECT )
343*b1cdbd2cSJim Jagielski return aData.pObj ? aData.pObj->GetType() : SbxOBJECT;
344*b1cdbd2cSJim Jagielski else if( aData.eType == SbxVARIANT )
345*b1cdbd2cSJim Jagielski return aData.pObj ? aData.pObj->GetType() : SbxVARIANT;
346*b1cdbd2cSJim Jagielski else
347*b1cdbd2cSJim Jagielski return aData.eType;
348*b1cdbd2cSJim Jagielski }
349*b1cdbd2cSJim Jagielski
GetClass() const350*b1cdbd2cSJim Jagielski SbxClassType SbxVariable::GetClass() const
351*b1cdbd2cSJim Jagielski {
352*b1cdbd2cSJim Jagielski return SbxCLASS_VARIABLE;
353*b1cdbd2cSJim Jagielski }
354*b1cdbd2cSJim Jagielski
SetModified(sal_Bool b)355*b1cdbd2cSJim Jagielski void SbxVariable::SetModified( sal_Bool b )
356*b1cdbd2cSJim Jagielski {
357*b1cdbd2cSJim Jagielski if( IsSet( SBX_NO_MODIFY ) )
358*b1cdbd2cSJim Jagielski return;
359*b1cdbd2cSJim Jagielski SbxBase::SetModified( b );
360*b1cdbd2cSJim Jagielski if( pParent && pParent != this ) //??? HotFix: Rekursion raus MM
361*b1cdbd2cSJim Jagielski pParent->SetModified( b );
362*b1cdbd2cSJim Jagielski }
363*b1cdbd2cSJim Jagielski
SetParent(SbxObject * p)364*b1cdbd2cSJim Jagielski void SbxVariable::SetParent( SbxObject* p )
365*b1cdbd2cSJim Jagielski {
366*b1cdbd2cSJim Jagielski #ifdef DBG_UTIL
367*b1cdbd2cSJim Jagielski // wird der Parent eines SbxObjects gesetzt?
368*b1cdbd2cSJim Jagielski if ( p && ISA(SbxObject) )
369*b1cdbd2cSJim Jagielski {
370*b1cdbd2cSJim Jagielski // dann mu\s dieses auch Child vom neuen Parent sein
371*b1cdbd2cSJim Jagielski sal_Bool bFound = sal_False;
372*b1cdbd2cSJim Jagielski SbxArray *pChilds = p->GetObjects();
373*b1cdbd2cSJim Jagielski if ( pChilds )
374*b1cdbd2cSJim Jagielski {
375*b1cdbd2cSJim Jagielski for ( sal_uInt16 nIdx = 0; !bFound && nIdx < pChilds->Count(); ++nIdx )
376*b1cdbd2cSJim Jagielski bFound = ( this == pChilds->Get(nIdx) );
377*b1cdbd2cSJim Jagielski }
378*b1cdbd2cSJim Jagielski if ( !bFound )
379*b1cdbd2cSJim Jagielski {
380*b1cdbd2cSJim Jagielski String aMsg = String::CreateFromAscii( "dangling: [" );
381*b1cdbd2cSJim Jagielski aMsg += GetName();
382*b1cdbd2cSJim Jagielski aMsg.AppendAscii( "].SetParent([" );
383*b1cdbd2cSJim Jagielski aMsg += p->GetName();
384*b1cdbd2cSJim Jagielski aMsg.AppendAscii( "])" );
385*b1cdbd2cSJim Jagielski ByteString aBStr( (const UniString&)aMsg, RTL_TEXTENCODING_ASCII_US );
386*b1cdbd2cSJim Jagielski DbgOut( aBStr.GetBuffer(), DBG_OUT_WARNING, __FILE__, __LINE__);
387*b1cdbd2cSJim Jagielski }
388*b1cdbd2cSJim Jagielski }
389*b1cdbd2cSJim Jagielski #endif
390*b1cdbd2cSJim Jagielski
391*b1cdbd2cSJim Jagielski pParent = p;
392*b1cdbd2cSJim Jagielski }
393*b1cdbd2cSJim Jagielski
getImpl(void)394*b1cdbd2cSJim Jagielski SbxVariableImpl* SbxVariable::getImpl( void )
395*b1cdbd2cSJim Jagielski {
396*b1cdbd2cSJim Jagielski if( mpSbxVariableImpl == NULL )
397*b1cdbd2cSJim Jagielski mpSbxVariableImpl = new SbxVariableImpl();
398*b1cdbd2cSJim Jagielski return mpSbxVariableImpl;
399*b1cdbd2cSJim Jagielski }
400*b1cdbd2cSJim Jagielski
GetDeclareClassName(void)401*b1cdbd2cSJim Jagielski const String& SbxVariable::GetDeclareClassName( void )
402*b1cdbd2cSJim Jagielski {
403*b1cdbd2cSJim Jagielski SbxVariableImpl* pImpl = getImpl();
404*b1cdbd2cSJim Jagielski return pImpl->m_aDeclareClassName;
405*b1cdbd2cSJim Jagielski }
406*b1cdbd2cSJim Jagielski
SetDeclareClassName(const String & rDeclareClassName)407*b1cdbd2cSJim Jagielski void SbxVariable::SetDeclareClassName( const String& rDeclareClassName )
408*b1cdbd2cSJim Jagielski {
409*b1cdbd2cSJim Jagielski SbxVariableImpl* pImpl = getImpl();
410*b1cdbd2cSJim Jagielski pImpl->m_aDeclareClassName = rDeclareClassName;
411*b1cdbd2cSJim Jagielski }
412*b1cdbd2cSJim Jagielski
SetComListener(::com::sun::star::uno::Reference<::com::sun::star::uno::XInterface> xComListener,StarBASIC * pParentBasic)413*b1cdbd2cSJim Jagielski void SbxVariable::SetComListener( ::com::sun::star::uno::Reference< ::com::sun::star::uno::XInterface > xComListener,
414*b1cdbd2cSJim Jagielski StarBASIC* pParentBasic )
415*b1cdbd2cSJim Jagielski {
416*b1cdbd2cSJim Jagielski SbxVariableImpl* pImpl = getImpl();
417*b1cdbd2cSJim Jagielski pImpl->m_xComListener = xComListener;
418*b1cdbd2cSJim Jagielski pImpl->m_pComListenerParentBasic = pParentBasic;
419*b1cdbd2cSJim Jagielski registerComListenerVariableForBasic( this, pParentBasic );
420*b1cdbd2cSJim Jagielski }
421*b1cdbd2cSJim Jagielski
ClearComListener(void)422*b1cdbd2cSJim Jagielski void SbxVariable::ClearComListener( void )
423*b1cdbd2cSJim Jagielski {
424*b1cdbd2cSJim Jagielski SbxVariableImpl* pImpl = getImpl();
425*b1cdbd2cSJim Jagielski pImpl->m_xComListener.clear();
426*b1cdbd2cSJim Jagielski }
427*b1cdbd2cSJim Jagielski
428*b1cdbd2cSJim Jagielski
429*b1cdbd2cSJim Jagielski ////////////////////////////// Laden/Speichern /////////////////////////////
430*b1cdbd2cSJim Jagielski
LoadData(SvStream & rStrm,sal_uInt16 nVer)431*b1cdbd2cSJim Jagielski sal_Bool SbxVariable::LoadData( SvStream& rStrm, sal_uInt16 nVer )
432*b1cdbd2cSJim Jagielski {
433*b1cdbd2cSJim Jagielski sal_uInt16 nType;
434*b1cdbd2cSJim Jagielski sal_uInt8 cMark;
435*b1cdbd2cSJim Jagielski rStrm >> cMark;
436*b1cdbd2cSJim Jagielski if( cMark == 0xFF )
437*b1cdbd2cSJim Jagielski {
438*b1cdbd2cSJim Jagielski if( !SbxValue::LoadData( rStrm, nVer ) )
439*b1cdbd2cSJim Jagielski return sal_False;
440*b1cdbd2cSJim Jagielski rStrm.ReadByteString( maName, RTL_TEXTENCODING_ASCII_US );
441*b1cdbd2cSJim Jagielski sal_uInt32 nTemp;
442*b1cdbd2cSJim Jagielski rStrm >> nTemp;
443*b1cdbd2cSJim Jagielski nUserData = nTemp;
444*b1cdbd2cSJim Jagielski }
445*b1cdbd2cSJim Jagielski else
446*b1cdbd2cSJim Jagielski {
447*b1cdbd2cSJim Jagielski rStrm.SeekRel( -1L );
448*b1cdbd2cSJim Jagielski rStrm >> nType;
449*b1cdbd2cSJim Jagielski rStrm.ReadByteString( maName, RTL_TEXTENCODING_ASCII_US );
450*b1cdbd2cSJim Jagielski sal_uInt32 nTemp;
451*b1cdbd2cSJim Jagielski rStrm >> nTemp;
452*b1cdbd2cSJim Jagielski nUserData = nTemp;
453*b1cdbd2cSJim Jagielski // Korrektur: Alte Methoden haben statt SbxNULL jetzt SbxEMPTY
454*b1cdbd2cSJim Jagielski if( nType == SbxNULL && GetClass() == SbxCLASS_METHOD )
455*b1cdbd2cSJim Jagielski nType = SbxEMPTY;
456*b1cdbd2cSJim Jagielski SbxValues aTmp;
457*b1cdbd2cSJim Jagielski String aTmpString;
458*b1cdbd2cSJim Jagielski ::rtl::OUString aVal;
459*b1cdbd2cSJim Jagielski aTmp.eType = aData.eType = (SbxDataType) nType;
460*b1cdbd2cSJim Jagielski aTmp.pOUString = &aVal;
461*b1cdbd2cSJim Jagielski switch( nType )
462*b1cdbd2cSJim Jagielski {
463*b1cdbd2cSJim Jagielski case SbxBOOL:
464*b1cdbd2cSJim Jagielski case SbxERROR:
465*b1cdbd2cSJim Jagielski case SbxINTEGER:
466*b1cdbd2cSJim Jagielski rStrm >> aTmp.nInteger; break;
467*b1cdbd2cSJim Jagielski case SbxLONG:
468*b1cdbd2cSJim Jagielski rStrm >> aTmp.nLong; break;
469*b1cdbd2cSJim Jagielski case SbxSINGLE:
470*b1cdbd2cSJim Jagielski {
471*b1cdbd2cSJim Jagielski // Floats als ASCII
472*b1cdbd2cSJim Jagielski rStrm.ReadByteString( aTmpString, RTL_TEXTENCODING_ASCII_US );
473*b1cdbd2cSJim Jagielski double d;
474*b1cdbd2cSJim Jagielski SbxDataType t;
475*b1cdbd2cSJim Jagielski if( ImpScan( aTmpString, d, t, NULL ) != SbxERR_OK || t == SbxDOUBLE )
476*b1cdbd2cSJim Jagielski {
477*b1cdbd2cSJim Jagielski aTmp.nSingle = 0;
478*b1cdbd2cSJim Jagielski return sal_False;
479*b1cdbd2cSJim Jagielski }
480*b1cdbd2cSJim Jagielski aTmp.nSingle = (float) d;
481*b1cdbd2cSJim Jagielski break;
482*b1cdbd2cSJim Jagielski }
483*b1cdbd2cSJim Jagielski case SbxDATE:
484*b1cdbd2cSJim Jagielski case SbxDOUBLE:
485*b1cdbd2cSJim Jagielski {
486*b1cdbd2cSJim Jagielski // Floats als ASCII
487*b1cdbd2cSJim Jagielski rStrm.ReadByteString( aTmpString, RTL_TEXTENCODING_ASCII_US );
488*b1cdbd2cSJim Jagielski SbxDataType t;
489*b1cdbd2cSJim Jagielski if( ImpScan( aTmpString, aTmp.nDouble, t, NULL ) != SbxERR_OK )
490*b1cdbd2cSJim Jagielski {
491*b1cdbd2cSJim Jagielski aTmp.nDouble = 0;
492*b1cdbd2cSJim Jagielski return sal_False;
493*b1cdbd2cSJim Jagielski }
494*b1cdbd2cSJim Jagielski break;
495*b1cdbd2cSJim Jagielski }
496*b1cdbd2cSJim Jagielski case SbxSTRING:
497*b1cdbd2cSJim Jagielski rStrm.ReadByteString( aTmpString, RTL_TEXTENCODING_ASCII_US );
498*b1cdbd2cSJim Jagielski aVal = aTmpString;
499*b1cdbd2cSJim Jagielski break;
500*b1cdbd2cSJim Jagielski case SbxEMPTY:
501*b1cdbd2cSJim Jagielski case SbxNULL:
502*b1cdbd2cSJim Jagielski break;
503*b1cdbd2cSJim Jagielski default:
504*b1cdbd2cSJim Jagielski aData.eType = SbxNULL;
505*b1cdbd2cSJim Jagielski DBG_ASSERT( !this, "Nicht unterstuetzer Datentyp geladen" );
506*b1cdbd2cSJim Jagielski return sal_False;
507*b1cdbd2cSJim Jagielski }
508*b1cdbd2cSJim Jagielski // Wert putten
509*b1cdbd2cSJim Jagielski if( nType != SbxNULL && nType != SbxEMPTY && !Put( aTmp ) )
510*b1cdbd2cSJim Jagielski return sal_False;
511*b1cdbd2cSJim Jagielski }
512*b1cdbd2cSJim Jagielski rStrm >> cMark;
513*b1cdbd2cSJim Jagielski // cMark ist auch eine Versionsnummer!
514*b1cdbd2cSJim Jagielski // 1: initial version
515*b1cdbd2cSJim Jagielski // 2: mit nUserData
516*b1cdbd2cSJim Jagielski if( cMark )
517*b1cdbd2cSJim Jagielski {
518*b1cdbd2cSJim Jagielski if( cMark > 2 )
519*b1cdbd2cSJim Jagielski return sal_False;
520*b1cdbd2cSJim Jagielski pInfo = new SbxInfo;
521*b1cdbd2cSJim Jagielski pInfo->LoadData( rStrm, (sal_uInt16) cMark );
522*b1cdbd2cSJim Jagielski }
523*b1cdbd2cSJim Jagielski // Privatdaten nur laden, wenn es eine SbxVariable ist
524*b1cdbd2cSJim Jagielski if( GetClass() == SbxCLASS_VARIABLE && !LoadPrivateData( rStrm, nVer ) )
525*b1cdbd2cSJim Jagielski return sal_False;
526*b1cdbd2cSJim Jagielski ((SbxVariable*) this)->Broadcast( SBX_HINT_DATACHANGED );
527*b1cdbd2cSJim Jagielski nHash = MakeHashCode( maName );
528*b1cdbd2cSJim Jagielski SetModified( sal_True );
529*b1cdbd2cSJim Jagielski return sal_True;
530*b1cdbd2cSJim Jagielski }
531*b1cdbd2cSJim Jagielski
StoreData(SvStream & rStrm) const532*b1cdbd2cSJim Jagielski sal_Bool SbxVariable::StoreData( SvStream& rStrm ) const
533*b1cdbd2cSJim Jagielski {
534*b1cdbd2cSJim Jagielski rStrm << (sal_uInt8) 0xFF; // Marker
535*b1cdbd2cSJim Jagielski sal_Bool bValStore;
536*b1cdbd2cSJim Jagielski if( this->IsA( TYPE(SbxMethod) ) )
537*b1cdbd2cSJim Jagielski {
538*b1cdbd2cSJim Jagielski // #50200 Verhindern, dass Objekte, die zur Laufzeit als Return-Wert
539*b1cdbd2cSJim Jagielski // in der Methode als Value gespeichert sind, mit gespeichert werden
540*b1cdbd2cSJim Jagielski SbxVariable* pThis = (SbxVariable*)this;
541*b1cdbd2cSJim Jagielski sal_uInt16 nSaveFlags = GetFlags();
542*b1cdbd2cSJim Jagielski pThis->SetFlag( SBX_WRITE );
543*b1cdbd2cSJim Jagielski pThis->SbxValue::Clear();
544*b1cdbd2cSJim Jagielski pThis->SetFlags( nSaveFlags );
545*b1cdbd2cSJim Jagielski
546*b1cdbd2cSJim Jagielski // Damit die Methode in keinem Fall ausgefuehrt wird!
547*b1cdbd2cSJim Jagielski // CAST, um const zu umgehen!
548*b1cdbd2cSJim Jagielski pThis->SetFlag( SBX_NO_BROADCAST );
549*b1cdbd2cSJim Jagielski bValStore = SbxValue::StoreData( rStrm );
550*b1cdbd2cSJim Jagielski pThis->ResetFlag( SBX_NO_BROADCAST );
551*b1cdbd2cSJim Jagielski }
552*b1cdbd2cSJim Jagielski else
553*b1cdbd2cSJim Jagielski bValStore = SbxValue::StoreData( rStrm );
554*b1cdbd2cSJim Jagielski if( !bValStore )
555*b1cdbd2cSJim Jagielski return sal_False;
556*b1cdbd2cSJim Jagielski // if( !SbxValue::StoreData( rStrm ) )
557*b1cdbd2cSJim Jagielski // return sal_False;
558*b1cdbd2cSJim Jagielski rStrm.WriteByteString( maName, RTL_TEXTENCODING_ASCII_US );
559*b1cdbd2cSJim Jagielski rStrm << (sal_uInt32)nUserData;
560*b1cdbd2cSJim Jagielski if( pInfo.Is() )
561*b1cdbd2cSJim Jagielski {
562*b1cdbd2cSJim Jagielski rStrm << (sal_uInt8) 2; // Version 2: mit UserData!
563*b1cdbd2cSJim Jagielski pInfo->StoreData( rStrm );
564*b1cdbd2cSJim Jagielski }
565*b1cdbd2cSJim Jagielski else
566*b1cdbd2cSJim Jagielski rStrm << (sal_uInt8) 0;
567*b1cdbd2cSJim Jagielski // Privatdaten nur speichern, wenn es eine SbxVariable ist
568*b1cdbd2cSJim Jagielski if( GetClass() == SbxCLASS_VARIABLE )
569*b1cdbd2cSJim Jagielski return StorePrivateData( rStrm );
570*b1cdbd2cSJim Jagielski else
571*b1cdbd2cSJim Jagielski return sal_True;
572*b1cdbd2cSJim Jagielski }
573*b1cdbd2cSJim Jagielski
574*b1cdbd2cSJim Jagielski ////////////////////////////// SbxInfo ///////////////////////////////////
575*b1cdbd2cSJim Jagielski
SbxInfo()576*b1cdbd2cSJim Jagielski SbxInfo::SbxInfo() : aHelpFile(), nHelpId( 0 ), aParams()
577*b1cdbd2cSJim Jagielski {}
578*b1cdbd2cSJim Jagielski
SbxInfo(const String & r,sal_uInt32 n)579*b1cdbd2cSJim Jagielski SbxInfo::SbxInfo( const String& r, sal_uInt32 n )
580*b1cdbd2cSJim Jagielski : aHelpFile( r ), nHelpId( n ), aParams()
581*b1cdbd2cSJim Jagielski {}
582*b1cdbd2cSJim Jagielski
583*b1cdbd2cSJim Jagielski ////////////////////////////// SbxAlias //////////////////////////////////
584*b1cdbd2cSJim Jagielski
SbxAlias(const XubString & rName,SbxVariable * p)585*b1cdbd2cSJim Jagielski SbxAlias::SbxAlias( const XubString& rName, SbxVariable* p )
586*b1cdbd2cSJim Jagielski : SbxVariable(), xAlias( p )
587*b1cdbd2cSJim Jagielski {
588*b1cdbd2cSJim Jagielski SetName( rName );
589*b1cdbd2cSJim Jagielski SetFlags( p->GetFlags() );
590*b1cdbd2cSJim Jagielski SetFlag( SBX_DONTSTORE );
591*b1cdbd2cSJim Jagielski aData.eType = p->GetType();
592*b1cdbd2cSJim Jagielski StartListening( p->GetBroadcaster() );
593*b1cdbd2cSJim Jagielski }
594*b1cdbd2cSJim Jagielski
SbxAlias(const SbxAlias & r)595*b1cdbd2cSJim Jagielski SbxAlias::SbxAlias( const SbxAlias& r )
596*b1cdbd2cSJim Jagielski : SvRefBase( r ), SbxVariable( r ),
597*b1cdbd2cSJim Jagielski SfxListener( r ), xAlias( r.xAlias )
598*b1cdbd2cSJim Jagielski {}
599*b1cdbd2cSJim Jagielski
operator =(const SbxAlias & r)600*b1cdbd2cSJim Jagielski SbxAlias& SbxAlias::operator=( const SbxAlias& r )
601*b1cdbd2cSJim Jagielski {
602*b1cdbd2cSJim Jagielski xAlias = r.xAlias;
603*b1cdbd2cSJim Jagielski return *this;
604*b1cdbd2cSJim Jagielski }
605*b1cdbd2cSJim Jagielski
~SbxAlias()606*b1cdbd2cSJim Jagielski SbxAlias::~SbxAlias()
607*b1cdbd2cSJim Jagielski {
608*b1cdbd2cSJim Jagielski if( xAlias.Is() )
609*b1cdbd2cSJim Jagielski EndListening( xAlias->GetBroadcaster() );
610*b1cdbd2cSJim Jagielski }
611*b1cdbd2cSJim Jagielski
Broadcast(sal_uIntPtr nHt)612*b1cdbd2cSJim Jagielski void SbxAlias::Broadcast( sal_uIntPtr nHt )
613*b1cdbd2cSJim Jagielski {
614*b1cdbd2cSJim Jagielski if( xAlias.Is() && StaticIsEnabledBroadcasting() )
615*b1cdbd2cSJim Jagielski {
616*b1cdbd2cSJim Jagielski xAlias->SetParameters( GetParameters() );
617*b1cdbd2cSJim Jagielski if( nHt == SBX_HINT_DATAWANTED )
618*b1cdbd2cSJim Jagielski SbxVariable::operator=( *xAlias );
619*b1cdbd2cSJim Jagielski else if( nHt == SBX_HINT_DATACHANGED || nHt == SBX_HINT_CONVERTED )
620*b1cdbd2cSJim Jagielski *xAlias = *this;
621*b1cdbd2cSJim Jagielski else if( nHt == SBX_HINT_INFOWANTED )
622*b1cdbd2cSJim Jagielski {
623*b1cdbd2cSJim Jagielski xAlias->Broadcast( nHt );
624*b1cdbd2cSJim Jagielski pInfo = xAlias->GetInfo();
625*b1cdbd2cSJim Jagielski }
626*b1cdbd2cSJim Jagielski }
627*b1cdbd2cSJim Jagielski }
628*b1cdbd2cSJim Jagielski
SFX_NOTIFY(SfxBroadcaster &,const TypeId &,const SfxHint & rHint,const TypeId &)629*b1cdbd2cSJim Jagielski void SbxAlias::SFX_NOTIFY( SfxBroadcaster&, const TypeId&,
630*b1cdbd2cSJim Jagielski const SfxHint& rHint, const TypeId& )
631*b1cdbd2cSJim Jagielski {
632*b1cdbd2cSJim Jagielski const SbxHint* p = PTR_CAST(SbxHint,&rHint);
633*b1cdbd2cSJim Jagielski if( p && p->GetId() == SBX_HINT_DYING )
634*b1cdbd2cSJim Jagielski {
635*b1cdbd2cSJim Jagielski xAlias.Clear();
636*b1cdbd2cSJim Jagielski // Alias loeschen?
637*b1cdbd2cSJim Jagielski if( pParent )
638*b1cdbd2cSJim Jagielski pParent->Remove( this );
639*b1cdbd2cSJim Jagielski }
640*b1cdbd2cSJim Jagielski }
641*b1cdbd2cSJim Jagielski
Dump(SvStream & rStrm,sal_Bool bFill)642*b1cdbd2cSJim Jagielski void SbxVariable::Dump( SvStream& rStrm, sal_Bool bFill )
643*b1cdbd2cSJim Jagielski {
644*b1cdbd2cSJim Jagielski ByteString aBNameStr( (const UniString&)GetName( SbxNAME_SHORT_TYPES ), RTL_TEXTENCODING_ASCII_US );
645*b1cdbd2cSJim Jagielski rStrm << "Variable( "
646*b1cdbd2cSJim Jagielski << ByteString::CreateFromInt64( (sal_uIntPtr) this ).GetBuffer() << "=="
647*b1cdbd2cSJim Jagielski << aBNameStr.GetBuffer();
648*b1cdbd2cSJim Jagielski ByteString aBParentNameStr( (const UniString&)GetParent()->GetName(), RTL_TEXTENCODING_ASCII_US );
649*b1cdbd2cSJim Jagielski if ( GetParent() )
650*b1cdbd2cSJim Jagielski rStrm << " in parent '" << aBParentNameStr.GetBuffer() << "'";
651*b1cdbd2cSJim Jagielski else
652*b1cdbd2cSJim Jagielski rStrm << " no parent";
653*b1cdbd2cSJim Jagielski rStrm << " ) ";
654*b1cdbd2cSJim Jagielski
655*b1cdbd2cSJim Jagielski // bei Object-Vars auch das Object ausgeben
656*b1cdbd2cSJim Jagielski if ( GetValues_Impl().eType == SbxOBJECT &&
657*b1cdbd2cSJim Jagielski GetValues_Impl().pObj &&
658*b1cdbd2cSJim Jagielski GetValues_Impl().pObj != this &&
659*b1cdbd2cSJim Jagielski GetValues_Impl().pObj != GetParent() )
660*b1cdbd2cSJim Jagielski {
661*b1cdbd2cSJim Jagielski rStrm << " contains ";
662*b1cdbd2cSJim Jagielski ((SbxObject*) GetValues_Impl().pObj)->Dump( rStrm, bFill );
663*b1cdbd2cSJim Jagielski }
664*b1cdbd2cSJim Jagielski else
665*b1cdbd2cSJim Jagielski rStrm << endl;
666*b1cdbd2cSJim Jagielski }
667*b1cdbd2cSJim Jagielski
668