LCOV - code coverage report
Current view: top level - libreoffice/scripting/source/dlgprov - dlgevtatt.cxx (source / functions) Hit Total Coverage
Test: libreoffice_filtered.info Lines: 0 287 0.0 %
Date: 2012-12-27 Functions: 0 36 0.0 %
Legend: Lines: hit not hit

          Line data    Source code
       1             : /* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
       2             : /*
       3             :  * This file is part of the LibreOffice project.
       4             :  *
       5             :  * This Source Code Form is subject to the terms of the Mozilla Public
       6             :  * License, v. 2.0. If a copy of the MPL was not distributed with this
       7             :  * file, You can obtain one at http://mozilla.org/MPL/2.0/.
       8             :  *
       9             :  * This file incorporates work covered by the following license notice:
      10             :  *
      11             :  *   Licensed to the Apache Software Foundation (ASF) under one or more
      12             :  *   contributor license agreements. See the NOTICE file distributed
      13             :  *   with this work for additional information regarding copyright
      14             :  *   ownership. The ASF licenses this file to you under the Apache
      15             :  *   License, Version 2.0 (the "License"); you may not use this file
      16             :  *   except in compliance with the License. You may obtain a copy of
      17             :  *   the License at http://www.apache.org/licenses/LICENSE-2.0 .
      18             :  */
      19             : 
      20             : #include "dlgevtatt.hxx"
      21             : 
      22             : #include "dlgprov.hxx"
      23             : 
      24             : #include <sfx2/sfx.hrc>
      25             : #include <sfx2/app.hxx>
      26             : #include <vcl/msgbox.hxx>
      27             : #include <tools/diagnose_ex.h>
      28             : 
      29             : #include <com/sun/star/awt/XControl.hpp>
      30             : #include <com/sun/star/awt/XControlContainer.hpp>
      31             : #include <com/sun/star/awt/XDialogEventHandler.hpp>
      32             : #include <com/sun/star/awt/XContainerWindowEventHandler.hpp>
      33             : #include <com/sun/star/beans/XPropertySet.hpp>
      34             : #include <com/sun/star/script/ScriptEventDescriptor.hpp>
      35             : #include <com/sun/star/script/XScriptEventsSupplier.hpp>
      36             : #include <com/sun/star/script/provider/XScriptProvider.hpp>
      37             : #include <com/sun/star/script/provider/XScriptProviderFactory.hpp>
      38             : #include <com/sun/star/script/provider/XScriptProviderSupplier.hpp>
      39             : #include <com/sun/star/script/vba/XVBACompatibility.hpp>
      40             : #include <com/sun/star/lang/NoSuchMethodException.hpp>
      41             : #include <com/sun/star/reflection/XIdlMethod.hpp>
      42             : #include <com/sun/star/beans/MethodConcept.hpp>
      43             : #include <com/sun/star/beans/XMaterialHolder.hpp>
      44             : 
      45             : #include <ooo/vba/XVBAToOOEventDescGen.hpp>
      46             : 
      47             : using namespace ::com::sun::star;
      48             : using namespace ::com::sun::star::awt;
      49             : using namespace ::com::sun::star::beans;
      50             : using namespace ::com::sun::star::lang;
      51             : using namespace ::com::sun::star::script;
      52             : using namespace ::com::sun::star::uno;
      53             : using namespace ::com::sun::star::script;
      54             : using namespace ::com::sun::star::reflection;
      55             : 
      56             : 
      57             : //.........................................................................
      58             : namespace dlgprov
      59             : {
      60             : 
      61           0 :   class DialogSFScriptListenerImpl : public DialogScriptListenerImpl
      62             :     {
      63             :         protected:
      64             :         Reference< frame::XModel >  m_xModel;
      65             :         virtual void firing_impl( const script::ScriptEvent& aScriptEvent, uno::Any* pRet );
      66             :         public:
      67           0 :         DialogSFScriptListenerImpl( const Reference< XComponentContext >& rxContext, const Reference< frame::XModel >& rxModel ) : DialogScriptListenerImpl( rxContext ), m_xModel( rxModel ) {}
      68             :     };
      69             : 
      70           0 :   class DialogLegacyScriptListenerImpl : public DialogSFScriptListenerImpl
      71             :     {
      72             :         protected:
      73             :         virtual void firing_impl( const script::ScriptEvent& aScriptEvent, uno::Any* pRet );
      74             :         public:
      75           0 :         DialogLegacyScriptListenerImpl( const Reference< XComponentContext >& rxContext, const Reference< frame::XModel >& rxModel ) : DialogSFScriptListenerImpl( rxContext, rxModel ){}
      76             :     };
      77             : 
      78           0 :   class DialogUnoScriptListenerImpl : public DialogSFScriptListenerImpl
      79             :     {
      80             :     Reference< awt::XControl > m_xControl;
      81             :         Reference< XInterface > m_xHandler;
      82             :     Reference< beans::XIntrospectionAccess > m_xIntrospectionAccess;
      83             :     bool m_bDialogProviderMode;
      84             : 
      85             :         virtual void firing_impl( const script::ScriptEvent& aScriptEvent, uno::Any* pRet );
      86             : 
      87             :     public:
      88             :         DialogUnoScriptListenerImpl( const Reference< XComponentContext >& rxContext,
      89             :             const Reference< frame::XModel >& rxModel,
      90             :             const Reference< awt::XControl >& rxControl,
      91             :             const Reference< XInterface >& rxHandler,
      92             :             const Reference< beans::XIntrospectionAccess >& rxIntrospectionAccess,
      93             :             bool bDialogProviderMode );     // false: ContainerWindowProvider mode
      94             : 
      95             :     };
      96             : 
      97           0 :   class DialogVBAScriptListenerImpl : public DialogScriptListenerImpl
      98             :     {
      99             :         protected:
     100             :         rtl::OUString msDialogCodeName;
     101             :         rtl::OUString msDialogLibName;
     102             :         Reference<  script::XScriptListener > mxListener;
     103             :         virtual void firing_impl( const script::ScriptEvent& aScriptEvent, uno::Any* pRet );
     104             :         public:
     105             :         DialogVBAScriptListenerImpl( const Reference< XComponentContext >& rxContext, const Reference< awt::XControl >& rxControl, const Reference< frame::XModel >& xModel, const rtl::OUString& sDialogLibName );
     106             :     };
     107             : 
     108           0 :     DialogVBAScriptListenerImpl::DialogVBAScriptListenerImpl( const Reference< XComponentContext >& rxContext, const Reference< awt::XControl >& rxControl, const Reference< frame::XModel >& xModel, const rtl::OUString& sDialogLibName ) : DialogScriptListenerImpl( rxContext ), msDialogLibName( sDialogLibName )
     109             :     {
     110           0 :         Reference< XMultiComponentFactory > xSMgr( m_xContext->getServiceManager() );
     111           0 :         Sequence< Any > args(1);
     112           0 :         if ( xSMgr.is() )
     113             :         {
     114           0 :             args[0] <<= xModel;
     115           0 :             mxListener = Reference< XScriptListener >( xSMgr->createInstanceWithArgumentsAndContext( ::rtl::OUString( "ooo.vba.EventListener"  ), args, m_xContext ), UNO_QUERY );
     116             :         }
     117           0 :         if ( rxControl.is() )
     118             :         {
     119             :             try
     120             :             {
     121           0 :                 Reference< XPropertySet > xProps( rxControl->getModel(), UNO_QUERY_THROW );
     122           0 :                 xProps->getPropertyValue( rtl::OUString("Name" ) ) >>= msDialogCodeName;
     123           0 :                 xProps.set( mxListener, UNO_QUERY_THROW );
     124           0 :                 xProps->setPropertyValue( rtl::OUString("Model" ), args[ 0 ] );
     125             :             }
     126           0 :             catch( const Exception& )
     127             :             {
     128             :                 DBG_UNHANDLED_EXCEPTION();
     129             :             }
     130           0 :         }
     131             : 
     132           0 :     }
     133             : 
     134           0 :     void DialogVBAScriptListenerImpl::firing_impl( const script::ScriptEvent& aScriptEvent, uno::Any* )
     135             :     {
     136           0 :         if ( aScriptEvent.ScriptType == "VBAInterop" && mxListener.is() )
     137             :         {
     138           0 :             ScriptEvent aScriptEventCopy( aScriptEvent );
     139           0 :             aScriptEventCopy.ScriptCode = msDialogLibName.concat( rtl::OUString( "."  ) ).concat( msDialogCodeName );
     140             :             try
     141             :             {
     142           0 :                 mxListener->firing( aScriptEventCopy );
     143             :             }
     144           0 :             catch( const Exception& )
     145             :             {
     146             :                 DBG_UNHANDLED_EXCEPTION();
     147           0 :             }
     148             :         }
     149           0 :     }
     150             : 
     151             : //.........................................................................
     152             : 
     153             :     // =============================================================================
     154             :     // DialogEventsAttacherImpl
     155             :     // =============================================================================
     156             : 
     157           0 :     DialogEventsAttacherImpl::DialogEventsAttacherImpl( const Reference< XComponentContext >& rxContext, const Reference< frame::XModel >& rxModel, const Reference< awt::XControl >& rxControl, const Reference< XInterface >& rxHandler, const Reference< beans::XIntrospectionAccess >& rxIntrospect, bool bProviderMode, const Reference< script::XScriptListener >& rxRTLListener, const rtl::OUString& sDialogLibName )
     158           0 :         :mbUseFakeVBAEvents( false ), m_xContext( rxContext )
     159             :     {
     160             :         // key listeners by protocol when ScriptType = 'Script'
     161             :         // otherwise key is the ScriptType e.g. StarBasic
     162           0 :         if ( rxRTLListener.is() ) // set up handler for RTL_BASIC
     163           0 :             listernersForTypes[ rtl::OUString("StarBasic") ] = rxRTLListener;
     164             :         else
     165           0 :             listernersForTypes[ rtl::OUString("StarBasic") ] = new DialogLegacyScriptListenerImpl( rxContext, rxModel );
     166             :         // handler for Script & ::rtl::OUString("vnd.sun.star.UNO:")
     167           0 :         listernersForTypes[ rtl::OUString("vnd.sun.star.UNO") ] = new DialogUnoScriptListenerImpl( rxContext, rxModel, rxControl, rxHandler, rxIntrospect, bProviderMode );
     168           0 :         listernersForTypes[ rtl::OUString("vnd.sun.star.script") ] = new DialogSFScriptListenerImpl( rxContext, rxModel );
     169             : 
     170             :         // determine the VBA compatibility mode from the Basic library container
     171             :         try
     172             :         {
     173           0 :             uno::Reference< beans::XPropertySet > xModelProps( rxModel, uno::UNO_QUERY_THROW );
     174             :             uno::Reference< script::vba::XVBACompatibility > xVBACompat(
     175           0 :                 xModelProps->getPropertyValue( ::rtl::OUString( "BasicLibraries"  ) ), uno::UNO_QUERY_THROW );
     176           0 :             mbUseFakeVBAEvents = xVBACompat->getVBACompatibilityMode();
     177             :         }
     178           0 :         catch( uno::Exception& )
     179             :         {
     180             :         }
     181           0 :         if ( mbUseFakeVBAEvents )
     182           0 :             listernersForTypes[ rtl::OUString("VBAInterop") ] = new DialogVBAScriptListenerImpl( rxContext, rxControl, rxModel, sDialogLibName );
     183           0 :     }
     184             : 
     185             :     // -----------------------------------------------------------------------------
     186             : 
     187           0 :     DialogEventsAttacherImpl::~DialogEventsAttacherImpl()
     188             :     {
     189           0 :     }
     190             : 
     191             :     // -----------------------------------------------------------------------------
     192             :     Reference< script::XScriptListener >
     193           0 :     DialogEventsAttacherImpl::getScriptListenerForKey( const rtl::OUString& sKey ) throw ( RuntimeException )
     194             :     {
     195           0 :         ListenerHash::iterator it = listernersForTypes.find( sKey );
     196           0 :         if ( it == listernersForTypes.end() )
     197           0 :             throw RuntimeException(); // more text info here please
     198           0 :         return it->second;
     199             :     }
     200           0 :     Reference< XScriptEventsSupplier > DialogEventsAttacherImpl::getFakeVbaEventsSupplier( const Reference< XControl >& xControl, rtl::OUString& sControlName )
     201             :     {
     202           0 :         Reference< XScriptEventsSupplier > xEventsSupplier;
     203           0 :         Reference< XMultiComponentFactory > xSMgr( m_xContext->getServiceManager() );
     204           0 :         if ( xSMgr.is() )
     205             :         {
     206           0 :             Reference< ooo::vba::XVBAToOOEventDescGen > xVBAToOOEvtDesc( xSMgr->createInstanceWithContext( ::rtl::OUString( "ooo.vba.VBAToOOEventDesc"  ), m_xContext ), UNO_QUERY );
     207           0 :             if ( xVBAToOOEvtDesc.is() )
     208           0 :                 xEventsSupplier.set( xVBAToOOEvtDesc->getEventSupplier( xControl, sControlName ), UNO_QUERY );
     209             : 
     210             :         }
     211           0 :         return xEventsSupplier;
     212             :     }
     213             : 
     214             :     // -----------------------------------------------------------------------------
     215           0 :     void SAL_CALL DialogEventsAttacherImpl::attachEventsToControl( const Reference< XControl>& xControl, const Reference< XScriptEventsSupplier >& xEventsSupplier, const Any& Helper )
     216             :     {
     217           0 :         if ( xEventsSupplier.is() )
     218             :         {
     219           0 :             Reference< container::XNameContainer > xEventCont = xEventsSupplier->getEvents();
     220             : 
     221           0 :             Reference< XControlModel > xControlModel = xControl->getModel();
     222           0 :             Reference< XPropertySet > xProps( xControlModel, uno::UNO_QUERY );
     223           0 :             rtl::OUString sName;
     224           0 :             xProps->getPropertyValue( rtl::OUString("Name") ) >>= sName;
     225           0 :             if ( xEventCont.is() )
     226             :             {
     227           0 :                 Sequence< ::rtl::OUString > aNames = xEventCont->getElementNames();
     228           0 :                 const ::rtl::OUString* pNames = aNames.getConstArray();
     229           0 :                 sal_Int32 nNameCount = aNames.getLength();
     230             : 
     231           0 :                 for ( sal_Int32 j = 0; j < nNameCount; ++j )
     232             :                 {
     233           0 :                     ScriptEventDescriptor aDesc;
     234             : 
     235           0 :                     Any aElement = xEventCont->getByName( pNames[ j ] );
     236           0 :                     aElement >>= aDesc;
     237           0 :                     rtl::OUString sKey = aDesc.ScriptType;
     238           0 :                     if ( aDesc.ScriptType == "Script" || aDesc.ScriptType == "UNO" )
     239             :                     {
     240           0 :                         sal_Int32 nIndex = aDesc.ScriptCode.indexOf( ':' );
     241           0 :                         sKey = aDesc.ScriptCode.copy( 0, nIndex );
     242             :                     }
     243             :                     Reference< XAllListener > xAllListener =
     244           0 :                         new DialogAllListenerImpl( getScriptListenerForKey( sKey ), aDesc.ScriptType, aDesc.ScriptCode );
     245             : 
     246             :                     // try first to attach event to the ControlModel
     247           0 :                     bool bSuccess = false;
     248             :                     try
     249             :                     {
     250           0 :                         Reference< XEventListener > xListener_ = m_xEventAttacher->attachSingleEventListener(
     251             :                             xControlModel, xAllListener, Helper, aDesc.ListenerType,
     252           0 :                             aDesc.AddListenerParam, aDesc.EventMethod );
     253             : 
     254           0 :                         if ( xListener_.is() )
     255           0 :                             bSuccess = true;
     256             :                     }
     257           0 :                     catch ( const Exception& )
     258             :                     {
     259             :                         DBG_UNHANDLED_EXCEPTION();
     260             :                     }
     261             : 
     262             :                     try
     263             :                     {
     264             :                         // if we had no success, try to attach to the control
     265           0 :                         if ( !bSuccess )
     266             :                         {
     267           0 :                             Reference< XEventListener > xListener_ = m_xEventAttacher->attachSingleEventListener(
     268             :                                 xControl, xAllListener, Helper, aDesc.ListenerType,
     269           0 :                                 aDesc.AddListenerParam, aDesc.EventMethod );
     270             :                         }
     271             :                     }
     272           0 :                     catch ( const Exception& )
     273             :                     {
     274             :                         DBG_UNHANDLED_EXCEPTION();
     275             :                     }
     276           0 :                 }
     277           0 :             }
     278             :         }
     279           0 :     }
     280             : 
     281             : 
     282           0 :     void DialogEventsAttacherImpl::nestedAttachEvents( const Sequence< Reference< XInterface > >& Objects, const Any& Helper, rtl::OUString& sDialogCodeName )
     283             :     {
     284           0 :         const Reference< XInterface >* pObjects = Objects.getConstArray();
     285           0 :         sal_Int32 nObjCount = Objects.getLength();
     286             : 
     287           0 :         for ( sal_Int32 i = 0; i < nObjCount; ++i )
     288             :         {
     289             :             // We know that we have to do with instances of XControl.
     290             :             // Otherwise this is not the right implementation for
     291             :             // XScriptEventsAttacher and we have to give up.
     292           0 :             Reference< XControl > xControl( pObjects[ i ], UNO_QUERY );
     293           0 :             Reference< XControlContainer > xControlContainer( xControl, UNO_QUERY );
     294           0 :             Reference< XDialog > xDialog( xControl, UNO_QUERY );
     295           0 :             if ( !xControl.is() )
     296           0 :                 throw IllegalArgumentException();
     297             : 
     298             :             // get XEventsSupplier from control model
     299           0 :             Reference< XControlModel > xControlModel = xControl->getModel();
     300           0 :             Reference< XScriptEventsSupplier > xEventsSupplier( xControlModel, UNO_QUERY );
     301           0 :             attachEventsToControl( xControl, xEventsSupplier, Helper );
     302           0 :             if ( mbUseFakeVBAEvents )
     303             :             {
     304           0 :                 xEventsSupplier.set( getFakeVbaEventsSupplier( xControl, sDialogCodeName ) );
     305           0 :                 Any newHelper(xControl );
     306           0 :                 attachEventsToControl( xControl, xEventsSupplier, newHelper );
     307             :             }
     308           0 :             if ( xControlContainer.is() && !xDialog.is() )
     309             :             {
     310           0 :                 Sequence< Reference< XControl > > aControls = xControlContainer->getControls();
     311           0 :                 sal_Int32 nControlCount = aControls.getLength();
     312             : 
     313           0 :                 Sequence< Reference< XInterface > > aObjects( nControlCount );
     314           0 :                 Reference< XInterface >* pObjects2 = aObjects.getArray();
     315           0 :                 const Reference< XControl >* pControls = aControls.getConstArray();
     316             : 
     317           0 :                 for ( sal_Int32 i2 = 0; i2 < nControlCount; ++i2 )
     318             :                 {
     319           0 :                     pObjects2[i2] = Reference< XInterface >( pControls[i2], UNO_QUERY );
     320             :                 }
     321           0 :                 nestedAttachEvents( aObjects, Helper, sDialogCodeName );
     322             :             }
     323           0 :         }
     324           0 :     }
     325             : 
     326             :     // -----------------------------------------------------------------------------
     327             :     // XScriptEventsAttacher
     328             :     // -----------------------------------------------------------------------------
     329             : 
     330           0 :     void SAL_CALL DialogEventsAttacherImpl::attachEvents( const Sequence< Reference< XInterface > >& Objects,
     331             :         const com::sun::star::uno::Reference<com::sun::star::script::XScriptListener>&,
     332             :         const Any& Helper )
     333             :         throw (IllegalArgumentException, IntrospectionException, CannotCreateAdapterException,
     334             :                ServiceNotRegisteredException, RuntimeException)
     335             :     {
     336             :         // get EventAttacher
     337             :         {
     338           0 :             ::osl::MutexGuard aGuard( getMutex() );
     339             : 
     340           0 :             if ( !m_xEventAttacher.is() )
     341             :             {
     342           0 :                 Reference< XMultiComponentFactory > xSMgr( m_xContext->getServiceManager() );
     343           0 :                 if ( xSMgr.is() )
     344             :                 {
     345           0 :                     m_xEventAttacher = Reference< XEventAttacher >( xSMgr->createInstanceWithContext(
     346           0 :                         ::rtl::OUString( "com.sun.star.script.EventAttacher"  ), m_xContext ), UNO_QUERY );
     347             : 
     348           0 :                     if ( !m_xEventAttacher.is() )
     349           0 :                         throw ServiceNotRegisteredException();
     350             :                 }
     351             :                 else
     352             :                 {
     353           0 :                     throw RuntimeException();
     354           0 :                 }
     355             : 
     356           0 :             }
     357             :         }
     358           0 :         rtl::OUString sDialogCodeName;
     359           0 :         sal_Int32 nObjCount = Objects.getLength();
     360           0 :         Reference< awt::XControl > xDlgControl( Objects[ nObjCount - 1 ], uno::UNO_QUERY ); // last object is the dialog
     361           0 :         if ( xDlgControl.is() )
     362             :         {
     363           0 :             Reference< XPropertySet > xProps( xDlgControl->getModel(), UNO_QUERY );
     364             :             try
     365             :             {
     366           0 :                 xProps->getPropertyValue( rtl::OUString("Name" ) ) >>= sDialogCodeName;
     367             :             }
     368           0 :             catch( Exception& ){}
     369             :         }
     370             :         // go over all objects
     371           0 :         nestedAttachEvents( Objects, Helper, sDialogCodeName );
     372           0 :     }
     373             : 
     374             : 
     375             :     // =============================================================================
     376             :     // DialogAllListenerImpl
     377             :     // =============================================================================
     378             : 
     379           0 :     DialogAllListenerImpl::DialogAllListenerImpl( const Reference< XScriptListener >& rxListener,
     380             :         const ::rtl::OUString& rScriptType, const ::rtl::OUString& rScriptCode )
     381             :         :m_xScriptListener( rxListener )
     382             :         ,m_sScriptType( rScriptType )
     383           0 :         ,m_sScriptCode( rScriptCode )
     384             :     {
     385           0 :     }
     386             : 
     387             :     // -----------------------------------------------------------------------------
     388             : 
     389           0 :     DialogAllListenerImpl::~DialogAllListenerImpl()
     390             :     {
     391           0 :     }
     392             : 
     393             :     // -----------------------------------------------------------------------------
     394             : 
     395           0 :     void DialogAllListenerImpl::firing_impl( const AllEventObject& Event, Any* pRet )
     396             :     {
     397           0 :         ScriptEvent aScriptEvent;
     398           0 :         aScriptEvent.Source         = (OWeakObject *)this;  // get correct XInterface
     399           0 :         aScriptEvent.ListenerType   = Event.ListenerType;
     400           0 :         aScriptEvent.MethodName     = Event.MethodName;
     401           0 :         aScriptEvent.Arguments      = Event.Arguments;
     402           0 :         aScriptEvent.Helper         = Event.Helper;
     403           0 :         aScriptEvent.ScriptType     = m_sScriptType;
     404           0 :         aScriptEvent.ScriptCode     = m_sScriptCode;
     405             : 
     406           0 :         if ( m_xScriptListener.is() )
     407             :         {
     408           0 :             if ( pRet )
     409           0 :                 *pRet = m_xScriptListener->approveFiring( aScriptEvent );
     410             :             else
     411           0 :                 m_xScriptListener->firing( aScriptEvent );
     412           0 :         }
     413           0 :     }
     414             : 
     415             :     // -----------------------------------------------------------------------------
     416             :     // XEventListener
     417             :     // -----------------------------------------------------------------------------
     418             : 
     419           0 :     void DialogAllListenerImpl::disposing(const EventObject& ) throw ( RuntimeException )
     420             :     {
     421           0 :     }
     422             : 
     423             :     // -----------------------------------------------------------------------------
     424             :     // XAllListener
     425             :     // -----------------------------------------------------------------------------
     426             : 
     427           0 :     void DialogAllListenerImpl::firing( const AllEventObject& Event ) throw ( RuntimeException )
     428             :     {
     429             :         //::osl::MutexGuard aGuard( getMutex() );
     430             : 
     431           0 :         firing_impl( Event, NULL );
     432           0 :     }
     433             : 
     434             :     // -----------------------------------------------------------------------------
     435             : 
     436           0 :     Any DialogAllListenerImpl::approveFiring( const AllEventObject& Event )
     437             :         throw ( reflection::InvocationTargetException, RuntimeException )
     438             :     {
     439             :         //::osl::MutexGuard aGuard( getMutex() );
     440             : 
     441           0 :         Any aReturn;
     442           0 :         firing_impl( Event, &aReturn );
     443           0 :         return aReturn;
     444             :     }
     445             : 
     446             : 
     447             :     // =============================================================================
     448             :     // DialogScriptListenerImpl
     449             :     // =============================================================================
     450             : 
     451           0 :     DialogUnoScriptListenerImpl::DialogUnoScriptListenerImpl( const Reference< XComponentContext >& rxContext,
     452             :             const Reference< ::com::sun::star::frame::XModel >& rxModel,
     453             :             const Reference< ::com::sun::star::awt::XControl >& rxControl,
     454             :             const Reference< ::com::sun::star::uno::XInterface >& rxHandler,
     455             :             const Reference< ::com::sun::star::beans::XIntrospectionAccess >& rxIntrospectionAccess,
     456             :             bool bDialogProviderMode )
     457             :         : DialogSFScriptListenerImpl( rxContext, rxModel )
     458             :         ,m_xControl( rxControl )
     459             :         ,m_xHandler( rxHandler )
     460             :         ,m_xIntrospectionAccess( rxIntrospectionAccess )
     461           0 :         ,m_bDialogProviderMode( bDialogProviderMode )
     462             :     {
     463           0 :     }
     464             : 
     465             :     // -----------------------------------------------------------------------------
     466             : 
     467           0 :     DialogScriptListenerImpl::~DialogScriptListenerImpl()
     468             :     {
     469           0 :     }
     470             : 
     471             :     // -----------------------------------------------------------------------------
     472           0 :     void DialogSFScriptListenerImpl::firing_impl( const ScriptEvent& aScriptEvent, Any* pRet )
     473             :     {
     474             :         try
     475             :         {
     476           0 :             Reference< provider::XScriptProvider > xScriptProvider;
     477           0 :             if ( m_xModel.is() )
     478             :             {
     479           0 :                 Reference< provider::XScriptProviderSupplier > xSupplier( m_xModel, UNO_QUERY );
     480             :                 OSL_ENSURE( xSupplier.is(), "DialogScriptListenerImpl::firing_impl: failed to get script provider supplier" );
     481           0 :                 if ( xSupplier.is() )
     482           0 :                     xScriptProvider.set( xSupplier->getScriptProvider() );
     483             :             }
     484             :             else
     485             :             {
     486             :                 OSL_ASSERT( m_xContext.is() );
     487           0 :                 if ( m_xContext.is() )
     488             :                 {
     489             :                     Reference< provider::XScriptProviderFactory > xFactory(
     490           0 :                         m_xContext->getValueByName(
     491           0 :                         ::rtl::OUString("/singletons/com.sun.star.script.provider.theMasterScriptProviderFactory") ),
     492           0 :                         UNO_QUERY );
     493             :                     OSL_ENSURE( xFactory.is(), "SFURL_firing_impl: failed to get master script provider factory" );
     494           0 :                     if ( xFactory.is() )
     495             :                     {
     496           0 :                         Any aCtx;
     497           0 :                         aCtx <<= ::rtl::OUString("user");
     498           0 :                         xScriptProvider.set( xFactory->createScriptProvider( aCtx ), UNO_QUERY );
     499           0 :                     }
     500             :                 }
     501             :             }
     502             : 
     503             :             OSL_ENSURE( xScriptProvider.is(), "DialogScriptListenerImpl::firing_impl: failed to get script provider" );
     504             : 
     505           0 :             if ( xScriptProvider.is() )
     506             :             {
     507           0 :                 Reference< provider::XScript > xScript = xScriptProvider->getScript( aScriptEvent.ScriptCode );
     508             :                 OSL_ENSURE( xScript.is(), "DialogScriptListenerImpl::firing_impl: failed to get script" );
     509             : 
     510           0 :                 if ( xScript.is() )
     511             :                 {
     512           0 :                     Sequence< Any > aInParams;
     513           0 :                     Sequence< sal_Int16 > aOutParamsIndex;
     514           0 :                     Sequence< Any > aOutParams;
     515             : 
     516             :                     // get arguments for script
     517           0 :                     aInParams = aScriptEvent.Arguments;
     518             : 
     519           0 :                     Any aResult = xScript->invoke( aInParams, aOutParamsIndex, aOutParams );
     520           0 :                     if ( pRet )
     521           0 :                         *pRet = aResult;
     522           0 :                 }
     523           0 :             }
     524             :         }
     525           0 :         catch ( const Exception& )
     526             :         {
     527             :             DBG_UNHANDLED_EXCEPTION();
     528             :         }
     529           0 :     }
     530             : 
     531           0 :     void DialogLegacyScriptListenerImpl::firing_impl( const ScriptEvent& aScriptEvent, Any* pRet )
     532             :     {
     533           0 :         ::rtl::OUString sScriptURL;
     534           0 :         ::rtl::OUString sScriptCode( aScriptEvent.ScriptCode );
     535             : 
     536           0 :         if ( aScriptEvent.ScriptType.compareToAscii( "StarBasic" ) == 0 )
     537             :         {
     538             :             // StarBasic script: convert ScriptCode to scriptURL
     539           0 :             sal_Int32 nIndex = sScriptCode.indexOf( ':' );
     540           0 :             if ( nIndex >= 0 && nIndex < sScriptCode.getLength() )
     541             :             {
     542           0 :                 sScriptURL = ::rtl::OUString("vnd.sun.star.script:");
     543           0 :                 sScriptURL += sScriptCode.copy( nIndex + 1 );
     544           0 :                 sScriptURL += ::rtl::OUString("?language=Basic&location=");
     545           0 :                 sScriptURL += sScriptCode.copy( 0, nIndex );
     546             :             }
     547           0 :             ScriptEvent aSFScriptEvent( aScriptEvent );
     548           0 :             aSFScriptEvent.ScriptCode = sScriptURL;
     549           0 :             DialogSFScriptListenerImpl::firing_impl( aSFScriptEvent, pRet );
     550           0 :         }
     551           0 :     }
     552             : 
     553           0 :     void DialogUnoScriptListenerImpl::firing_impl( const ScriptEvent& aScriptEvent, Any* pRet )
     554             :     {
     555           0 :         static ::rtl::OUString sUnoURLScheme("vnd.sun.star.UNO:");
     556             : 
     557           0 :         ::rtl::OUString sScriptCode( aScriptEvent.ScriptCode );
     558           0 :         ::rtl::OUString aMethodName = aScriptEvent.ScriptCode.copy( sUnoURLScheme.getLength() );
     559             : 
     560           0 :         const Any* pArguments = aScriptEvent.Arguments.getConstArray();
     561           0 :         Any aEventObject = pArguments[0];
     562             : 
     563           0 :         bool bHandled = false;
     564           0 :         if( m_xHandler.is() )
     565             :         {
     566           0 :             if( m_bDialogProviderMode )
     567             :             {
     568           0 :                 Reference< XDialogEventHandler > xDialogEventHandler( m_xHandler, UNO_QUERY );
     569           0 :                 if( xDialogEventHandler.is() )
     570             :                 {
     571           0 :                     Reference< XDialog > xDialog( m_xControl, UNO_QUERY );
     572           0 :                     bHandled = xDialogEventHandler->callHandlerMethod( xDialog, aEventObject, aMethodName );
     573           0 :                 }
     574             :             }
     575             :             else
     576             :             {
     577           0 :                 Reference< XContainerWindowEventHandler > xContainerWindowEventHandler( m_xHandler, UNO_QUERY );
     578           0 :                 if( xContainerWindowEventHandler.is() )
     579             :                 {
     580           0 :                     Reference< XWindow > xWindow( m_xControl, UNO_QUERY );
     581           0 :                     bHandled = xContainerWindowEventHandler->callHandlerMethod( xWindow, aEventObject, aMethodName );
     582           0 :                 }
     583             :             }
     584             :         }
     585             : 
     586           0 :         Any aRet;
     587           0 :         if( !bHandled && m_xIntrospectionAccess.is() )
     588             :         {
     589             :             try
     590             :             {
     591             :                 // Methode ansprechen
     592           0 :                 const Reference< XIdlMethod >& rxMethod = m_xIntrospectionAccess->
     593           0 :                     getMethod( aMethodName, MethodConcept::ALL - MethodConcept::DANGEROUS );
     594             : 
     595             :                 Reference< XMaterialHolder > xMaterialHolder =
     596           0 :                     Reference< XMaterialHolder >::query( m_xIntrospectionAccess );
     597           0 :                 Any aHandlerObject = xMaterialHolder->getMaterial();
     598             : 
     599           0 :                 Sequence< Reference< XIdlClass > > aParamTypeSeq = rxMethod->getParameterTypes();
     600           0 :                 sal_Int32 nParamCount = aParamTypeSeq.getLength();
     601           0 :                 if( nParamCount == 0 )
     602             :                 {
     603           0 :                     Sequence<Any> args;
     604           0 :                     rxMethod->invoke( aHandlerObject, args );
     605           0 :                     bHandled = true;
     606             :                 }
     607           0 :                 else if( nParamCount == 2 )
     608             :                 {
     609             :                     // Signature check automatically done by reflection
     610           0 :                     Sequence<Any> Args(2);
     611           0 :                     Any* pArgs = Args.getArray();
     612           0 :                     if( m_bDialogProviderMode )
     613             :                     {
     614           0 :                         Reference< XDialog > xDialog( m_xControl, UNO_QUERY );
     615           0 :                         pArgs[0] <<= xDialog;
     616             :                     }
     617             :                     else
     618             :                     {
     619           0 :                         Reference< XWindow > xWindow( m_xControl, UNO_QUERY );
     620           0 :                         pArgs[0] <<= xWindow;
     621             :                     }
     622           0 :                     pArgs[1] = aEventObject;
     623           0 :                     aRet = rxMethod->invoke( aHandlerObject, Args );
     624           0 :                     bHandled = true;
     625           0 :                 }
     626             :             }
     627           0 :             catch( const Exception& )
     628             :             {
     629             :                 DBG_UNHANDLED_EXCEPTION();
     630             :             }
     631             :         }
     632             : 
     633           0 :         if( bHandled )
     634             :         {
     635           0 :             if( pRet )
     636           0 :                 *pRet = aRet;
     637             :         }
     638             :         else
     639             :         {
     640           0 :             ResMgr* pResMgr = SFX_APP()->GetSfxResManager();
     641           0 :             if( pResMgr )
     642             :             {
     643           0 :                 String aRes( ResId(STR_ERRUNOEVENTBINDUNG, *pResMgr) );
     644           0 :                 ::rtl::OUString aQuoteChar( "\""  );
     645             : 
     646           0 :                 ::rtl::OUString aOURes = aRes;
     647           0 :                 sal_Int32 nIndex = aOURes.indexOf( '%' );
     648             : 
     649           0 :                 ::rtl::OUString aOUFinal;
     650           0 :                 aOUFinal += aOURes.copy( 0, nIndex );
     651           0 :                 aOUFinal += aQuoteChar;
     652           0 :                 aOUFinal += aMethodName;
     653           0 :                 aOUFinal += aQuoteChar;
     654           0 :                 aOUFinal += aOURes.copy( nIndex + 2 );
     655             : 
     656           0 :                 ErrorBox( NULL, WinBits( WB_OK ), aOUFinal ).Execute();
     657             :             }
     658           0 :         }
     659           0 :     }
     660             : 
     661             :     // -----------------------------------------------------------------------------
     662             :     // XEventListener
     663             :     // -----------------------------------------------------------------------------
     664             : 
     665           0 :     void DialogScriptListenerImpl::disposing(const EventObject& ) throw ( RuntimeException )
     666             :     {
     667           0 :     }
     668             : 
     669             :     // -----------------------------------------------------------------------------
     670             :     // XScriptListener
     671             :     // -----------------------------------------------------------------------------
     672             : 
     673           0 :     void DialogScriptListenerImpl::firing( const ScriptEvent& aScriptEvent ) throw ( RuntimeException )
     674             :     {
     675             :         //::osl::MutexGuard aGuard( getMutex() );
     676             : 
     677           0 :         firing_impl( aScriptEvent, NULL );
     678           0 :     }
     679             : 
     680             :     // -----------------------------------------------------------------------------
     681             : 
     682           0 :     Any DialogScriptListenerImpl::approveFiring( const ScriptEvent& aScriptEvent )
     683             :         throw ( reflection::InvocationTargetException, RuntimeException )
     684             :     {
     685             :         //::osl::MutexGuard aGuard( getMutex() );
     686             : 
     687           0 :         Any aReturn;
     688           0 :         firing_impl( aScriptEvent, &aReturn );
     689           0 :         return aReturn;
     690             :     }
     691             : 
     692             :     // -----------------------------------------------------------------------------
     693             : 
     694             : //.........................................................................
     695             : }   // namespace dlgprov
     696             : //.........................................................................
     697             : 
     698             : /* vim:set shiftwidth=4 softtabstop=4 expandtab: */

Generated by: LCOV version 1.10