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 //#include <stl_queue.h>
28*b1cdbd2cSJim Jagielski #include <osl/mutex.hxx>
29*b1cdbd2cSJim Jagielski #include <comphelper/processfactory.hxx>
30*b1cdbd2cSJim Jagielski
31*b1cdbd2cSJim Jagielski
32*b1cdbd2cSJim Jagielski #include <com/sun/star/script/XEventAttacher.hpp>
33*b1cdbd2cSJim Jagielski #include <com/sun/star/script/XAllListener.hpp>
34*b1cdbd2cSJim Jagielski #include <com/sun/star/script/XScriptEventsSupplier.hpp>
35*b1cdbd2cSJim Jagielski #include <com/sun/star/script/XScriptEventsAttacher.hpp>
36*b1cdbd2cSJim Jagielski #include <com/sun/star/script/ScriptEventDescriptor.hpp>
37*b1cdbd2cSJim Jagielski #include <com/sun/star/script/XLibraryContainer.hpp>
38*b1cdbd2cSJim Jagielski #include <com/sun/star/beans/XPropertySet.hpp>
39*b1cdbd2cSJim Jagielski #include <com/sun/star/container/XNameContainer.hpp>
40*b1cdbd2cSJim Jagielski #include <com/sun/star/resource/XStringResourceSupplier.hpp>
41*b1cdbd2cSJim Jagielski #include <com/sun/star/resource/XStringResourceManager.hpp>
42*b1cdbd2cSJim Jagielski #include <com/sun/star/awt/XControlContainer.hpp>
43*b1cdbd2cSJim Jagielski #include <com/sun/star/awt/XControlModel.hpp>
44*b1cdbd2cSJim Jagielski #include <com/sun/star/awt/XControl.hpp>
45*b1cdbd2cSJim Jagielski #include <com/sun/star/awt/XDialog.hpp>
46*b1cdbd2cSJim Jagielski #include <com/sun/star/awt/XWindow.hpp>
47*b1cdbd2cSJim Jagielski #include <com/sun/star/script/provider/XScriptProviderFactory.hpp>
48*b1cdbd2cSJim Jagielski
49*b1cdbd2cSJim Jagielski #include <com/sun/star/script/provider/XScriptProviderSupplier.hpp>
50*b1cdbd2cSJim Jagielski #include <com/sun/star/script/provider/XScriptProvider.hpp>
51*b1cdbd2cSJim Jagielski #include <com/sun/star/awt/XDialogProvider.hpp>
52*b1cdbd2cSJim Jagielski
53*b1cdbd2cSJim Jagielski #include <com/sun/star/frame/XModel.hpp>
54*b1cdbd2cSJim Jagielski #include <com/sun/star/frame/XDesktop.hpp>
55*b1cdbd2cSJim Jagielski #include <com/sun/star/container/XEnumerationAccess.hpp>
56*b1cdbd2cSJim Jagielski #include <basic/basicmanagerrepository.hxx>
57*b1cdbd2cSJim Jagielski #include <basic/basmgr.hxx>
58*b1cdbd2cSJim Jagielski //==================================================================================================
59*b1cdbd2cSJim Jagielski
60*b1cdbd2cSJim Jagielski #include <xmlscript/xmldlg_imexp.hxx>
61*b1cdbd2cSJim Jagielski #include <sbunoobj.hxx>
62*b1cdbd2cSJim Jagielski #include <basic/sbstar.hxx>
63*b1cdbd2cSJim Jagielski #include <basic/sbmeth.hxx>
64*b1cdbd2cSJim Jagielski #include <basic/sbuno.hxx>
65*b1cdbd2cSJim Jagielski #include <runtime.hxx>
66*b1cdbd2cSJim Jagielski #include <sbintern.hxx>
67*b1cdbd2cSJim Jagielski
68*b1cdbd2cSJim Jagielski
69*b1cdbd2cSJim Jagielski #include <cppuhelper/implbase1.hxx>
70*b1cdbd2cSJim Jagielski using namespace ::com::sun::star;
71*b1cdbd2cSJim Jagielski using namespace ::com::sun::star::uno;
72*b1cdbd2cSJim Jagielski using namespace ::com::sun::star::script;
73*b1cdbd2cSJim Jagielski using namespace ::com::sun::star::resource;
74*b1cdbd2cSJim Jagielski
75*b1cdbd2cSJim Jagielski using namespace ::com::sun::star::uno;
76*b1cdbd2cSJim Jagielski using namespace ::com::sun::star::lang;
77*b1cdbd2cSJim Jagielski using namespace ::com::sun::star::beans;
78*b1cdbd2cSJim Jagielski using namespace ::com::sun::star::script;
79*b1cdbd2cSJim Jagielski using namespace ::com::sun::star::container;
80*b1cdbd2cSJim Jagielski using namespace ::com::sun::star::reflection;
81*b1cdbd2cSJim Jagielski using namespace ::com::sun::star::awt;
82*b1cdbd2cSJim Jagielski using namespace ::com::sun::star::io;
83*b1cdbd2cSJim Jagielski using namespace ::cppu;
84*b1cdbd2cSJim Jagielski using namespace ::osl;
85*b1cdbd2cSJim Jagielski
86*b1cdbd2cSJim Jagielski
SFURL_firing_impl(const ScriptEvent & aScriptEvent,Any * pRet,const Reference<frame::XModel> & xModel)87*b1cdbd2cSJim Jagielski void SFURL_firing_impl( const ScriptEvent& aScriptEvent, Any* pRet, const Reference< frame::XModel >& xModel )
88*b1cdbd2cSJim Jagielski {
89*b1cdbd2cSJim Jagielski OSL_TRACE("SFURL_firing_impl() processing script url %s",
90*b1cdbd2cSJim Jagielski ::rtl::OUStringToOString( aScriptEvent.ScriptCode,
91*b1cdbd2cSJim Jagielski RTL_TEXTENCODING_ASCII_US ).pData->buffer );
92*b1cdbd2cSJim Jagielski try
93*b1cdbd2cSJim Jagielski {
94*b1cdbd2cSJim Jagielski Reference< provider::XScriptProvider > xScriptProvider;
95*b1cdbd2cSJim Jagielski if ( xModel.is() )
96*b1cdbd2cSJim Jagielski {
97*b1cdbd2cSJim Jagielski Reference< provider::XScriptProviderSupplier > xSupplier( xModel, UNO_QUERY );
98*b1cdbd2cSJim Jagielski OSL_ENSURE( xSupplier.is(), "SFURL_firing_impl: failed to get script provider supplier" );
99*b1cdbd2cSJim Jagielski if ( xSupplier.is() )
100*b1cdbd2cSJim Jagielski xScriptProvider.set( xSupplier->getScriptProvider() );
101*b1cdbd2cSJim Jagielski }
102*b1cdbd2cSJim Jagielski else
103*b1cdbd2cSJim Jagielski {
104*b1cdbd2cSJim Jagielski Reference< XComponentContext > xContext;
105*b1cdbd2cSJim Jagielski Reference< XPropertySet > xProps( ::comphelper::getProcessServiceFactory(), UNO_QUERY );
106*b1cdbd2cSJim Jagielski OSL_ASSERT( xProps.is() );
107*b1cdbd2cSJim Jagielski OSL_VERIFY( xProps->getPropertyValue( ::rtl::OUString::createFromAscii( "DefaultContext" ) ) >>= xContext );
108*b1cdbd2cSJim Jagielski if ( xContext.is() )
109*b1cdbd2cSJim Jagielski {
110*b1cdbd2cSJim Jagielski Reference< provider::XScriptProviderFactory > xFactory(
111*b1cdbd2cSJim Jagielski xContext->getValueByName(
112*b1cdbd2cSJim Jagielski ::rtl::OUString::createFromAscii( "/singletons/com.sun.star.script.provider.theMasterScriptProviderFactory" ) ),
113*b1cdbd2cSJim Jagielski UNO_QUERY );
114*b1cdbd2cSJim Jagielski OSL_ENSURE( xFactory.is(), "SFURL_firing_impl: failed to get master script provider factory" );
115*b1cdbd2cSJim Jagielski if ( xFactory.is() )
116*b1cdbd2cSJim Jagielski {
117*b1cdbd2cSJim Jagielski Any aCtx;
118*b1cdbd2cSJim Jagielski aCtx <<= ::rtl::OUString::createFromAscii( "user" );
119*b1cdbd2cSJim Jagielski xScriptProvider.set( xFactory->createScriptProvider( aCtx ), UNO_QUERY );
120*b1cdbd2cSJim Jagielski }
121*b1cdbd2cSJim Jagielski }
122*b1cdbd2cSJim Jagielski }
123*b1cdbd2cSJim Jagielski
124*b1cdbd2cSJim Jagielski if ( !xScriptProvider.is() )
125*b1cdbd2cSJim Jagielski {
126*b1cdbd2cSJim Jagielski OSL_TRACE("SFURL_firing_impl() Failed to create msp");
127*b1cdbd2cSJim Jagielski return;
128*b1cdbd2cSJim Jagielski }
129*b1cdbd2cSJim Jagielski Sequence< Any > inArgs( 0 );
130*b1cdbd2cSJim Jagielski Sequence< Any > outArgs( 0 );
131*b1cdbd2cSJim Jagielski Sequence< sal_Int16 > outIndex;
132*b1cdbd2cSJim Jagielski
133*b1cdbd2cSJim Jagielski // get Arguments for script
134*b1cdbd2cSJim Jagielski inArgs = aScriptEvent.Arguments;
135*b1cdbd2cSJim Jagielski
136*b1cdbd2cSJim Jagielski Reference< provider::XScript > xScript = xScriptProvider->getScript( aScriptEvent.ScriptCode );
137*b1cdbd2cSJim Jagielski
138*b1cdbd2cSJim Jagielski if ( !xScript.is() )
139*b1cdbd2cSJim Jagielski {
140*b1cdbd2cSJim Jagielski OSL_TRACE("SFURL_firing_impl() Failed to obtain XScript");
141*b1cdbd2cSJim Jagielski return;
142*b1cdbd2cSJim Jagielski }
143*b1cdbd2cSJim Jagielski
144*b1cdbd2cSJim Jagielski Any result = xScript->invoke( inArgs, outIndex, outArgs );
145*b1cdbd2cSJim Jagielski if ( pRet )
146*b1cdbd2cSJim Jagielski {
147*b1cdbd2cSJim Jagielski *pRet = result;
148*b1cdbd2cSJim Jagielski }
149*b1cdbd2cSJim Jagielski }
150*b1cdbd2cSJim Jagielski catch ( RuntimeException& re )
151*b1cdbd2cSJim Jagielski {
152*b1cdbd2cSJim Jagielski OSL_TRACE("SFURL_firing_impl() Caught RuntimeException reason %s.",
153*b1cdbd2cSJim Jagielski ::rtl::OUStringToOString( re.Message,
154*b1cdbd2cSJim Jagielski RTL_TEXTENCODING_ASCII_US ).pData->buffer );
155*b1cdbd2cSJim Jagielski }
156*b1cdbd2cSJim Jagielski catch ( Exception& e )
157*b1cdbd2cSJim Jagielski {
158*b1cdbd2cSJim Jagielski OSL_TRACE("SFURL_firing_impl() Caught Exception reason %s.",
159*b1cdbd2cSJim Jagielski ::rtl::OUStringToOString( e.Message,
160*b1cdbd2cSJim Jagielski RTL_TEXTENCODING_ASCII_US ).pData->buffer );
161*b1cdbd2cSJim Jagielski }
162*b1cdbd2cSJim Jagielski
163*b1cdbd2cSJim Jagielski }
164*b1cdbd2cSJim Jagielski
165*b1cdbd2cSJim Jagielski
166*b1cdbd2cSJim Jagielski class BasicScriptListener_Impl : public WeakImplHelper1< XScriptListener >
167*b1cdbd2cSJim Jagielski {
168*b1cdbd2cSJim Jagielski StarBASICRef maBasicRef;
169*b1cdbd2cSJim Jagielski Reference< frame::XModel > m_xModel;
170*b1cdbd2cSJim Jagielski
171*b1cdbd2cSJim Jagielski virtual void firing_impl(const ScriptEvent& aScriptEvent, Any* pRet);
172*b1cdbd2cSJim Jagielski
173*b1cdbd2cSJim Jagielski public:
BasicScriptListener_Impl(StarBASIC * pBasic,const Reference<frame::XModel> & xModel)174*b1cdbd2cSJim Jagielski BasicScriptListener_Impl( StarBASIC* pBasic, const Reference< frame::XModel >& xModel )
175*b1cdbd2cSJim Jagielski : maBasicRef( pBasic ), m_xModel( xModel ) {}
176*b1cdbd2cSJim Jagielski
177*b1cdbd2cSJim Jagielski // Methods of XAllListener
178*b1cdbd2cSJim Jagielski virtual void SAL_CALL firing(const ScriptEvent& aScriptEvent)
179*b1cdbd2cSJim Jagielski throw( RuntimeException );
180*b1cdbd2cSJim Jagielski virtual Any SAL_CALL approveFiring(const ScriptEvent& aScriptEvent)
181*b1cdbd2cSJim Jagielski throw( InvocationTargetException, RuntimeException );
182*b1cdbd2cSJim Jagielski
183*b1cdbd2cSJim Jagielski // Methods of XEventListener
184*b1cdbd2cSJim Jagielski virtual void SAL_CALL disposing(const EventObject& Source)
185*b1cdbd2cSJim Jagielski throw( RuntimeException );
186*b1cdbd2cSJim Jagielski };
187*b1cdbd2cSJim Jagielski
188*b1cdbd2cSJim Jagielski // Methods XAllListener
firing(const ScriptEvent & aScriptEvent)189*b1cdbd2cSJim Jagielski void BasicScriptListener_Impl::firing( const ScriptEvent& aScriptEvent ) throw ( RuntimeException )
190*b1cdbd2cSJim Jagielski {
191*b1cdbd2cSJim Jagielski firing_impl( aScriptEvent, NULL );
192*b1cdbd2cSJim Jagielski }
193*b1cdbd2cSJim Jagielski
approveFiring(const ScriptEvent & aScriptEvent)194*b1cdbd2cSJim Jagielski Any BasicScriptListener_Impl::approveFiring( const ScriptEvent& aScriptEvent )
195*b1cdbd2cSJim Jagielski throw ( InvocationTargetException, RuntimeException )
196*b1cdbd2cSJim Jagielski {
197*b1cdbd2cSJim Jagielski Any aRetAny;
198*b1cdbd2cSJim Jagielski firing_impl( aScriptEvent, &aRetAny );
199*b1cdbd2cSJim Jagielski return aRetAny;
200*b1cdbd2cSJim Jagielski }
201*b1cdbd2cSJim Jagielski
202*b1cdbd2cSJim Jagielski // Methods XEventListener
disposing(const EventObject &)203*b1cdbd2cSJim Jagielski void BasicScriptListener_Impl::disposing(const EventObject& ) throw ( RuntimeException )
204*b1cdbd2cSJim Jagielski {
205*b1cdbd2cSJim Jagielski // TODO: ???
206*b1cdbd2cSJim Jagielski //vos::OGuard guard( Application::GetSolarMutex() );
207*b1cdbd2cSJim Jagielski //xSbxObj.Clear();
208*b1cdbd2cSJim Jagielski }
209*b1cdbd2cSJim Jagielski
210*b1cdbd2cSJim Jagielski
firing_impl(const ScriptEvent & aScriptEvent,Any * pRet)211*b1cdbd2cSJim Jagielski void BasicScriptListener_Impl::firing_impl( const ScriptEvent& aScriptEvent, Any* pRet )
212*b1cdbd2cSJim Jagielski {
213*b1cdbd2cSJim Jagielski //Guard< Mutex > aGuard( Mutex::getGlobalMutex() );
214*b1cdbd2cSJim Jagielski //{
215*b1cdbd2cSJim Jagielski if( aScriptEvent.ScriptType.compareToAscii( "StarBasic" ) == 0 )
216*b1cdbd2cSJim Jagielski {
217*b1cdbd2cSJim Jagielski // Full qualified name?
218*b1cdbd2cSJim Jagielski String aMacro( aScriptEvent.ScriptCode );
219*b1cdbd2cSJim Jagielski String aLibName;
220*b1cdbd2cSJim Jagielski String aLocation;
221*b1cdbd2cSJim Jagielski if( aMacro.GetTokenCount( '.' ) == 3 )
222*b1cdbd2cSJim Jagielski {
223*b1cdbd2cSJim Jagielski sal_uInt16 nLast = 0;
224*b1cdbd2cSJim Jagielski ::rtl::OUString aFullLibName = aMacro.GetToken( 0, '.', nLast );
225*b1cdbd2cSJim Jagielski
226*b1cdbd2cSJim Jagielski sal_Int32 nIndex = aFullLibName.indexOf( (sal_Unicode)':' );
227*b1cdbd2cSJim Jagielski if (nIndex >= 0)
228*b1cdbd2cSJim Jagielski {
229*b1cdbd2cSJim Jagielski aLocation = aFullLibName.copy( 0, nIndex );
230*b1cdbd2cSJim Jagielski aLibName = aFullLibName.copy( nIndex + 1 );
231*b1cdbd2cSJim Jagielski }
232*b1cdbd2cSJim Jagielski
233*b1cdbd2cSJim Jagielski String aModul = aMacro.GetToken( 0, '.', nLast );
234*b1cdbd2cSJim Jagielski aMacro.Erase( 0, nLast );
235*b1cdbd2cSJim Jagielski }
236*b1cdbd2cSJim Jagielski
237*b1cdbd2cSJim Jagielski SbxObject* p = maBasicRef;
238*b1cdbd2cSJim Jagielski SbxObject* pParent = p->GetParent();
239*b1cdbd2cSJim Jagielski SbxObject* pParentParent = pParent ? pParent->GetParent() : NULL;
240*b1cdbd2cSJim Jagielski
241*b1cdbd2cSJim Jagielski StarBASICRef xAppStandardBasic;
242*b1cdbd2cSJim Jagielski StarBASICRef xDocStandardBasic;
243*b1cdbd2cSJim Jagielski if( pParentParent )
244*b1cdbd2cSJim Jagielski {
245*b1cdbd2cSJim Jagielski // Own basic must be document library
246*b1cdbd2cSJim Jagielski xAppStandardBasic = (StarBASIC*)pParentParent;
247*b1cdbd2cSJim Jagielski xDocStandardBasic = (StarBASIC*)pParent;
248*b1cdbd2cSJim Jagielski }
249*b1cdbd2cSJim Jagielski else if( pParent )
250*b1cdbd2cSJim Jagielski {
251*b1cdbd2cSJim Jagielski String aName = p->GetName();
252*b1cdbd2cSJim Jagielski if( aName.EqualsAscii("Standard") )
253*b1cdbd2cSJim Jagielski {
254*b1cdbd2cSJim Jagielski // Own basic is doc standard lib
255*b1cdbd2cSJim Jagielski xDocStandardBasic = (StarBASIC*)p;
256*b1cdbd2cSJim Jagielski }
257*b1cdbd2cSJim Jagielski xAppStandardBasic = (StarBASIC*)pParent;
258*b1cdbd2cSJim Jagielski }
259*b1cdbd2cSJim Jagielski else
260*b1cdbd2cSJim Jagielski {
261*b1cdbd2cSJim Jagielski xAppStandardBasic = (StarBASIC*)p;
262*b1cdbd2cSJim Jagielski }
263*b1cdbd2cSJim Jagielski
264*b1cdbd2cSJim Jagielski sal_Bool bSearchLib = true;
265*b1cdbd2cSJim Jagielski StarBASICRef xLibSearchBasic;
266*b1cdbd2cSJim Jagielski if( aLocation.EqualsAscii("application") )
267*b1cdbd2cSJim Jagielski xLibSearchBasic = xAppStandardBasic;
268*b1cdbd2cSJim Jagielski else if( aLocation.EqualsAscii("document") )
269*b1cdbd2cSJim Jagielski xLibSearchBasic = xDocStandardBasic;
270*b1cdbd2cSJim Jagielski else
271*b1cdbd2cSJim Jagielski bSearchLib = false;
272*b1cdbd2cSJim Jagielski
273*b1cdbd2cSJim Jagielski SbxVariable* pMethVar = NULL;
274*b1cdbd2cSJim Jagielski // Be still tolerant and make default search if no search basic exists
275*b1cdbd2cSJim Jagielski if( bSearchLib && xLibSearchBasic.Is() )
276*b1cdbd2cSJim Jagielski {
277*b1cdbd2cSJim Jagielski StarBASICRef xLibBasic;
278*b1cdbd2cSJim Jagielski sal_Int16 nCount = xLibSearchBasic->GetObjects()->Count();
279*b1cdbd2cSJim Jagielski for( sal_Int16 nObj = -1; nObj < nCount ; nObj++ )
280*b1cdbd2cSJim Jagielski {
281*b1cdbd2cSJim Jagielski StarBASIC* pBasic;
282*b1cdbd2cSJim Jagielski if( nObj == -1 )
283*b1cdbd2cSJim Jagielski {
284*b1cdbd2cSJim Jagielski pBasic = (StarBASIC*)xLibSearchBasic;
285*b1cdbd2cSJim Jagielski }
286*b1cdbd2cSJim Jagielski else
287*b1cdbd2cSJim Jagielski {
288*b1cdbd2cSJim Jagielski SbxVariable* pVar = xLibSearchBasic->GetObjects()->Get( nObj );
289*b1cdbd2cSJim Jagielski pBasic = PTR_CAST(StarBASIC,pVar);
290*b1cdbd2cSJim Jagielski }
291*b1cdbd2cSJim Jagielski if( pBasic )
292*b1cdbd2cSJim Jagielski {
293*b1cdbd2cSJim Jagielski String aName = pBasic->GetName();
294*b1cdbd2cSJim Jagielski if( aName == aLibName )
295*b1cdbd2cSJim Jagielski {
296*b1cdbd2cSJim Jagielski // Search only in the lib, not automatically in application basic
297*b1cdbd2cSJim Jagielski sal_uInt16 nFlags = pBasic->GetFlags();
298*b1cdbd2cSJim Jagielski pBasic->ResetFlag( SBX_GBLSEARCH );
299*b1cdbd2cSJim Jagielski pMethVar = pBasic->Find( aMacro, SbxCLASS_DONTCARE );
300*b1cdbd2cSJim Jagielski pBasic->SetFlags( nFlags );
301*b1cdbd2cSJim Jagielski break;
302*b1cdbd2cSJim Jagielski }
303*b1cdbd2cSJim Jagielski }
304*b1cdbd2cSJim Jagielski }
305*b1cdbd2cSJim Jagielski }
306*b1cdbd2cSJim Jagielski
307*b1cdbd2cSJim Jagielski // Default: Be tolerant and search everywhere
308*b1cdbd2cSJim Jagielski if( (!pMethVar || !pMethVar->ISA(SbMethod)) && maBasicRef.Is() )
309*b1cdbd2cSJim Jagielski pMethVar = maBasicRef->FindQualified( aMacro, SbxCLASS_DONTCARE );
310*b1cdbd2cSJim Jagielski
311*b1cdbd2cSJim Jagielski SbMethod* pMeth = PTR_CAST(SbMethod,pMethVar);
312*b1cdbd2cSJim Jagielski if( !pMeth )
313*b1cdbd2cSJim Jagielski return;
314*b1cdbd2cSJim Jagielski
315*b1cdbd2cSJim Jagielski // Setup parameters
316*b1cdbd2cSJim Jagielski SbxArrayRef xArray;
317*b1cdbd2cSJim Jagielski String aTmp;
318*b1cdbd2cSJim Jagielski sal_Int32 nCnt = aScriptEvent.Arguments.getLength();
319*b1cdbd2cSJim Jagielski if( nCnt )
320*b1cdbd2cSJim Jagielski {
321*b1cdbd2cSJim Jagielski xArray = new SbxArray;
322*b1cdbd2cSJim Jagielski const Any *pArgs = aScriptEvent.Arguments.getConstArray();
323*b1cdbd2cSJim Jagielski for( sal_Int32 i = 0; i < nCnt; i++ )
324*b1cdbd2cSJim Jagielski {
325*b1cdbd2cSJim Jagielski SbxVariableRef xVar = new SbxVariable( SbxVARIANT );
326*b1cdbd2cSJim Jagielski unoToSbxValue( (SbxVariable*)xVar, pArgs[i] );
327*b1cdbd2cSJim Jagielski xArray->Put( xVar, sal::static_int_cast< sal_uInt16 >(i+1) );
328*b1cdbd2cSJim Jagielski }
329*b1cdbd2cSJim Jagielski }
330*b1cdbd2cSJim Jagielski
331*b1cdbd2cSJim Jagielski // Call method
332*b1cdbd2cSJim Jagielski SbxVariableRef xValue = pRet ? new SbxVariable : 0;
333*b1cdbd2cSJim Jagielski if( xArray.Is() )
334*b1cdbd2cSJim Jagielski pMeth->SetParameters( xArray );
335*b1cdbd2cSJim Jagielski pMeth->Call( xValue );
336*b1cdbd2cSJim Jagielski if( pRet )
337*b1cdbd2cSJim Jagielski *pRet = sbxToUnoValue( xValue );
338*b1cdbd2cSJim Jagielski pMeth->SetParameters( NULL );
339*b1cdbd2cSJim Jagielski }
340*b1cdbd2cSJim Jagielski else // scripting framework script
341*b1cdbd2cSJim Jagielski {
342*b1cdbd2cSJim Jagielski //callBasic via scripting framework
343*b1cdbd2cSJim Jagielski SFURL_firing_impl( aScriptEvent, pRet, m_xModel );
344*b1cdbd2cSJim Jagielski
345*b1cdbd2cSJim Jagielski }
346*b1cdbd2cSJim Jagielski }
347*b1cdbd2cSJim Jagielski
implFindDialogLibForDialog(const Any & rDlgAny,SbxObject * pBasic)348*b1cdbd2cSJim Jagielski Any implFindDialogLibForDialog( const Any& rDlgAny, SbxObject* pBasic )
349*b1cdbd2cSJim Jagielski {
350*b1cdbd2cSJim Jagielski Any aRetDlgLibAny;
351*b1cdbd2cSJim Jagielski
352*b1cdbd2cSJim Jagielski SbxVariable* pDlgLibContVar = pBasic->Find
353*b1cdbd2cSJim Jagielski ( String::CreateFromAscii("DialogLibraries"), SbxCLASS_OBJECT );
354*b1cdbd2cSJim Jagielski if( pDlgLibContVar && pDlgLibContVar->ISA(SbUnoObject) )
355*b1cdbd2cSJim Jagielski {
356*b1cdbd2cSJim Jagielski SbUnoObject* pDlgLibContUnoObj = (SbUnoObject*)(SbxBase*)pDlgLibContVar;
357*b1cdbd2cSJim Jagielski Any aDlgLibContAny = pDlgLibContUnoObj->getUnoAny();
358*b1cdbd2cSJim Jagielski
359*b1cdbd2cSJim Jagielski Reference< XLibraryContainer > xDlgLibContNameAccess( aDlgLibContAny, UNO_QUERY );
360*b1cdbd2cSJim Jagielski OSL_ENSURE( xDlgLibContNameAccess.is(), "implFindDialogLibForDialog: no lib container for the given dialog!" );
361*b1cdbd2cSJim Jagielski if( xDlgLibContNameAccess.is() )
362*b1cdbd2cSJim Jagielski {
363*b1cdbd2cSJim Jagielski Sequence< ::rtl::OUString > aLibNames = xDlgLibContNameAccess->getElementNames();
364*b1cdbd2cSJim Jagielski const ::rtl::OUString* pLibNames = aLibNames.getConstArray();
365*b1cdbd2cSJim Jagielski sal_Int32 nLibNameCount = aLibNames.getLength();
366*b1cdbd2cSJim Jagielski
367*b1cdbd2cSJim Jagielski for( sal_Int32 iLib = 0 ; iLib < nLibNameCount ; iLib++ )
368*b1cdbd2cSJim Jagielski {
369*b1cdbd2cSJim Jagielski if ( !xDlgLibContNameAccess->isLibraryLoaded( pLibNames[ iLib ] ) )
370*b1cdbd2cSJim Jagielski // if the library isn't loaded, then the dialog cannot originate from this lib
371*b1cdbd2cSJim Jagielski continue;
372*b1cdbd2cSJim Jagielski
373*b1cdbd2cSJim Jagielski Any aDlgLibAny = xDlgLibContNameAccess->getByName( pLibNames[ iLib ] );
374*b1cdbd2cSJim Jagielski
375*b1cdbd2cSJim Jagielski Reference< XNameAccess > xDlgLibNameAccess( aDlgLibAny, UNO_QUERY );
376*b1cdbd2cSJim Jagielski OSL_ENSURE( xDlgLibNameAccess.is(), "implFindDialogLibForDialog: invalid dialog lib!" );
377*b1cdbd2cSJim Jagielski if( xDlgLibNameAccess.is() )
378*b1cdbd2cSJim Jagielski {
379*b1cdbd2cSJim Jagielski Sequence< ::rtl::OUString > aDlgNames = xDlgLibNameAccess->getElementNames();
380*b1cdbd2cSJim Jagielski const ::rtl::OUString* pDlgNames = aDlgNames.getConstArray();
381*b1cdbd2cSJim Jagielski sal_Int32 nDlgNameCount = aDlgNames.getLength();
382*b1cdbd2cSJim Jagielski
383*b1cdbd2cSJim Jagielski for( sal_Int32 iDlg = 0 ; iDlg < nDlgNameCount ; iDlg++ )
384*b1cdbd2cSJim Jagielski {
385*b1cdbd2cSJim Jagielski Any aDlgAny = xDlgLibNameAccess->getByName( pDlgNames[ iDlg ] );
386*b1cdbd2cSJim Jagielski if( aDlgAny == rDlgAny )
387*b1cdbd2cSJim Jagielski {
388*b1cdbd2cSJim Jagielski aRetDlgLibAny = aDlgLibAny;
389*b1cdbd2cSJim Jagielski break;
390*b1cdbd2cSJim Jagielski }
391*b1cdbd2cSJim Jagielski }
392*b1cdbd2cSJim Jagielski }
393*b1cdbd2cSJim Jagielski }
394*b1cdbd2cSJim Jagielski }
395*b1cdbd2cSJim Jagielski }
396*b1cdbd2cSJim Jagielski
397*b1cdbd2cSJim Jagielski return aRetDlgLibAny;
398*b1cdbd2cSJim Jagielski }
399*b1cdbd2cSJim Jagielski
implFindDialogLibForDialogBasic(const Any & aAnyISP,SbxObject * pBasic,StarBASIC * & pFoundBasic)400*b1cdbd2cSJim Jagielski Any implFindDialogLibForDialogBasic( const Any& aAnyISP, SbxObject* pBasic, StarBASIC*& pFoundBasic )
401*b1cdbd2cSJim Jagielski {
402*b1cdbd2cSJim Jagielski Any aDlgLibAny;
403*b1cdbd2cSJim Jagielski // Find dialog library for dialog, direct access is not possible here
404*b1cdbd2cSJim Jagielski StarBASIC* pStartedBasic = (StarBASIC*)pBasic;
405*b1cdbd2cSJim Jagielski SbxObject* pParentBasic = pStartedBasic ? pStartedBasic->GetParent() : NULL;
406*b1cdbd2cSJim Jagielski SbxObject* pParentParentBasic = pParentBasic ? pParentBasic->GetParent() : NULL;
407*b1cdbd2cSJim Jagielski
408*b1cdbd2cSJim Jagielski SbxObject* pSearchBasic1 = NULL;
409*b1cdbd2cSJim Jagielski SbxObject* pSearchBasic2 = NULL;
410*b1cdbd2cSJim Jagielski if( pParentParentBasic )
411*b1cdbd2cSJim Jagielski {
412*b1cdbd2cSJim Jagielski pSearchBasic1 = pParentBasic;
413*b1cdbd2cSJim Jagielski pSearchBasic2 = pParentParentBasic;
414*b1cdbd2cSJim Jagielski }
415*b1cdbd2cSJim Jagielski else
416*b1cdbd2cSJim Jagielski {
417*b1cdbd2cSJim Jagielski pSearchBasic1 = pStartedBasic;
418*b1cdbd2cSJim Jagielski pSearchBasic2 = pParentBasic;
419*b1cdbd2cSJim Jagielski }
420*b1cdbd2cSJim Jagielski if( pSearchBasic1 )
421*b1cdbd2cSJim Jagielski {
422*b1cdbd2cSJim Jagielski aDlgLibAny = implFindDialogLibForDialog( aAnyISP, pSearchBasic1 );
423*b1cdbd2cSJim Jagielski
424*b1cdbd2cSJim Jagielski if ( aDlgLibAny.hasValue() )
425*b1cdbd2cSJim Jagielski pFoundBasic = (StarBASIC*)pSearchBasic1;
426*b1cdbd2cSJim Jagielski
427*b1cdbd2cSJim Jagielski else if( pSearchBasic2 )
428*b1cdbd2cSJim Jagielski {
429*b1cdbd2cSJim Jagielski aDlgLibAny = implFindDialogLibForDialog( aAnyISP, pSearchBasic2 );
430*b1cdbd2cSJim Jagielski if ( aDlgLibAny.hasValue() )
431*b1cdbd2cSJim Jagielski pFoundBasic = (StarBASIC*)pSearchBasic2;
432*b1cdbd2cSJim Jagielski }
433*b1cdbd2cSJim Jagielski }
434*b1cdbd2cSJim Jagielski return aDlgLibAny;
435*b1cdbd2cSJim Jagielski }
436*b1cdbd2cSJim Jagielski
437*b1cdbd2cSJim Jagielski static ::rtl::OUString aDecorationPropName =
438*b1cdbd2cSJim Jagielski ::rtl::OUString::createFromAscii( "Decoration" );
439*b1cdbd2cSJim Jagielski static ::rtl::OUString aTitlePropName =
440*b1cdbd2cSJim Jagielski ::rtl::OUString::createFromAscii( "Title" );
441*b1cdbd2cSJim Jagielski
RTL_Impl_CreateUnoDialog(StarBASIC * pBasic,SbxArray & rPar,sal_Bool bWrite)442*b1cdbd2cSJim Jagielski void RTL_Impl_CreateUnoDialog( StarBASIC* pBasic, SbxArray& rPar, sal_Bool bWrite )
443*b1cdbd2cSJim Jagielski {
444*b1cdbd2cSJim Jagielski static ::rtl::OUString aResourceResolverPropName = ::rtl::OUString::createFromAscii( "ResourceResolver" );
445*b1cdbd2cSJim Jagielski
446*b1cdbd2cSJim Jagielski (void)pBasic;
447*b1cdbd2cSJim Jagielski (void)bWrite;
448*b1cdbd2cSJim Jagielski
449*b1cdbd2cSJim Jagielski Reference< XMultiServiceFactory > xMSF( comphelper::getProcessServiceFactory() );
450*b1cdbd2cSJim Jagielski if( !xMSF.is() )
451*b1cdbd2cSJim Jagielski return;
452*b1cdbd2cSJim Jagielski
453*b1cdbd2cSJim Jagielski // We need at least 1 parameter
454*b1cdbd2cSJim Jagielski if ( rPar.Count() < 2 )
455*b1cdbd2cSJim Jagielski {
456*b1cdbd2cSJim Jagielski StarBASIC::Error( SbERR_BAD_ARGUMENT );
457*b1cdbd2cSJim Jagielski return;
458*b1cdbd2cSJim Jagielski }
459*b1cdbd2cSJim Jagielski
460*b1cdbd2cSJim Jagielski // Get dialog
461*b1cdbd2cSJim Jagielski SbxBaseRef pObj = (SbxBase*)rPar.Get( 1 )->GetObject();
462*b1cdbd2cSJim Jagielski if( !(pObj && pObj->ISA(SbUnoObject)) )
463*b1cdbd2cSJim Jagielski {
464*b1cdbd2cSJim Jagielski StarBASIC::Error( SbERR_BAD_ARGUMENT );
465*b1cdbd2cSJim Jagielski return;
466*b1cdbd2cSJim Jagielski }
467*b1cdbd2cSJim Jagielski SbUnoObject* pUnoObj = (SbUnoObject*)(SbxBase*)pObj;
468*b1cdbd2cSJim Jagielski Any aAnyISP = pUnoObj->getUnoAny();
469*b1cdbd2cSJim Jagielski TypeClass eType = aAnyISP.getValueType().getTypeClass();
470*b1cdbd2cSJim Jagielski
471*b1cdbd2cSJim Jagielski if( eType != TypeClass_INTERFACE )
472*b1cdbd2cSJim Jagielski {
473*b1cdbd2cSJim Jagielski StarBASIC::Error( SbERR_BAD_ARGUMENT );
474*b1cdbd2cSJim Jagielski return;
475*b1cdbd2cSJim Jagielski }
476*b1cdbd2cSJim Jagielski
477*b1cdbd2cSJim Jagielski // Create new uno dialog
478*b1cdbd2cSJim Jagielski Reference< XNameContainer > xDialogModel( xMSF->createInstance
479*b1cdbd2cSJim Jagielski ( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.UnoControlDialogModel" ) ) ),
480*b1cdbd2cSJim Jagielski UNO_QUERY );
481*b1cdbd2cSJim Jagielski if( !xDialogModel.is() )
482*b1cdbd2cSJim Jagielski return;
483*b1cdbd2cSJim Jagielski
484*b1cdbd2cSJim Jagielski Reference< XInputStreamProvider > xISP;
485*b1cdbd2cSJim Jagielski aAnyISP >>= xISP;
486*b1cdbd2cSJim Jagielski if( !xISP.is() )
487*b1cdbd2cSJim Jagielski return;
488*b1cdbd2cSJim Jagielski
489*b1cdbd2cSJim Jagielski Reference< XComponentContext > xContext;
490*b1cdbd2cSJim Jagielski Reference< XPropertySet > xProps( xMSF, UNO_QUERY );
491*b1cdbd2cSJim Jagielski OSL_ASSERT( xProps.is() );
492*b1cdbd2cSJim Jagielski OSL_VERIFY( xProps->getPropertyValue( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("DefaultContext")) ) >>= xContext );
493*b1cdbd2cSJim Jagielski
494*b1cdbd2cSJim Jagielski // Import the DialogModel
495*b1cdbd2cSJim Jagielski Reference< XInputStream > xInput( xISP->createInputStream() );
496*b1cdbd2cSJim Jagielski
497*b1cdbd2cSJim Jagielski // i83963 Force decoration
498*b1cdbd2cSJim Jagielski uno::Reference< beans::XPropertySet > xDlgModPropSet( xDialogModel, uno::UNO_QUERY );
499*b1cdbd2cSJim Jagielski if( xDlgModPropSet.is() )
500*b1cdbd2cSJim Jagielski {
501*b1cdbd2cSJim Jagielski bool bDecoration = true;
502*b1cdbd2cSJim Jagielski try
503*b1cdbd2cSJim Jagielski {
504*b1cdbd2cSJim Jagielski Any aDecorationAny = xDlgModPropSet->getPropertyValue( aDecorationPropName );
505*b1cdbd2cSJim Jagielski aDecorationAny >>= bDecoration;
506*b1cdbd2cSJim Jagielski if( !bDecoration )
507*b1cdbd2cSJim Jagielski {
508*b1cdbd2cSJim Jagielski xDlgModPropSet->setPropertyValue( aDecorationPropName, makeAny( true ) );
509*b1cdbd2cSJim Jagielski xDlgModPropSet->setPropertyValue( aTitlePropName, makeAny( ::rtl::OUString() ) );
510*b1cdbd2cSJim Jagielski }
511*b1cdbd2cSJim Jagielski }
512*b1cdbd2cSJim Jagielski catch( UnknownPropertyException& )
513*b1cdbd2cSJim Jagielski {}
514*b1cdbd2cSJim Jagielski }
515*b1cdbd2cSJim Jagielski
516*b1cdbd2cSJim Jagielski Any aDlgLibAny;
517*b1cdbd2cSJim Jagielski bool bDocDialog = false;
518*b1cdbd2cSJim Jagielski StarBASIC* pFoundBasic = NULL;
519*b1cdbd2cSJim Jagielski OSL_TRACE("About to try get a hold of ThisComponent");
520*b1cdbd2cSJim Jagielski Reference< frame::XModel > xModel = StarBASIC::GetModelFromBasic( pINST->GetBasic() ) ;
521*b1cdbd2cSJim Jagielski aDlgLibAny = implFindDialogLibForDialogBasic( aAnyISP, pINST->GetBasic(), pFoundBasic );
522*b1cdbd2cSJim Jagielski // If we found the dialog then it belongs to the Search basic
523*b1cdbd2cSJim Jagielski if ( !pFoundBasic )
524*b1cdbd2cSJim Jagielski {
525*b1cdbd2cSJim Jagielski Reference< frame::XDesktop > xDesktop( xMSF->createInstance
526*b1cdbd2cSJim Jagielski ( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.frame.Desktop" ) ) ),
527*b1cdbd2cSJim Jagielski UNO_QUERY );
528*b1cdbd2cSJim Jagielski Reference< container::XEnumeration > xModels;
529*b1cdbd2cSJim Jagielski if ( xDesktop.is() )
530*b1cdbd2cSJim Jagielski {
531*b1cdbd2cSJim Jagielski Reference< container::XEnumerationAccess > xComponents( xDesktop->getComponents(), UNO_QUERY );
532*b1cdbd2cSJim Jagielski if ( xComponents.is() )
533*b1cdbd2cSJim Jagielski xModels.set( xComponents->createEnumeration(), UNO_QUERY );
534*b1cdbd2cSJim Jagielski if ( xModels.is() )
535*b1cdbd2cSJim Jagielski {
536*b1cdbd2cSJim Jagielski while ( xModels->hasMoreElements() )
537*b1cdbd2cSJim Jagielski {
538*b1cdbd2cSJim Jagielski Reference< frame::XModel > xNextModel( xModels->nextElement(), UNO_QUERY );
539*b1cdbd2cSJim Jagielski if ( xNextModel.is() )
540*b1cdbd2cSJim Jagielski {
541*b1cdbd2cSJim Jagielski BasicManager* pMgr = basic::BasicManagerRepository::getDocumentBasicManager( xNextModel );
542*b1cdbd2cSJim Jagielski if ( pMgr )
543*b1cdbd2cSJim Jagielski aDlgLibAny = implFindDialogLibForDialogBasic( aAnyISP, pMgr->GetLib(0), pFoundBasic );
544*b1cdbd2cSJim Jagielski if ( aDlgLibAny.hasValue() )
545*b1cdbd2cSJim Jagielski {
546*b1cdbd2cSJim Jagielski bDocDialog = true;
547*b1cdbd2cSJim Jagielski xModel = xNextModel;
548*b1cdbd2cSJim Jagielski break;
549*b1cdbd2cSJim Jagielski }
550*b1cdbd2cSJim Jagielski }
551*b1cdbd2cSJim Jagielski }
552*b1cdbd2cSJim Jagielski }
553*b1cdbd2cSJim Jagielski }
554*b1cdbd2cSJim Jagielski }
555*b1cdbd2cSJim Jagielski if ( pFoundBasic )
556*b1cdbd2cSJim Jagielski bDocDialog = pFoundBasic->IsDocBasic();
557*b1cdbd2cSJim Jagielski Reference< XScriptListener > xScriptListener = new BasicScriptListener_Impl( pINST->GetBasic(), xModel );
558*b1cdbd2cSJim Jagielski
559*b1cdbd2cSJim Jagielski Sequence< Any > aArgs( 4 );
560*b1cdbd2cSJim Jagielski if( bDocDialog )
561*b1cdbd2cSJim Jagielski aArgs[ 0 ] <<= xModel;
562*b1cdbd2cSJim Jagielski else
563*b1cdbd2cSJim Jagielski aArgs[ 0 ] <<= uno::Reference< uno::XInterface >();
564*b1cdbd2cSJim Jagielski aArgs[ 1 ] <<= xInput;
565*b1cdbd2cSJim Jagielski aArgs[ 2 ] = aDlgLibAny;
566*b1cdbd2cSJim Jagielski aArgs[ 3 ] <<= xScriptListener;
567*b1cdbd2cSJim Jagielski // Create a "living" Dialog
568*b1cdbd2cSJim Jagielski Reference< XControl > xCntrl;
569*b1cdbd2cSJim Jagielski try
570*b1cdbd2cSJim Jagielski {
571*b1cdbd2cSJim Jagielski Reference< XDialogProvider > xDlgProv( xMSF->createInstanceWithArguments( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.comp.scripting.DialogProvider" ) ), aArgs ), UNO_QUERY );
572*b1cdbd2cSJim Jagielski xCntrl.set( xDlgProv->createDialog( rtl::OUString() ), UNO_QUERY_THROW );
573*b1cdbd2cSJim Jagielski // Add dialog model to dispose vector
574*b1cdbd2cSJim Jagielski Reference< XComponent > xDlgComponent( xCntrl->getModel(), UNO_QUERY );
575*b1cdbd2cSJim Jagielski pINST->getComponentVector().push_back( xDlgComponent );
576*b1cdbd2cSJim Jagielski // need ThisCompoent from calling script
577*b1cdbd2cSJim Jagielski }
578*b1cdbd2cSJim Jagielski // preserve existing bad behaviour, it's possible... but probably
579*b1cdbd2cSJim Jagielski // illegal to open 2 dialogs ( they ARE modal ) when this happens, sometimes
580*b1cdbd2cSJim Jagielski // create dialog fails. So, in this case let's not throw, just leave basic
581*b1cdbd2cSJim Jagielski // detect the unset object.
582*b1cdbd2cSJim Jagielski catch( uno::Exception& )
583*b1cdbd2cSJim Jagielski {
584*b1cdbd2cSJim Jagielski }
585*b1cdbd2cSJim Jagielski
586*b1cdbd2cSJim Jagielski // Return dialog
587*b1cdbd2cSJim Jagielski Any aRetVal;
588*b1cdbd2cSJim Jagielski aRetVal <<= xCntrl;
589*b1cdbd2cSJim Jagielski SbxVariableRef refVar = rPar.Get(0);
590*b1cdbd2cSJim Jagielski unoToSbxValue( (SbxVariable*)refVar, aRetVal );
591*b1cdbd2cSJim Jagielski }
592*b1cdbd2cSJim Jagielski
593*b1cdbd2cSJim Jagielski
594*b1cdbd2cSJim Jagielski //===================================================================
595*b1cdbd2cSJim Jagielski
596