Skip to content

C
core
Kaydet (Commit) ff610a08 authored tarafından Kurt Zenker's avatar Kurt Zenker
Dosyalara gözat
Seçenekler

INTEGRATION: CWS npower9 (1.13.22); FILE MERGED 

2008/04/30 12:45:32 npower 1.13.22.4: #i85804# when creating the uno binding the ScriptType is 'UNO', however the bindings in the example in dev guide use ScriptType = 'Script', fix code to handle scripttype = 'UNO'
2008/04/22 09:17:15 npower 1.13.22.3: RESYNC: (1.13-1.14); FILE MERGED
2008/01/15 17:08:46 npower 1.13.22.2: #i84808#
2007/12/20 21:20:04 npower 1.13.22.1: #i84808#
üst 78bbf81d
Show whitespace changes
Inline Side-by-side
Showing with 209 additions and 80 deletions
scripting/source/dlgprov/dlgevtatt.cxx
Dosyayı görüntüle @ ff610a08
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
* OpenOffice.org - a multi-platform office productivity suite * OpenOffice.org - a multi-platform office productivity suite
* *
* $RCSfile: dlgevtatt.cxx,v $ * $RCSfile: dlgevtatt.cxx,v $
* $Revision: 1.14 $ * $Revision: 1.15 $
* *
* This file is part of OpenOffice.org. * This file is part of OpenOffice.org.
* *
...@@ -53,7 +53,9 @@ ...@@ -53,7 +53,9 @@
#include <com/sun/star/reflection/XIdlMethod.hpp> #include <com/sun/star/reflection/XIdlMethod.hpp>
#include <com/sun/star/beans/MethodConcept.hpp> #include <com/sun/star/beans/MethodConcept.hpp>
#include <com/sun/star/beans/XMaterialHolder.hpp> #include <com/sun/star/beans/XMaterialHolder.hpp>
#ifdef FAKE_VBA_EVENT_SUPPORT
#include <org/openoffice/vba/XVBAToOOEventDescGen.hpp>
#endif
using namespace ::com::sun::star; using namespace ::com::sun::star;
using namespace ::com::sun::star::awt; using namespace ::com::sun::star::awt;
...@@ -68,15 +70,111 @@ using namespace ::com::sun::star::reflection; ...@@ -68,15 +70,111 @@ using namespace ::com::sun::star::reflection;
//......................................................................... //.........................................................................
namespace dlgprov namespace dlgprov
{ {
class DialogSFScriptListenerImpl : public DialogScriptListenerImpl
{
protected:
Reference< frame::XModel > m_xModel;
virtual void firing_impl( const script::ScriptEvent& aScriptEvent, uno::Any* pRet );
public:
DialogSFScriptListenerImpl( const Reference< XComponentContext >& rxContext, const Reference< frame::XModel >& rxModel ) : DialogScriptListenerImpl( rxContext ), m_xModel( rxModel ) {}
};
class DialogLegacyScriptListenerImpl : public DialogSFScriptListenerImpl
{
protected:
virtual void firing_impl( const script::ScriptEvent& aScriptEvent, uno::Any* pRet );
public:
DialogLegacyScriptListenerImpl( const Reference< XComponentContext >& rxContext, const Reference< frame::XModel >& rxModel ) : DialogSFScriptListenerImpl( rxContext, rxModel ){}
};
class DialogUnoScriptListenerImpl : public DialogSFScriptListenerImpl
{
Reference< awt::XControl > m_xControl;
Reference< XInterface > m_xHandler;
Reference< beans::XIntrospectionAccess > m_xIntrospectionAccess;
bool m_bDialogProviderMode;
virtual void firing_impl( const script::ScriptEvent& aScriptEvent, uno::Any* pRet );
public:
DialogUnoScriptListenerImpl( const Reference< XComponentContext >& rxContext,
const Reference< frame::XModel >& rxModel,
const Reference< awt::XControl >& rxControl,
const Reference< XInterface >& rxHandler,
const Reference< beans::XIntrospectionAccess >& rxIntrospectionAccess,
bool bDialogProviderMode ); // false: ContainerWindowProvider mode
};
#ifdef FAKE_VBA_EVENT_SUPPORT
class DialogVBAScriptListenerImpl : public DialogScriptListenerImpl
{
protected:
rtl::OUString msDialogCodeName;
Reference< script::XScriptListener > mxListener;
virtual void firing_impl( const script::ScriptEvent& aScriptEvent, uno::Any* pRet );
public:
DialogVBAScriptListenerImpl( const Reference< XComponentContext >& rxContext, const Reference< awt::XControl >& rxControl, const Reference< frame::XModel >& xModel );
};
DialogVBAScriptListenerImpl::DialogVBAScriptListenerImpl( const Reference< XComponentContext >& rxContext, const Reference< awt::XControl >& rxControl, const Reference< frame::XModel >& xModel ) : DialogScriptListenerImpl( rxContext )
{
Reference< XMultiComponentFactory > xSMgr( m_xContext->getServiceManager() );
if ( xSMgr.is() )
{
Sequence< Any > args(1);
args[0] <<= xModel;
mxListener = Reference< XScriptListener >( xSMgr->createInstanceWithArgumentsAndContext( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "org.openoffice.vba.EventListener" ) ), args, m_xContext ), UNO_QUERY );
}
if ( rxControl.is() )
{
Reference< XPropertySet > xProps( rxControl->getModel(), UNO_QUERY );
try
{
xProps->getPropertyValue( rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("Name") ) ) >>= msDialogCodeName;
}
catch ( Exception& ) {}
}
}
void DialogVBAScriptListenerImpl::firing_impl( const script::ScriptEvent& aScriptEvent, uno::Any* )
{
if ( aScriptEvent.ScriptType.equals( rtl::OUString::createFromAscii("VBAInterop") ) && mxListener.is() )
{
ScriptEvent aScriptEventCopy( aScriptEvent );
aScriptEventCopy.ScriptCode = msDialogCodeName;
try
{
mxListener->firing( aScriptEventCopy );
}
catch( Exception& ) {}
}
}
#endif
//......................................................................... //.........................................................................
// ============================================================================= // =============================================================================
// DialogEventsAttacherImpl // DialogEventsAttacherImpl
// ============================================================================= // =============================================================================
DialogEventsAttacherImpl::DialogEventsAttacherImpl( const Reference< XComponentContext >& rxContext ) 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 )
:m_xContext( rxContext ) :m_xContext( rxContext )
{ {
// key listeners by protocol when ScriptType = 'Script'
// otherwise key is the ScriptType e.g. StarBasic
if ( rxRTLListener.is() ) // set up handler for RTL_BASIC
listernersForTypes[ rtl::OUString::createFromAscii("StarBasic") ] = rxRTLListener;
else
listernersForTypes[ rtl::OUString::createFromAscii("StarBasic") ] = new DialogLegacyScriptListenerImpl( rxContext, rxModel );
// handler for Script & ::rtl::OUString::createFromAscii( "vnd.sun.star.UNO:" )
listernersForTypes[ rtl::OUString::createFromAscii("vnd.sun.star.UNO") ] = new DialogUnoScriptListenerImpl( rxContext, rxModel, rxControl, rxHandler, rxIntrospect, bProviderMode );
listernersForTypes[ rtl::OUString::createFromAscii("vnd.sun.star.script") ] = new DialogSFScriptListenerImpl( rxContext, rxModel );
#ifdef FAKE_VBA_EVENT_SUPPORT
listernersForTypes[ rtl::OUString::createFromAscii("VBAInterop") ] = new DialogVBAScriptListenerImpl( rxContext, rxControl, rxModel );
#endif
} }
// ----------------------------------------------------------------------------- // -----------------------------------------------------------------------------
...@@ -86,55 +184,38 @@ namespace dlgprov ...@@ -86,55 +184,38 @@ namespace dlgprov
} }
// ----------------------------------------------------------------------------- // -----------------------------------------------------------------------------
// XScriptEventsAttacher Reference< script::XScriptListener >
// ----------------------------------------------------------------------------- DialogEventsAttacherImpl::getScriptListenerForKey( const rtl::OUString& sKey ) throw ( RuntimeException )
void SAL_CALL DialogEventsAttacherImpl::attachEvents( const Sequence< Reference< XInterface > >& Objects,
const Reference< XScriptListener >& xListener, const Any& Helper )
throw (IllegalArgumentException, IntrospectionException, CannotCreateAdapterException,
ServiceNotRegisteredException, RuntimeException)
{ {
// get EventAttacher ListenerHash::iterator it = listernersForTypes.find( sKey );
{ if ( it == listernersForTypes.end() )
::osl::MutexGuard aGuard( getMutex() ); throw RuntimeException(); // more text info here please
return it->second;
if ( !m_xEventAttacher.is() ) }
#ifdef FAKE_VBA_EVENT_SUPPORT
Reference< XScriptEventsSupplier > DialogEventsAttacherImpl::getFakeVbaEventsSupplier( const Reference< XControl >& xControl )
{ {
Reference< XScriptEventsSupplier > xEventsSupplier;
Reference< XMultiComponentFactory > xSMgr( m_xContext->getServiceManager() ); Reference< XMultiComponentFactory > xSMgr( m_xContext->getServiceManager() );
if ( xSMgr.is() ) if ( xSMgr.is() )
{ {
m_xEventAttacher = Reference< XEventAttacher >( xSMgr->createInstanceWithContext( Reference< org::openoffice::vba::XVBAToOOEventDescGen > xVBAToOOEvtDesc( xSMgr->createInstanceWithContext( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "org.openoffice.vba.VBAToOOEventDesc" ) ), m_xContext ), UNO_QUERY );
::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.script.EventAttacher" ) ), m_xContext ), UNO_QUERY ); if ( xVBAToOOEvtDesc.is() )
xEventsSupplier.set( xVBAToOOEvtDesc->getEventSupplier( xControl ), UNO_QUERY );
if ( !m_xEventAttacher.is() )
throw ServiceNotRegisteredException();
}
else
{
throw RuntimeException();
}
} }
return xEventsSupplier;
} }
#endif
// go over all objects // -----------------------------------------------------------------------------
const Reference< XInterface >* pObjects = Objects.getConstArray(); void SAL_CALL DialogEventsAttacherImpl::attachEventsToControl( const Reference< XControl>& xControl, const Reference< XScriptEventsSupplier >& xEventsSupplier, const Any& Helper )
sal_Int32 nObjCount = Objects.getLength();
for ( sal_Int32 i = 0; i < nObjCount; ++i )
{ {
// We know that we have to do with instances of XControl.
// Otherwise this is not the right implementation for
// XScriptEventsAttacher and we have to give up.
Reference< XControl > xControl( pObjects[ i ], UNO_QUERY );
if ( !xControl.is() )
throw IllegalArgumentException();
// get XEventsSupplier from control model
Reference< XControlModel > xControlModel = xControl->getModel();
Reference< XScriptEventsSupplier > xEventsSupplier( xControlModel, UNO_QUERY );
if ( xEventsSupplier.is() ) if ( xEventsSupplier.is() )
{ {
Reference< container::XNameContainer > xEventCont = xEventsSupplier->getEvents(); Reference< container::XNameContainer > xEventCont = xEventsSupplier->getEvents();
Reference< XControlModel > xControlModel = xControl->getModel();
if ( xEventCont.is() ) if ( xEventCont.is() )
{ {
Sequence< ::rtl::OUString > aNames = xEventCont->getElementNames(); Sequence< ::rtl::OUString > aNames = xEventCont->getElementNames();
...@@ -147,8 +228,14 @@ namespace dlgprov ...@@ -147,8 +228,14 @@ namespace dlgprov
Any aElement = xEventCont->getByName( pNames[ j ] ); Any aElement = xEventCont->getByName( pNames[ j ] );
aElement >>= aDesc; aElement >>= aDesc;
rtl::OUString sKey = aDesc.ScriptType;
if ( aDesc.ScriptType.equals( rtl::OUString::createFromAscii("Script" ) ) || aDesc.ScriptType.equals( rtl::OUString::createFromAscii("UNO" ) ) )
{
sal_Int32 nIndex = aDesc.ScriptCode.indexOf( ':' );
sKey = aDesc.ScriptCode.copy( 0, nIndex );
}
Reference< XAllListener > xAllListener = Reference< XAllListener > xAllListener =
new DialogAllListenerImpl( xListener, aDesc.ScriptType, aDesc.ScriptCode ); new DialogAllListenerImpl( getScriptListenerForKey( sKey ), aDesc.ScriptType, aDesc.ScriptCode );
// try first to attach event to the ControlModel // try first to attach event to the ControlModel
bool bSuccess = false; bool bSuccess = false;
...@@ -200,6 +287,61 @@ namespace dlgprov ...@@ -200,6 +287,61 @@ namespace dlgprov
} }
} }
} }
// -----------------------------------------------------------------------------
// XScriptEventsAttacher
// -----------------------------------------------------------------------------
void SAL_CALL DialogEventsAttacherImpl::attachEvents( const Sequence< Reference< XInterface > >& Objects,
const com::sun::star::uno::Reference<com::sun::star::script::XScriptListener>&,
const Any& Helper )
throw (IllegalArgumentException, IntrospectionException, CannotCreateAdapterException,
ServiceNotRegisteredException, RuntimeException)
{
// get EventAttacher
{
::osl::MutexGuard aGuard( getMutex() );
if ( !m_xEventAttacher.is() )
{
Reference< XMultiComponentFactory > xSMgr( m_xContext->getServiceManager() );
if ( xSMgr.is() )
{
m_xEventAttacher = Reference< XEventAttacher >( xSMgr->createInstanceWithContext(
::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.script.EventAttacher" ) ), m_xContext ), UNO_QUERY );
if ( !m_xEventAttacher.is() )
throw ServiceNotRegisteredException();
}
else
{
throw RuntimeException();
}
}
}
// go over all objects
const Reference< XInterface >* pObjects = Objects.getConstArray();
sal_Int32 nObjCount = Objects.getLength();
for ( sal_Int32 i = 0; i < nObjCount; ++i )
{
// We know that we have to do with instances of XControl.
// Otherwise this is not the right implementation for
// XScriptEventsAttacher and we have to give up.
Reference< XControl > xControl( pObjects[ i ], UNO_QUERY );
if ( !xControl.is() )
throw IllegalArgumentException();
// get XEventsSupplier from control model
Reference< XControlModel > xControlModel = xControl->getModel();
Reference< XScriptEventsSupplier > xEventsSupplier( xControlModel, UNO_QUERY );
attachEventsToControl( xControl, xEventsSupplier, Helper );
#ifdef FAKE_VBA_EVENT_SUPPORT
xEventsSupplier.set( getFakeVbaEventsSupplier( xControl ) );
attachEventsToControl( xControl, xEventsSupplier, Helper );
#endif
}
} }
...@@ -279,14 +421,13 @@ namespace dlgprov ...@@ -279,14 +421,13 @@ namespace dlgprov
// DialogScriptListenerImpl // DialogScriptListenerImpl
// ============================================================================= // =============================================================================
DialogScriptListenerImpl::DialogScriptListenerImpl( const Reference< XComponentContext >& rxContext, DialogUnoScriptListenerImpl::DialogUnoScriptListenerImpl( const Reference< XComponentContext >& rxContext,
const Reference< ::com::sun::star::frame::XModel >& rxModel, const Reference< ::com::sun::star::frame::XModel >& rxModel,
const Reference< ::com::sun::star::awt::XControl >& rxControl, const Reference< ::com::sun::star::awt::XControl >& rxControl,
const Reference< ::com::sun::star::uno::XInterface >& rxHandler, const Reference< ::com::sun::star::uno::XInterface >& rxHandler,
const Reference< ::com::sun::star::beans::XIntrospectionAccess >& rxIntrospectionAccess, const Reference< ::com::sun::star::beans::XIntrospectionAccess >& rxIntrospectionAccess,
bool bDialogProviderMode ) bool bDialogProviderMode )
:m_xContext( rxContext ) : DialogSFScriptListenerImpl( rxContext, rxModel )
,m_xModel( rxModel )
,m_xControl( rxControl ) ,m_xControl( rxControl )
,m_xHandler( rxHandler ) ,m_xHandler( rxHandler )
,m_xIntrospectionAccess( rxIntrospectionAccess ) ,m_xIntrospectionAccess( rxIntrospectionAccess )
...@@ -301,42 +442,8 @@ namespace dlgprov ...@@ -301,42 +442,8 @@ namespace dlgprov
} }
// ----------------------------------------------------------------------------- // -----------------------------------------------------------------------------
void DialogSFScriptListenerImpl::firing_impl( const ScriptEvent& aScriptEvent, Any* pRet )
void DialogScriptListenerImpl::firing_impl( const ScriptEvent& aScriptEvent, Any* pRet )
{ {
static ::rtl::OUString aVndSunStarUNO =
::rtl::OUString::createFromAscii( "vnd.sun.star.UNO:" );
::rtl::OUString sScriptURL;
::rtl::OUString sScriptCode( aScriptEvent.ScriptCode );
bool bUNO = (sScriptCode.indexOf( aVndSunStarUNO ) == 0);
if( bUNO )
{
handleUnoScript( aScriptEvent, pRet );
return;
}
else
{
if ( aScriptEvent.ScriptType.compareToAscii( "StarBasic" ) == 0 )
{
// StarBasic script: convert ScriptCode to scriptURL
sal_Int32 nIndex = sScriptCode.indexOf( ':' );
if ( nIndex >= 0 && nIndex < sScriptCode.getLength() )
{
sScriptURL = ::rtl::OUString::createFromAscii( "vnd.sun.star.script:" );
sScriptURL += sScriptCode.copy( nIndex + 1 );
sScriptURL += ::rtl::OUString::createFromAscii( "?language=Basic&location=" );
sScriptURL += sScriptCode.copy( 0, nIndex );
}
}
else
{
// scripting framework script: ScriptCode contains scriptURL
sScriptURL = sScriptCode;
}
}
try try
{ {
Reference< provider::XScriptProvider > xScriptProvider; Reference< provider::XScriptProvider > xScriptProvider;
...@@ -370,7 +477,7 @@ namespace dlgprov ...@@ -370,7 +477,7 @@ namespace dlgprov
if ( xScriptProvider.is() ) if ( xScriptProvider.is() )
{ {
Reference< provider::XScript > xScript = xScriptProvider->getScript( sScriptURL ); Reference< provider::XScript > xScript = xScriptProvider->getScript( aScriptEvent.ScriptCode );
OSL_ENSURE( xScript.is(), "DialogScriptListenerImpl::firing_impl: failed to get script" ); OSL_ENSURE( xScript.is(), "DialogScriptListenerImpl::firing_impl: failed to get script" );
if ( xScript.is() ) if ( xScript.is() )
...@@ -400,7 +507,29 @@ namespace dlgprov ...@@ -400,7 +507,29 @@ namespace dlgprov
} }
} }
void DialogScriptListenerImpl::handleUnoScript( const ScriptEvent& aScriptEvent, Any* pRet ) void DialogLegacyScriptListenerImpl::firing_impl( const ScriptEvent& aScriptEvent, Any* pRet )
{
::rtl::OUString sScriptURL;
::rtl::OUString sScriptCode( aScriptEvent.ScriptCode );
if ( aScriptEvent.ScriptType.compareToAscii( "StarBasic" ) == 0 )
{
// StarBasic script: convert ScriptCode to scriptURL
sal_Int32 nIndex = sScriptCode.indexOf( ':' );
if ( nIndex >= 0 && nIndex < sScriptCode.getLength() )
{
sScriptURL = ::rtl::OUString::createFromAscii( "vnd.sun.star.script:" );
sScriptURL += sScriptCode.copy( nIndex + 1 );
sScriptURL += ::rtl::OUString::createFromAscii( "?language=Basic&location=" );
sScriptURL += sScriptCode.copy( 0, nIndex );
}
ScriptEvent aSFScriptEvent( aScriptEvent );
aSFScriptEvent.ScriptCode = sScriptURL;
DialogSFScriptListenerImpl::firing_impl( aSFScriptEvent, pRet );
}
}
void DialogUnoScriptListenerImpl::firing_impl( const ScriptEvent& aScriptEvent, Any* pRet )
{ {
static ::rtl::OUString sUnoURLScheme = ::rtl::OUString::createFromAscii( "vnd.sun.star.UNO:" ); static ::rtl::OUString sUnoURLScheme = ::rtl::OUString::createFromAscii( "vnd.sun.star.UNO:" );
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment