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