diff options
Diffstat (limited to 'extensions/source/propctrlr/eventhandler.cxx')
| -rw-r--r-- | extensions/source/propctrlr/eventhandler.cxx | 1289 |
1 files changed, 0 insertions, 1289 deletions
diff --git a/extensions/source/propctrlr/eventhandler.cxx b/extensions/source/propctrlr/eventhandler.cxx deleted file mode 100644 index 0fe072a6d..000000000 --- a/extensions/source/propctrlr/eventhandler.cxx +++ /dev/null @@ -1,1289 +0,0 @@ -/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ -/************************************************************************* - * - * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. - * - * Copyright 2000, 2010 Oracle and/or its affiliates. - * - * OpenOffice.org - a multi-platform office productivity suite - * - * This file is part of OpenOffice.org. - * - * OpenOffice.org is free software: you can redistribute it and/or modify - * it under the terms of the GNU Lesser General Public License version 3 - * only, as published by the Free Software Foundation. - * - * OpenOffice.org is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - * GNU Lesser General Public License version 3 for more details - * (a copy is included in the LICENSE file that accompanied this code). - * - * You should have received a copy of the GNU Lesser General Public License - * version 3 along with OpenOffice.org. If not, see - * <http://www.openoffice.org/license.html> - * for a copy of the LGPLv3 License. - * - ************************************************************************/ - -// MARKER(update_precomp.py): autogen include statement, do not remove -#include "precompiled_extensions.hxx" - -#include "eventhandler.hxx" -#include "propctrlr.hrc" -#include "formbrowsertools.hxx" -#include "formresid.hrc" -#include "formstrings.hxx" -#include "handlerhelper.hxx" -#include "modulepcr.hxx" -#include "pcrcommon.hxx" -#include "pcrstrings.hxx" -#include "propertycontrolextender.hxx" - -/** === begin UNO includes === **/ -#include <com/sun/star/awt/XTabControllerModel.hpp> -#include <com/sun/star/beans/PropertyAttribute.hpp> -#include <com/sun/star/beans/UnknownPropertyException.hpp> -#include <com/sun/star/beans/XIntrospection.hpp> -#include <com/sun/star/beans/XIntrospectionAccess.hpp> -#include <com/sun/star/container/NoSuchElementException.hpp> -#include <com/sun/star/container/XChild.hpp> -#include <com/sun/star/container/XIndexAccess.hpp> -#include <com/sun/star/container/XNameContainer.hpp> -#include <com/sun/star/container/XNameReplace.hpp> -#include <com/sun/star/form/FormComponentType.hpp> -#include <com/sun/star/form/XForm.hpp> -#include <com/sun/star/form/runtime/XFormController.hpp> -#include <com/sun/star/inspection/PropertyControlType.hpp> -#include <com/sun/star/lang/NullPointerException.hpp> -#include <com/sun/star/script/XEventAttacherManager.hpp> -#include <com/sun/star/script/XScriptEventsSupplier.hpp> -#include <com/sun/star/util/XModifiable.hpp> -#include <com/sun/star/uri/UriReferenceFactory.hpp> -#include <com/sun/star/uri/XVndSunStarScriptUrlReference.hpp> -/** === end UNO includes === **/ - -#include <comphelper/namedvaluecollection.hxx> -#include <comphelper/evtmethodhelper.hxx> -#include <comphelper/types.hxx> -#include <cppuhelper/implbase1.hxx> -#include <rtl/ref.hxx> -#include <rtl/ustrbuf.hxx> -#include <sfx2/app.hxx> -#include <svl/eitem.hxx> -#include <svl/itemset.hxx> -#include <svx/svxdlg.hxx> -#include <svx/svxids.hrc> -#include <tools/diagnose_ex.h> -#include <vcl/msgbox.hxx> - -#include <map> -#include <algorithm> -#include <o3tl/compat_functional.hxx> - -//------------------------------------------------------------------------ -extern "C" void SAL_CALL createRegistryInfo_EventHandler() -{ - ::pcr::OAutoRegistration< ::pcr::EventHandler > aAutoRegistration; -} - -//........................................................................ -namespace pcr -{ -//........................................................................ - - /** === begin UNO using === **/ - using ::com::sun::star::uno::Reference; - using ::com::sun::star::uno::XComponentContext; - using ::com::sun::star::beans::XPropertySet; - using ::com::sun::star::uno::Any; - using ::com::sun::star::uno::TypeClass_STRING; - using ::com::sun::star::uno::Type; - using ::com::sun::star::beans::XPropertyChangeListener; - using ::com::sun::star::beans::Property; - using ::com::sun::star::beans::PropertyState; - using ::com::sun::star::beans::PropertyState_DIRECT_VALUE; - using ::com::sun::star::uno::Sequence; - using ::com::sun::star::script::ScriptEventDescriptor; - using ::com::sun::star::script::XScriptEventsSupplier; - using ::com::sun::star::lang::NullPointerException; - using ::com::sun::star::uno::Exception; - using ::com::sun::star::container::XChild; - using ::com::sun::star::container::XIndexAccess; - using ::com::sun::star::script::XEventAttacherManager; - using ::com::sun::star::uno::UNO_QUERY; - using ::com::sun::star::uno::UNO_QUERY_THROW; - using ::com::sun::star::uno::XInterface; - using ::com::sun::star::beans::XIntrospection; - using ::com::sun::star::beans::XIntrospectionAccess; - using ::com::sun::star::container::XNameContainer; - using ::com::sun::star::awt::XTabControllerModel; - using ::com::sun::star::form::XForm; - using ::com::sun::star::form::runtime::XFormController; - using ::com::sun::star::beans::UnknownPropertyException; - using ::com::sun::star::uno::makeAny; - using ::com::sun::star::container::NoSuchElementException; - using ::com::sun::star::beans::XPropertySetInfo; - using ::com::sun::star::container::XNameReplace; - using ::com::sun::star::lang::IllegalArgumentException; - using ::com::sun::star::lang::WrappedTargetException; - using ::com::sun::star::uno::RuntimeException; - using ::com::sun::star::beans::PropertyValue; - using ::com::sun::star::inspection::LineDescriptor; - using ::com::sun::star::inspection::XPropertyControlFactory; - using ::com::sun::star::inspection::InteractiveSelectionResult; - using ::com::sun::star::inspection::InteractiveSelectionResult_Cancelled; - using ::com::sun::star::inspection::InteractiveSelectionResult_Success; - using ::com::sun::star::inspection::XObjectInspectorUI; - using ::com::sun::star::util::XModifiable; - using ::com::sun::star::beans::PropertyChangeEvent; - using ::com::sun::star::frame::XFrame; - using ::com::sun::star::frame::XModel; - using ::com::sun::star::frame::XController; - using ::com::sun::star::uno::UNO_SET_THROW; - using com::sun::star::uri::UriReferenceFactory; - using com::sun::star::uri::XUriReferenceFactory; - using com::sun::star::uri::XVndSunStarScriptUrlReference; - using ::com::sun::star::lang::XEventListener; - /** === end UNO using === **/ - namespace PropertyControlType = ::com::sun::star::inspection::PropertyControlType; - namespace PropertyAttribute = ::com::sun::star::beans::PropertyAttribute; - namespace FormComponentType = ::com::sun::star::form::FormComponentType; - - //==================================================================== - //= EventDescription - //==================================================================== - EventDescription::EventDescription( EventId _nId, const sal_Char* _pListenerNamespaceAscii, const sal_Char* _pListenerClassAsciiName, - const sal_Char* _pListenerMethodAsciiName, sal_uInt16 _nDisplayNameResId, const rtl::OString& _sHelpId, const rtl::OString& _sUniqueBrowseId ) - :sDisplayName( String( PcrRes( _nDisplayNameResId ) ) ) - ,sListenerMethodName( ::rtl::OUString::createFromAscii( _pListenerMethodAsciiName ) ) - ,sHelpId( _sHelpId ) - ,sUniqueBrowseId( _sUniqueBrowseId ) - ,nId( _nId ) - { - ::rtl::OUStringBuffer aQualifiedListenerClass; - aQualifiedListenerClass.appendAscii( "com.sun.star." ); - aQualifiedListenerClass.appendAscii( _pListenerNamespaceAscii ); - aQualifiedListenerClass.appendAscii( "." ); - aQualifiedListenerClass.appendAscii( _pListenerClassAsciiName ); - sListenerClassName = aQualifiedListenerClass.makeStringAndClear(); - } - - //======================================================================== - //= helper - //======================================================================== - namespace - { - //.................................................................... - #define DESCRIBE_EVENT( asciinamespace, asciilistener, asciimethod, id_postfix ) \ - s_aKnownEvents.insert( EventMap::value_type( \ - ::rtl::OUString::createFromAscii( asciimethod ), \ - EventDescription( ++nEventId, asciinamespace, asciilistener, asciimethod, RID_STR_EVT_##id_postfix, HID_EVT_##id_postfix, UID_BRWEVT_##id_postfix ) ) ) - - //.................................................................... - bool lcl_getEventDescriptionForMethod( const ::rtl::OUString& _rMethodName, EventDescription& _out_rDescription ) - { - static EventMap s_aKnownEvents; - if ( s_aKnownEvents.empty() ) - { - ::osl::MutexGuard aGuard( ::osl::Mutex::getGlobalMutex() ); - if ( s_aKnownEvents.empty() ) - { - static sal_Int32 nEventId = 0; - - DESCRIBE_EVENT( "form", "XApproveActionListener", "approveAction", APPROVEACTIONPERFORMED ); - DESCRIBE_EVENT( "awt", "XActionListener", "actionPerformed", ACTIONPERFORMED ); - DESCRIBE_EVENT( "form", "XChangeListener", "changed", CHANGED ); - DESCRIBE_EVENT( "awt", "XTextListener", "textChanged", TEXTCHANGED ); - DESCRIBE_EVENT( "awt", "XItemListener", "itemStateChanged", ITEMSTATECHANGED ); - DESCRIBE_EVENT( "awt", "XFocusListener", "focusGained", FOCUSGAINED ); - DESCRIBE_EVENT( "awt", "XFocusListener", "focusLost", FOCUSLOST ); - DESCRIBE_EVENT( "awt", "XKeyListener", "keyPressed", KEYTYPED ); - DESCRIBE_EVENT( "awt", "XKeyListener", "keyReleased", KEYUP ); - DESCRIBE_EVENT( "awt", "XMouseListener", "mouseEntered", MOUSEENTERED ); - DESCRIBE_EVENT( "awt", "XMouseMotionListener", "mouseDragged", MOUSEDRAGGED ); - DESCRIBE_EVENT( "awt", "XMouseMotionListener", "mouseMoved", MOUSEMOVED ); - DESCRIBE_EVENT( "awt", "XMouseListener", "mousePressed", MOUSEPRESSED ); - DESCRIBE_EVENT( "awt", "XMouseListener", "mouseReleased", MOUSERELEASED ); - DESCRIBE_EVENT( "awt", "XMouseListener", "mouseExited", MOUSEEXITED ); - DESCRIBE_EVENT( "form", "XResetListener", "approveReset", APPROVERESETTED ); - DESCRIBE_EVENT( "form", "XResetListener", "resetted", RESETTED ); - DESCRIBE_EVENT( "form", "XSubmitListener", "approveSubmit", SUBMITTED ); - DESCRIBE_EVENT( "form", "XUpdateListener", "approveUpdate", BEFOREUPDATE ); - DESCRIBE_EVENT( "form", "XUpdateListener", "updated", AFTERUPDATE ); - DESCRIBE_EVENT( "form", "XLoadListener", "loaded", LOADED ); - DESCRIBE_EVENT( "form", "XLoadListener", "reloading", RELOADING ); - DESCRIBE_EVENT( "form", "XLoadListener", "reloaded", RELOADED ); - DESCRIBE_EVENT( "form", "XLoadListener", "unloading", UNLOADING ); - DESCRIBE_EVENT( "form", "XLoadListener", "unloaded", UNLOADED ); - DESCRIBE_EVENT( "form", "XConfirmDeleteListener", "confirmDelete", CONFIRMDELETE ); - DESCRIBE_EVENT( "sdb", "XRowSetApproveListener", "approveRowChange", APPROVEROWCHANGE ); - DESCRIBE_EVENT( "sdbc", "XRowSetListener", "rowChanged", ROWCHANGE ); - DESCRIBE_EVENT( "sdb", "XRowSetApproveListener", "approveCursorMove", POSITIONING ); - DESCRIBE_EVENT( "sdbc", "XRowSetListener", "cursorMoved", POSITIONED ); - DESCRIBE_EVENT( "form", "XDatabaseParameterListener", "approveParameter", APPROVEPARAMETER ); - DESCRIBE_EVENT( "sdb", "XSQLErrorListener", "errorOccured", ERROROCCURRED ); - DESCRIBE_EVENT( "awt", "XAdjustmentListener", "adjustmentValueChanged", ADJUSTMENTVALUECHANGED ); - } - } - - EventMap::const_iterator pos = s_aKnownEvents.find( _rMethodName ); - if ( pos == s_aKnownEvents.end() ) - return false; - - _out_rDescription = pos->second; - return true; - } - - //.................................................................... - ::rtl::OUString lcl_getEventPropertyName( const ::rtl::OUString& _rListenerClassName, const ::rtl::OUString& _rMethodName ) - { - ::rtl::OUStringBuffer aPropertyName; - aPropertyName.append( _rListenerClassName ); - aPropertyName.append( (sal_Unicode)';' ); - aPropertyName.append( _rMethodName.getStr() ); - return aPropertyName.makeStringAndClear(); - } - - //................................................................ - ScriptEventDescriptor lcl_getAssignedScriptEvent( const EventDescription& _rEvent, const Sequence< ScriptEventDescriptor >& _rAllAssignedMacros ) - { - ScriptEventDescriptor aScriptEvent; - // for the case there is actually no event assigned, initialize at least ListenerType and MethodName, - // so this ScriptEventDescriptor properly describes the given event - aScriptEvent.ListenerType = _rEvent.sListenerClassName; - aScriptEvent.EventMethod = _rEvent.sListenerMethodName; - - const ScriptEventDescriptor* pAssignedEvent = _rAllAssignedMacros.getConstArray(); - sal_Int32 assignedEventCount( _rAllAssignedMacros.getLength() ); - for ( sal_Int32 assignedEvent = 0; assignedEvent < assignedEventCount; ++assignedEvent, ++pAssignedEvent ) - { - if ( ( pAssignedEvent->ListenerType != _rEvent.sListenerClassName ) - || ( pAssignedEvent->EventMethod != _rEvent.sListenerMethodName ) - ) - continue; - - if ( ( pAssignedEvent->ScriptCode.getLength() == 0 ) - || ( pAssignedEvent->ScriptType.getLength() == 0 ) - ) - { - OSL_FAIL( "lcl_getAssignedScriptEvent: me thinks this should not happen!" ); - continue; - } - - aScriptEvent = *pAssignedEvent; - - if ( !aScriptEvent.ScriptType.equalsAsciiL( RTL_CONSTASCII_STRINGPARAM( "StarBasic" ) ) ) - continue; - - // this is an old-style macro specification: - // [document|application]:Library.Module.Function - // we need to translate this to the new-style macro specification - // vnd.sun.star.script:Library.Module.Function?language=Basic&location=[document|application] - - sal_Int32 nPrefixLen = aScriptEvent.ScriptCode.indexOf( ':' ); - OSL_ENSURE( nPrefixLen > 0, "lcl_getAssignedScriptEvent: illegal location!" ); - ::rtl::OUString sLocation = aScriptEvent.ScriptCode.copy( 0, nPrefixLen ); - ::rtl::OUString sMacroPath = aScriptEvent.ScriptCode.copy( nPrefixLen + 1 ); - - ::rtl::OUStringBuffer aNewStyleSpec; - aNewStyleSpec.appendAscii( "vnd.sun.star.script:" ); - aNewStyleSpec.append ( sMacroPath ); - aNewStyleSpec.appendAscii( "?language=Basic&location=" ); - aNewStyleSpec.append ( sLocation ); - - aScriptEvent.ScriptCode = aNewStyleSpec.makeStringAndClear(); - - // also, this new-style spec requires the script code to be "Script" instead of "StarBasic" - aScriptEvent.ScriptType = ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "Script" ) ); - } - return aScriptEvent; - } - - //................................................................ - ::rtl::OUString lcl_getQualifiedKnownListenerName( const ScriptEventDescriptor& _rFormComponentEventDescriptor ) - { - EventDescription aKnownEvent; - if ( lcl_getEventDescriptionForMethod( _rFormComponentEventDescriptor.EventMethod, aKnownEvent ) ) - return aKnownEvent.sListenerClassName; - OSL_FAIL( "lcl_getQualifiedKnownListenerName: unknown method name!" ); - // somebody assigned an script to a form component event which we don't know - // Speaking strictly, this is not really an error - it is possible to do - // this programmatically -, but it should rarely happen, since it's not possible - // via UI - return _rFormComponentEventDescriptor.ListenerType; - } - - //................................................................ - typedef ::std::set< Type, TypeLessByName > TypeBag; - - //................................................................ - void lcl_addListenerTypesFor_throw( const Reference< XInterface >& _rxComponent, - const Reference< XIntrospection >& _rxIntrospection, TypeBag& _out_rTypes ) - { - if ( !_rxComponent.is() ) - return; - OSL_PRECOND( _rxIntrospection.is(), "lcl_addListenerTypesFor_throw: this will crash!" ); - - Reference< XIntrospectionAccess > xIntrospectionAccess( - _rxIntrospection->inspect( makeAny( _rxComponent ) ), UNO_QUERY_THROW ); - - Sequence< Type > aListeners( xIntrospectionAccess->getSupportedListeners() ); - - ::std::copy( aListeners.getConstArray(), aListeners.getConstArray() + aListeners.getLength(), - ::std::insert_iterator< TypeBag >( _out_rTypes, _out_rTypes.begin() ) ); - } - - //................................................................ - bool operator ==( const ScriptEventDescriptor _lhs, const ScriptEventDescriptor _rhs ) - { - return ( ( _lhs.ListenerType == _rhs.ListenerType ) - && ( _lhs.EventMethod == _rhs.EventMethod ) - && ( _lhs.AddListenerParam == _rhs.AddListenerParam ) - && ( _lhs.ScriptType == _rhs.ScriptType ) - && ( _lhs.ScriptCode == _rhs.ScriptCode ) - ); - } - } - - //==================================================================== - //= EventHandler - //==================================================================== - typedef ::cppu::WeakImplHelper1 < ::com::sun::star::container::XNameReplace - > EventHolder_Base; - /** a UNO component holding assigned event descriptions, for use with a SvxMacroAssignDlg - */ - class EventHolder : public EventHolder_Base - { - private: - typedef ::boost::unordered_map< ::rtl::OUString, ScriptEventDescriptor, ::rtl::OUStringHash > EventMap; - typedef ::std::map< EventId, EventMap::iterator > EventMapIndexAccess; - - EventMap m_aEventNameAccess; - EventMapIndexAccess m_aEventIndexAccess; - - public: - EventHolder( ); - - void addEvent( EventId _nId, const ::rtl::OUString& _rEventName, const ScriptEventDescriptor& _rScriptEvent ); - - /** effectively the same as getByName, but instead of converting the ScriptEventDescriptor to the weird - format used by the macro assignment dialog, it is returned directly - */ - ScriptEventDescriptor getNormalizedDescriptorByName( const ::rtl::OUString& _rEventName ) const; - - // XNameReplace - virtual void SAL_CALL replaceByName( const ::rtl::OUString& _rName, const Any& aElement ) throw (IllegalArgumentException, NoSuchElementException, WrappedTargetException, RuntimeException); - virtual Any SAL_CALL getByName( const ::rtl::OUString& _rName ) throw (NoSuchElementException, WrappedTargetException, RuntimeException); - virtual Sequence< ::rtl::OUString > SAL_CALL getElementNames( ) throw (RuntimeException); - virtual ::sal_Bool SAL_CALL hasByName( const ::rtl::OUString& _rName ) throw (RuntimeException); - virtual Type SAL_CALL getElementType( ) throw (RuntimeException); - virtual ::sal_Bool SAL_CALL hasElements( ) throw (RuntimeException); - - protected: - ~EventHolder( ); - - private: - ScriptEventDescriptor impl_getDescriptor_throw( const ::rtl::OUString& _rEventName ) const; - }; - - DBG_NAME( EventHolder ) - //------------------------------------------------------------------------ - EventHolder::EventHolder() - { - DBG_CTOR( EventHolder, NULL ); - } - - //------------------------------------------------------------------------ - EventHolder::~EventHolder() - { - m_aEventNameAccess.clear(); - m_aEventIndexAccess.clear(); - DBG_DTOR( EventHolder, NULL ); - } - - //------------------------------------------------------------------------ - void EventHolder::addEvent( EventId _nId, const ::rtl::OUString& _rEventName, const ScriptEventDescriptor& _rScriptEvent ) - { - ::std::pair< EventMap::iterator, bool > insertionResult = - m_aEventNameAccess.insert( EventMap::value_type( _rEventName, _rScriptEvent ) ); - OSL_ENSURE( insertionResult.second, "EventHolder::addEvent: there already was a MacroURL for this event!" ); - m_aEventIndexAccess[ _nId ] = insertionResult.first; - } - - //------------------------------------------------------------------------ - ScriptEventDescriptor EventHolder::getNormalizedDescriptorByName( const ::rtl::OUString& _rEventName ) const - { - return impl_getDescriptor_throw( _rEventName ); - } - - //------------------------------------------------------------------------ - ScriptEventDescriptor EventHolder::impl_getDescriptor_throw( const ::rtl::OUString& _rEventName ) const - { - EventMap::const_iterator pos = m_aEventNameAccess.find( _rEventName ); - if ( pos == m_aEventNameAccess.end() ) - throw NoSuchElementException( ::rtl::OUString(), *const_cast< EventHolder* >( this ) ); - return pos->second; - } - - //------------------------------------------------------------------------ - void SAL_CALL EventHolder::replaceByName( const ::rtl::OUString& _rName, const Any& _rElement ) throw (IllegalArgumentException, NoSuchElementException, WrappedTargetException, RuntimeException) - { - EventMap::iterator pos = m_aEventNameAccess.find( _rName ); - if ( pos == m_aEventNameAccess.end() ) - throw NoSuchElementException( ::rtl::OUString(), *this ); - - Sequence< PropertyValue > aScriptDescriptor; - OSL_VERIFY( _rElement >>= aScriptDescriptor ); - - ::comphelper::NamedValueCollection aExtractor( aScriptDescriptor ); - - pos->second.ScriptType = aExtractor.getOrDefault( "EventType", ::rtl::OUString() ); - pos->second.ScriptCode = aExtractor.getOrDefault( "Script", ::rtl::OUString() ); - } - - //------------------------------------------------------------------------ - Any SAL_CALL EventHolder::getByName( const ::rtl::OUString& _rName ) throw (NoSuchElementException, WrappedTargetException, RuntimeException) - { - ScriptEventDescriptor aDescriptor( impl_getDescriptor_throw( _rName ) ); - - Any aRet; - Sequence< PropertyValue > aScriptDescriptor( 2 ); - aScriptDescriptor[0].Name = ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("EventType")); - aScriptDescriptor[0].Value <<= aDescriptor.ScriptType; - aScriptDescriptor[1].Name = ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("Script")); - aScriptDescriptor[1].Value <<= aDescriptor.ScriptCode; - - return makeAny( aScriptDescriptor ); - } - - //------------------------------------------------------------------------ - Sequence< ::rtl::OUString > SAL_CALL EventHolder::getElementNames( ) throw (RuntimeException) - { - Sequence< ::rtl::OUString > aReturn( m_aEventIndexAccess.size() ); - ::rtl::OUString* pReturn = aReturn.getArray(); - - // SvxMacroAssignDlg has a weird API: It expects a XNameReplace, means a container whose - // main access method is by name. In it's UI, it shows the possible events in exactly the - // order in which XNameAccess::getElementNames returns them. - // However, SvxMacroAssignDlg *also* takes an index for the initial selection, which is - // relative to the sequence returned by XNameAccess::getElementNames. - // This is IMO weird, since it mixes index access with name access, which decreases efficiency - // of the implementation. - // Well, it means we're forced to return the events in getElementNames in exactly the same as they - // appear in the property browser UI. - for ( EventMapIndexAccess::const_iterator loop = m_aEventIndexAccess.begin(); - loop != m_aEventIndexAccess.end(); - ++loop, ++pReturn - ) - *pReturn = loop->second->first; - return aReturn; - } - - //------------------------------------------------------------------------ - sal_Bool SAL_CALL EventHolder::hasByName( const ::rtl::OUString& _rName ) throw (RuntimeException) - { - EventMap::const_iterator pos = m_aEventNameAccess.find( _rName ); - return pos != m_aEventNameAccess.end(); - } - - //------------------------------------------------------------------------ - Type SAL_CALL EventHolder::getElementType( ) throw (RuntimeException) - { - return ::getCppuType( static_cast< Sequence< PropertyValue >* >( NULL ) ); - } - - //------------------------------------------------------------------------ - sal_Bool SAL_CALL EventHolder::hasElements( ) throw (RuntimeException) - { - return !m_aEventNameAccess.empty(); - } - - - //==================================================================== - //= EventHandler - //==================================================================== - DBG_NAME( EventHandler ) - //-------------------------------------------------------------------- - EventHandler::EventHandler( const Reference< XComponentContext >& _rxContext ) - :EventHandler_Base( m_aMutex ) - ,m_aContext( _rxContext ) - ,m_aPropertyListeners( m_aMutex ) - ,m_bEventsMapInitialized( false ) - ,m_bIsDialogElement( false ) - ,m_nGridColumnType( -1 ) - { - DBG_CTOR( EventHandler, NULL ); - } - - //-------------------------------------------------------------------- - EventHandler::~EventHandler() - { - DBG_DTOR( EventHandler, NULL ); - } - - //-------------------------------------------------------------------- - ::rtl::OUString SAL_CALL EventHandler::getImplementationName( ) throw (RuntimeException) - { - return getImplementationName_static(); - } - - //-------------------------------------------------------------------- - ::sal_Bool SAL_CALL EventHandler::supportsService( const ::rtl::OUString& ServiceName ) throw (RuntimeException) - { - StlSyntaxSequence< ::rtl::OUString > aAllServices( getSupportedServiceNames() ); - return ::std::find( aAllServices.begin(), aAllServices.end(), ServiceName ) != aAllServices.end(); - } - - //-------------------------------------------------------------------- - Sequence< ::rtl::OUString > SAL_CALL EventHandler::getSupportedServiceNames( ) throw (RuntimeException) - { - return getSupportedServiceNames_static(); - } - - //-------------------------------------------------------------------- - ::rtl::OUString SAL_CALL EventHandler::getImplementationName_static( ) throw (RuntimeException) - { - return ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.comp.extensions.EventHandler" ) ); - } - - //-------------------------------------------------------------------- - Sequence< ::rtl::OUString > SAL_CALL EventHandler::getSupportedServiceNames_static( ) throw (RuntimeException) - { - Sequence< ::rtl::OUString > aSupported( 1 ); - aSupported[0] = ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.form.inspection.EventHandler" ) ); - return aSupported; - } - - //-------------------------------------------------------------------- - Reference< XInterface > SAL_CALL EventHandler::Create( const Reference< XComponentContext >& _rxContext ) - { - return *( new EventHandler( _rxContext ) ); - } - - //-------------------------------------------------------------------- - void SAL_CALL EventHandler::inspect( const Reference< XInterface >& _rxIntrospectee ) throw (RuntimeException, NullPointerException) - { - ::osl::MutexGuard aGuard( m_aMutex ); - - if ( !_rxIntrospectee.is() ) - throw NullPointerException(); - - m_xComponent = Reference< XPropertySet >( _rxIntrospectee, UNO_QUERY_THROW ); - - m_bEventsMapInitialized = false; - EventMap aEmpty; - m_aEvents.swap( aEmpty ); - - m_bIsDialogElement = false; - m_nGridColumnType = -1; - try - { - Reference< XPropertySetInfo > xPSI( m_xComponent->getPropertySetInfo() ); - m_bIsDialogElement = xPSI.is() - && xPSI->hasPropertyByName( PROPERTY_WIDTH ) - && xPSI->hasPropertyByName( PROPERTY_HEIGHT ) - && xPSI->hasPropertyByName( PROPERTY_POSITIONX ) - && xPSI->hasPropertyByName( PROPERTY_POSITIONY ); - - Reference< XChild > xAsChild( _rxIntrospectee, UNO_QUERY ); - if ( xAsChild.is() && !Reference< XForm >( _rxIntrospectee, UNO_QUERY ).is() ) - { - if ( FormComponentType::GRIDCONTROL == classifyComponent( xAsChild->getParent() ) ) - { - m_nGridColumnType = classifyComponent( _rxIntrospectee ); - } - } - } - catch( const Exception& ) - { - DBG_UNHANDLED_EXCEPTION(); - } - } - - //-------------------------------------------------------------------- - Any SAL_CALL EventHandler::getPropertyValue( const ::rtl::OUString& _rPropertyName ) throw (UnknownPropertyException, RuntimeException) - { - ::osl::MutexGuard aGuard( m_aMutex ); - - const EventDescription& rEvent = impl_getEventForName_throw( _rPropertyName ); - - Sequence< ScriptEventDescriptor > aEvents; - impl_getComponentScriptEvents_nothrow( aEvents ); - - sal_Int32 nEventCount = aEvents.getLength(); - const ScriptEventDescriptor* pEvents = aEvents.getConstArray(); - - ScriptEventDescriptor aPropertyValue; - for ( sal_Int32 event = 0; event < nEventCount; ++event, ++pEvents ) - { - if ( rEvent.sListenerClassName == pEvents->ListenerType - && rEvent.sListenerMethodName == pEvents->EventMethod - ) - { - aPropertyValue = *pEvents; - break; - } - } - - return makeAny( aPropertyValue ); - } - - //-------------------------------------------------------------------- - void SAL_CALL EventHandler::setPropertyValue( const ::rtl::OUString& _rPropertyName, const Any& _rValue ) throw (UnknownPropertyException, RuntimeException) - { - ::osl::MutexGuard aGuard( m_aMutex ); - - const EventDescription& rEvent = impl_getEventForName_throw( _rPropertyName ); - - ScriptEventDescriptor aNewScriptEvent; - OSL_VERIFY( _rValue >>= aNewScriptEvent ); - - ScriptEventDescriptor aOldScriptEvent; - OSL_VERIFY( getPropertyValue( _rPropertyName ) >>= aOldScriptEvent ); - if ( aOldScriptEvent == aNewScriptEvent ) - return; - - if ( m_bIsDialogElement ) - impl_setDialogElementScriptEvent_nothrow( aNewScriptEvent ); - else - impl_setFormComponentScriptEvent_nothrow( aNewScriptEvent ); - - Reference< XModifiable > xDoc( m_aContext.getContextValueByAsciiName( "ContextDocument" ), UNO_QUERY ); - if ( xDoc.is() ) - xDoc->setModified( sal_True ); - - PropertyChangeEvent aEvent; - aEvent.Source = m_xComponent; - aEvent.PropertyHandle = rEvent.nId; - aEvent.PropertyName = _rPropertyName; - aEvent.OldValue <<= aOldScriptEvent; - aEvent.NewValue <<= aNewScriptEvent; - m_aPropertyListeners.notify( aEvent, &XPropertyChangeListener::propertyChange ); - } - - //-------------------------------------------------------------------- - Any SAL_CALL EventHandler::convertToPropertyValue( const ::rtl::OUString& _rPropertyName, const Any& _rControlValue ) throw (UnknownPropertyException, RuntimeException) - { - ::osl::MutexGuard aGuard( m_aMutex ); - - ::rtl::OUString sNewScriptCode; - OSL_VERIFY( _rControlValue >>= sNewScriptCode ); - - Sequence< ScriptEventDescriptor > aAllAssignedEvents; - impl_getComponentScriptEvents_nothrow( aAllAssignedEvents ); - - const EventDescription& rEvent = impl_getEventForName_throw( _rPropertyName ); - ScriptEventDescriptor aAssignedScript = lcl_getAssignedScriptEvent( rEvent, aAllAssignedEvents ); - - OSL_ENSURE( !sNewScriptCode.getLength(), "EventHandler::convertToPropertyValue: cannot convert a non-empty display name!" ); - // Usually, there is no possibility for the user to change the content of an event binding directly in the - // input field, this instead is done with the macro assignment dialog. - // The only exception is the user pressing "DEL" while the control has the focus, in this case, we reset the - // control content to an empty string. So this is the only scenario where this method is allowed to be called. - - // Striclty, we would be able to convert the display value to a property value, - // using the "name (location, language)" format we used in convertToControlValue. However, - // there is no need for this code ... - - aAssignedScript.ScriptCode = sNewScriptCode; - return makeAny( aAssignedScript ); - } - - //-------------------------------------------------------------------- - Any SAL_CALL EventHandler::convertToControlValue( const ::rtl::OUString& /*_rPropertyName*/, const Any& _rPropertyValue, const Type& _rControlValueType ) throw (UnknownPropertyException, RuntimeException) - { - ::osl::MutexGuard aGuard( m_aMutex ); - - ScriptEventDescriptor aScriptEvent; - OSL_VERIFY( _rPropertyValue >>= aScriptEvent ); - - OSL_ENSURE( _rControlValueType.getTypeClass() == TypeClass_STRING, - "EventHandler::convertToControlValue: unexpected ControlValue type class!" ); - (void)_rControlValueType; - - ::rtl::OUString sScript( aScriptEvent.ScriptCode ); - if ( sScript.getLength() ) - { - // format is: "name (location, language)" - try - { - // parse - Reference< XUriReferenceFactory > xUriRefFac = UriReferenceFactory::create( m_aContext.getUNOContext() ); - Reference< XVndSunStarScriptUrlReference > xScriptUri( xUriRefFac->parse( sScript ), UNO_QUERY_THROW ); - - ::rtl::OUStringBuffer aComposeBuffer; - - // name - aComposeBuffer.append( xScriptUri->getName() ); - - // location - const ::rtl::OUString sLocationParamName( RTL_CONSTASCII_USTRINGPARAM( "location" ) ); - const ::rtl::OUString sLocation = xScriptUri->getParameter( sLocationParamName ); - const ::rtl::OUString sLangParamName( RTL_CONSTASCII_USTRINGPARAM( "language" ) ); - const ::rtl::OUString sLanguage = xScriptUri->getParameter( sLangParamName ); - - if ( sLocation.getLength() || sLanguage.getLength() ) - { - aComposeBuffer.appendAscii( " (" ); - - // location - OSL_ENSURE( sLocation.getLength(), "EventHandler::convertToControlValue: unexpected: no location!" ); - if ( sLocation.getLength() ) - { - aComposeBuffer.append( sLocation ); - aComposeBuffer.appendAscii( ", " ); - } - - // language - if ( sLanguage.getLength() ) - { - aComposeBuffer.append( sLanguage ); - } - - aComposeBuffer.append( sal_Unicode( ')' ) ); - } - - sScript = aComposeBuffer.makeStringAndClear(); - } - catch( const Exception& ) - { - DBG_UNHANDLED_EXCEPTION(); - } - } - - return makeAny( sScript ); - } - - //-------------------------------------------------------------------- - PropertyState SAL_CALL EventHandler::getPropertyState( const ::rtl::OUString& /*_rPropertyName*/ ) throw (UnknownPropertyException, RuntimeException) - { - return PropertyState_DIRECT_VALUE; - } - - //-------------------------------------------------------------------- - void SAL_CALL EventHandler::addPropertyChangeListener( const Reference< XPropertyChangeListener >& _rxListener ) throw (RuntimeException) - { - ::osl::MutexGuard aGuard( m_aMutex ); - if ( !_rxListener.is() ) - throw NullPointerException(); - m_aPropertyListeners.addListener( _rxListener ); - } - - //-------------------------------------------------------------------- - void SAL_CALL EventHandler::removePropertyChangeListener( const Reference< XPropertyChangeListener >& _rxListener ) throw (RuntimeException) - { - ::osl::MutexGuard aGuard( m_aMutex ); - m_aPropertyListeners.removeListener( _rxListener ); - } - - //-------------------------------------------------------------------- - Sequence< Property > SAL_CALL EventHandler::getSupportedProperties() throw (RuntimeException) - { - ::osl::MutexGuard aGuard( m_aMutex ); - if ( !m_bEventsMapInitialized ) - { - const_cast< EventHandler* >( this )->m_bEventsMapInitialized = true; - try - { - Sequence< Type > aListeners; - impl_getCopmonentListenerTypes_nothrow( aListeners ); - sal_Int32 listenerCount = aListeners.getLength(); - - Property aCurrentProperty; - ::rtl::OUString sListenerClassName; - - // loop through all listeners and all methods, and see which we can present at the UI - const Type* pListeners = aListeners.getConstArray(); - for ( sal_Int32 listener = 0; listener < listenerCount; ++listener, ++pListeners ) - { - aCurrentProperty = Property(); - - // the programmatic name of the listener, to be used as "property" name - sListenerClassName = pListeners->getTypeName(); - OSL_ENSURE( sListenerClassName.getLength(), "EventHandler::getSupportedProperties: strange - no listener name ..." ); - if ( !sListenerClassName.getLength() ) - continue; - - // loop through all methods - Sequence< ::rtl::OUString > aMethods( comphelper::getEventMethodsForType( *pListeners ) ); - - const ::rtl::OUString* pMethods = aMethods.getConstArray(); - sal_uInt32 methodCount = aMethods.getLength(); - - for (sal_uInt32 method = 0 ; method < methodCount ; ++method, ++pMethods ) - { - EventDescription aEvent; - if ( !lcl_getEventDescriptionForMethod( *pMethods, aEvent ) ) - continue; - - if ( !impl_filterMethod_nothrow( aEvent ) ) - continue; - - const_cast< EventHandler* >( this )->m_aEvents.insert( EventMap::value_type( - lcl_getEventPropertyName( sListenerClassName, *pMethods ), aEvent ) ); - } - } - - } - catch( const Exception& ) - { - DBG_UNHANDLED_EXCEPTION(); - } - } - - // sort them by ID - this is the relative ordering in the UI - ::std::map< EventId, Property > aOrderedProperties; - for ( EventMap::const_iterator loop = m_aEvents.begin(); - loop != m_aEvents.end(); - ++loop - ) - { - aOrderedProperties[ loop->second.nId ] = Property( - loop->first, loop->second.nId, - ::getCppuType( static_cast< const ::rtl::OUString* >( NULL ) ), - PropertyAttribute::BOUND ); - } - - StlSyntaxSequence< Property > aReturn( aOrderedProperties.size() ); - ::std::transform( aOrderedProperties.begin(), aOrderedProperties.end(), aReturn.begin(), - ::o3tl::select2nd< ::std::map< EventId, Property >::value_type >() ); - return aReturn; - } - - //-------------------------------------------------------------------- - Sequence< ::rtl::OUString > SAL_CALL EventHandler::getSupersededProperties( ) throw (RuntimeException) - { - // none - return Sequence< ::rtl::OUString >( ); - } - - //-------------------------------------------------------------------- - Sequence< ::rtl::OUString > SAL_CALL EventHandler::getActuatingProperties( ) throw (RuntimeException) - { - // none - return Sequence< ::rtl::OUString >( ); - } - - //-------------------------------------------------------------------- - LineDescriptor SAL_CALL EventHandler::describePropertyLine( const ::rtl::OUString& _rPropertyName, - const Reference< XPropertyControlFactory >& _rxControlFactory ) - throw (UnknownPropertyException, NullPointerException, RuntimeException) - { - if ( !_rxControlFactory.is() ) - throw NullPointerException(); - - ::osl::MutexGuard aGuard( m_aMutex ); - - LineDescriptor aDescriptor; - - aDescriptor.Control = _rxControlFactory->createPropertyControl( PropertyControlType::TextField, sal_True ); - Reference< XEventListener > xControlExtender = new PropertyControlExtender( aDescriptor.Control ); - - const EventDescription& rEvent = impl_getEventForName_throw( _rPropertyName ); - aDescriptor.DisplayName = rEvent.sDisplayName; - aDescriptor.HelpURL = HelpIdUrl::getHelpURL( rEvent.sHelpId ); - aDescriptor.PrimaryButtonId = rtl::OStringToOUString(rEvent.sUniqueBrowseId, RTL_TEXTENCODING_UTF8); - aDescriptor.HasPrimaryButton = sal_True; - aDescriptor.Category = ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "Events" ) ); - return aDescriptor; - } - - //-------------------------------------------------------------------- - ::sal_Bool SAL_CALL EventHandler::isComposable( const ::rtl::OUString& /*_rPropertyName*/ ) throw (UnknownPropertyException, RuntimeException) - { - return sal_False; - } - - //-------------------------------------------------------------------- - InteractiveSelectionResult SAL_CALL EventHandler::onInteractivePropertySelection( const ::rtl::OUString& _rPropertyName, sal_Bool /*_bPrimary*/, Any& /*_rData*/, const Reference< XObjectInspectorUI >& _rxInspectorUI ) throw (UnknownPropertyException, NullPointerException, RuntimeException) - { - if ( !_rxInspectorUI.is() ) - throw NullPointerException(); - - ::osl::MutexGuard aGuard( m_aMutex ); - const EventDescription& rForEvent = impl_getEventForName_throw( _rPropertyName ); - - Sequence< ScriptEventDescriptor > aAllAssignedEvents; - impl_getComponentScriptEvents_nothrow( aAllAssignedEvents ); - - // SvxMacroAssignDlg-compatible structure holding all event/assignments - ::rtl::Reference< EventHolder > pEventHolder( new EventHolder ); - - for ( EventMap::const_iterator event = m_aEvents.begin(); - event != m_aEvents.end(); - ++event - ) - { - // the script which is assigned to the current event (if any) - ScriptEventDescriptor aAssignedScript = lcl_getAssignedScriptEvent( event->second, aAllAssignedEvents ); - pEventHolder->addEvent( event->second.nId, event->second.sListenerMethodName, aAssignedScript ); - } - - // the inital selection in the dialog - Sequence< ::rtl::OUString > aNames( pEventHolder->getElementNames() ); - const ::rtl::OUString* pChosenEvent = ::std::find( aNames.getConstArray(), aNames.getConstArray() + aNames.getLength(), rForEvent.sListenerMethodName ); - sal_uInt16 nInitialSelection = (sal_uInt16)( pChosenEvent - aNames.getConstArray() ); - - // the dialog - SvxAbstractDialogFactory* pFactory = SvxAbstractDialogFactory::Create(); - if ( !pFactory ) - return InteractiveSelectionResult_Cancelled; - - ::std::auto_ptr< VclAbstractDialog > pDialog( pFactory->CreateSvxMacroAssignDlg( - PropertyHandlerHelper::getDialogParentWindow( m_aContext ), - impl_getContextFrame_nothrow(), - m_bIsDialogElement, - pEventHolder.get(), - nInitialSelection - ) ); - - if ( !pDialog.get() ) - return InteractiveSelectionResult_Cancelled; - - // DF definite problem here - // OK & Cancel seem to be both returning 0 - if ( pDialog->Execute() == RET_CANCEL ) - return InteractiveSelectionResult_Cancelled; - - try - { - for ( EventMap::const_iterator event = m_aEvents.begin(); - event != m_aEvents.end(); - ++event - ) - { - ScriptEventDescriptor aScriptDescriptor( pEventHolder->getNormalizedDescriptorByName( event->second.sListenerMethodName ) ); - - // set the new "property value" - setPropertyValue( - lcl_getEventPropertyName( event->second.sListenerClassName, event->second.sListenerMethodName ), - makeAny( aScriptDescriptor ) - ); - } - } - catch( const Exception& ) - { - DBG_UNHANDLED_EXCEPTION(); - } - - return InteractiveSelectionResult_Success; - } - - //-------------------------------------------------------------------- - void SAL_CALL EventHandler::actuatingPropertyChanged( const ::rtl::OUString& /*_rActuatingPropertyName*/, const Any& /*_rNewValue*/, const Any& /*_rOldValue*/, const Reference< XObjectInspectorUI >& /*_rxInspectorUI*/, sal_Bool /*_bFirstTimeInit*/ ) throw (NullPointerException, RuntimeException) - { - OSL_FAIL( "EventHandler::actuatingPropertyChanged: no actuating properties -> no callback (well, this is how it *should* be!)" ); - } - - //-------------------------------------------------------------------- - IMPLEMENT_FORWARD_XCOMPONENT( EventHandler, EventHandler_Base ) - - //-------------------------------------------------------------------- - void SAL_CALL EventHandler::disposing() - { - EventMap aEmpty; - m_aEvents.swap( aEmpty ); - m_xComponent.clear(); - } - - //-------------------------------------------------------------------- - sal_Bool SAL_CALL EventHandler::suspend( sal_Bool /*_bSuspend*/ ) throw (RuntimeException) - { - return sal_True; - } - - //------------------------------------------------------------------------ - Reference< XFrame > EventHandler::impl_getContextFrame_nothrow() const - { - Reference< XFrame > xContextFrame; - - try - { - Reference< XModel > xContextDocument( m_aContext.getContextValueByAsciiName( "ContextDocument" ), UNO_QUERY_THROW ); - Reference< XController > xController( xContextDocument->getCurrentController(), UNO_SET_THROW ); - xContextFrame.set( xController->getFrame(), UNO_SET_THROW ); - } - catch( const Exception& ) - { - DBG_UNHANDLED_EXCEPTION(); - } - - return xContextFrame; - } - - //-------------------------------------------------------------------- - sal_Int32 EventHandler::impl_getComponentIndexInParent_throw() const - { - Reference< XChild > xChild( m_xComponent, UNO_QUERY_THROW ); - Reference< XIndexAccess > xParentAsIndexAccess( xChild->getParent(), UNO_QUERY_THROW ); - - // get the index of the inspected object within it's parent container - sal_Int32 nElements = xParentAsIndexAccess->getCount(); - for ( sal_Int32 i=0; i<nElements; ++i ) - { - Reference< XInterface > xElement( xParentAsIndexAccess->getByIndex( i ), UNO_QUERY_THROW ); - if ( xElement == m_xComponent ) - return i; - } - throw NoSuchElementException(); - } - - //-------------------------------------------------------------------- - void EventHandler::impl_getFormComponentScriptEvents_nothrow( Sequence < ScriptEventDescriptor >& _out_rEvents ) const - { - _out_rEvents = Sequence < ScriptEventDescriptor >(); - try - { - Reference< XChild > xChild( m_xComponent, UNO_QUERY_THROW ); - Reference< XEventAttacherManager > xEventManager( xChild->getParent(), UNO_QUERY_THROW ); - _out_rEvents = xEventManager->getScriptEvents( impl_getComponentIndexInParent_throw() ); - - // the form component script API has unqualified listener names, but for normalization - // purpose, we want fully qualified ones - ScriptEventDescriptor* pEvents = _out_rEvents.getArray(); - ScriptEventDescriptor* pEventsEnd = _out_rEvents.getArray() + _out_rEvents.getLength(); - while ( pEvents != pEventsEnd ) - { - pEvents->ListenerType = lcl_getQualifiedKnownListenerName( *pEvents ); - ++pEvents; - } - } - catch( const Exception& ) - { - DBG_UNHANDLED_EXCEPTION(); - } - } - - //-------------------------------------------------------------------- - void EventHandler::impl_getCopmonentListenerTypes_nothrow( Sequence< Type >& _out_rTypes ) const - { - _out_rTypes.realloc( 0 ); - try - { - // we use a set to avoid duplicates - TypeBag aListeners; - - Reference< XIntrospection > xIntrospection( m_aContext.createComponent( "com.sun.star.beans.Introspection" ), UNO_QUERY_THROW ); - - // --- model listeners - lcl_addListenerTypesFor_throw( - m_xComponent, xIntrospection, aListeners ); - - // --- "secondary component" (usually: "control" listeners) - { - Reference< XInterface > xSecondaryComponent( impl_getSecondaryComponentForEventInspection_throw() ); - lcl_addListenerTypesFor_throw( xSecondaryComponent, xIntrospection, aListeners ); - ::comphelper::disposeComponent( xSecondaryComponent ); - } - - // now that they're disambiguated, copy these types into our member - _out_rTypes.realloc( aListeners.size() ); - ::std::copy( aListeners.begin(), aListeners.end(), _out_rTypes.getArray() ); - } - catch( const Exception& ) - { - DBG_UNHANDLED_EXCEPTION(); - } - } - - //-------------------------------------------------------------------- - void EventHandler::impl_getDialogElementScriptEvents_nothrow( Sequence < ScriptEventDescriptor >& _out_rEvents ) const - { - _out_rEvents = Sequence < ScriptEventDescriptor >(); - try - { - Reference< XScriptEventsSupplier > xEventsSupplier( m_xComponent, UNO_QUERY_THROW ); - Reference< XNameContainer > xEvents( xEventsSupplier->getEvents(), UNO_QUERY_THROW ); - Sequence< ::rtl::OUString > aEventNames( xEvents->getElementNames() ); - - sal_Int32 nEventCount = aEventNames.getLength(); - _out_rEvents.realloc( nEventCount ); - - const ::rtl::OUString* pNames = aEventNames.getConstArray(); - ScriptEventDescriptor* pDescs = _out_rEvents.getArray(); - - for( sal_Int32 i = 0 ; i < nEventCount ; ++i, ++pNames, ++pDescs ) - OSL_VERIFY( xEvents->getByName( *pNames ) >>= *pDescs ); - } - catch( const Exception& ) - { - DBG_UNHANDLED_EXCEPTION(); - } - } - - //-------------------------------------------------------------------- - Reference< XInterface > EventHandler::impl_getSecondaryComponentForEventInspection_throw( ) const - { - Reference< XInterface > xReturn; - - // if it's a form, create a form controller for the additional events - Reference< XForm > xComponentAsForm( m_xComponent, UNO_QUERY ); - if ( xComponentAsForm.is() ) - { - Reference< XTabControllerModel > xComponentAsTCModel( m_xComponent, UNO_QUERY_THROW ); - Reference< XFormController > xController( - m_aContext.createComponent( "com.sun.star.form.runtime.FormController" ), UNO_QUERY_THROW ); - xController->setModel( xComponentAsTCModel ); - - xReturn = xController; - } - else - { - ::rtl::OUString sControlService; - OSL_VERIFY( m_xComponent->getPropertyValue( PROPERTY_DEFAULTCONTROL ) >>= sControlService ); - - xReturn = m_aContext.createComponent( sControlService ); - } - return xReturn; - } - - //-------------------------------------------------------------------- - const EventDescription& EventHandler::impl_getEventForName_throw( const ::rtl::OUString& _rPropertyName ) const - { - EventMap::const_iterator pos = m_aEvents.find( _rPropertyName ); - if ( pos == m_aEvents.end() ) - throw UnknownPropertyException(); - return pos->second; - } - - //-------------------------------------------------------------------- - namespace - { - static bool lcl_endsWith( const ::rtl::OUString& _rText, const ::rtl::OUString& _rCheck ) - { - sal_Int32 nTextLen = _rText.getLength(); - sal_Int32 nCheckLen = _rCheck.getLength(); - if ( nCheckLen > nTextLen ) - return false; - - return _rText.indexOf( _rCheck ) == ( nTextLen - nCheckLen ); - } - } - //-------------------------------------------------------------------- - void EventHandler::impl_setFormComponentScriptEvent_nothrow( const ScriptEventDescriptor& _rScriptEvent ) - { - try - { - ::rtl::OUString sScriptCode( _rScriptEvent.ScriptCode ); - ::rtl::OUString sScriptType( _rScriptEvent.ScriptType ); - bool bResetScript = ( sScriptCode.getLength() == 0 ); - - sal_Int32 nObjectIndex = impl_getComponentIndexInParent_throw(); - Reference< XChild > xChild( m_xComponent, UNO_QUERY_THROW ); - Reference< XEventAttacherManager > xEventManager( xChild->getParent(), UNO_QUERY_THROW ); - Sequence< ScriptEventDescriptor > aEvents( xEventManager->getScriptEvents( nObjectIndex ) ); - - // is there already a registered script for this event? - ScriptEventDescriptor* pEvent = aEvents.getArray(); - sal_Int32 eventCount = aEvents.getLength(), event = 0; - for ( event = 0; event < eventCount; ++event, ++pEvent ) - { - if ( ( pEvent->EventMethod == _rScriptEvent.EventMethod ) - && ( lcl_endsWith( _rScriptEvent.ListenerType, pEvent->ListenerType ) ) - // (strange enough, the events we get from getScriptEvents are not fully qualified) - ) - { - // yes - if ( !bResetScript ) - { - // set to something non-empty -> overwrite - pEvent->ScriptCode = sScriptCode; - pEvent->ScriptType = sScriptType; - } - else - { - // set to empty -> remove from sequence - ::std::copy( pEvent + 1, aEvents.getArray() + eventCount, pEvent ); - aEvents.realloc( eventCount - 1 ); - --eventCount; - } - break; - } - } - if ( ( event >= eventCount ) && !bResetScript ) - { - // no, did not find it -> append - aEvents.realloc( eventCount + 1 ); - aEvents[ eventCount ] = _rScriptEvent; - } - - xEventManager->revokeScriptEvents( nObjectIndex ); - xEventManager->registerScriptEvents( nObjectIndex, aEvents ); - - PropertyHandlerHelper::setContextDocumentModified( m_aContext ); - } - catch( const Exception& ) - { - DBG_UNHANDLED_EXCEPTION(); - } - } - - //-------------------------------------------------------------------- - void EventHandler::impl_setDialogElementScriptEvent_nothrow( const ScriptEventDescriptor& _rScriptEvent ) - { - try - { - ::rtl::OUString sScriptCode( _rScriptEvent.ScriptCode ); - bool bResetScript = ( sScriptCode.getLength() == 0 ); - - Reference< XScriptEventsSupplier > xEventsSupplier( m_xComponent, UNO_QUERY_THROW ); - Reference< XNameContainer > xEvents( xEventsSupplier->getEvents(), UNO_QUERY_THROW ); - - ::rtl::OUStringBuffer aCompleteName; - aCompleteName.append( _rScriptEvent.ListenerType ); - aCompleteName.appendAscii( "::" ); - aCompleteName.append( _rScriptEvent.EventMethod ); - ::rtl::OUString sCompleteName( aCompleteName.makeStringAndClear() ); - - bool bExists = xEvents->hasByName( sCompleteName ); - - if ( bResetScript ) - { - if ( bExists ) - xEvents->removeByName( sCompleteName ); - } - else - { - Any aNewValue; aNewValue <<= _rScriptEvent; - - if ( bExists ) - xEvents->replaceByName( sCompleteName, aNewValue ); - else - xEvents->insertByName( sCompleteName, aNewValue ); - } - } - catch( const Exception& ) - { - DBG_UNHANDLED_EXCEPTION(); - } - } - - //-------------------------------------------------------------------- - bool EventHandler::impl_filterMethod_nothrow( const EventDescription& _rEvent ) const - { - // some (control-triggered) events do not make sense for certain grid control columns. However, - // our mechnism to retrieve control-triggered events does not know about this, so we do some - // late filtering here. - switch ( m_nGridColumnType ) - { - case FormComponentType::COMBOBOX: - if ( UID_BRWEVT_ACTIONPERFORMED == _rEvent.sUniqueBrowseId ) - return false; - break; - case FormComponentType::LISTBOX: - if ( ( UID_BRWEVT_CHANGED == _rEvent.sUniqueBrowseId ) - || ( UID_BRWEVT_ACTIONPERFORMED == _rEvent.sUniqueBrowseId ) - ) - return false; - break; - } - - return true; - } - -//........................................................................ -} // namespace pcr -//........................................................................ - -/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ |