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