svx/source/form/fmscriptingenv.cxx

   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 "fmscriptingenv.hxx"
  21 #include "svx/fmmodel.hxx"
  22
  23 #include <com/sun/star/lang/IllegalArgumentException.hpp>
  24 #include <com/sun/star/script/XScriptListener.hpp>
  25 #include <com/sun/star/container/XHierarchicalNameAccess.hpp>
  26 #include <com/sun/star/reflection/XInterfaceMethodTypeDescription.hpp>
  27 #include <com/sun/star/lang/DisposedException.hpp>
  28 #include <com/sun/star/lang/EventObject.hpp>
  29 #include <com/sun/star/awt/XControl.hpp>
  30
  31 #include <tools/diagnose_ex.h>
  32 #include <cppuhelper/implbase1.hxx>
  33 #include <comphelper/implementationreference.hxx>
  34 #include <comphelper/componentcontext.hxx>
  35 #include <comphelper/processfactory.hxx>
  36 #include <vcl/svapp.hxx>
  37 #include <osl/mutex.hxx>
  38 #include <sfx2/objsh.hxx>
  39 #include <sfx2/app.hxx>
  40 #include <basic/basmgr.hxx>
  41
  42 #include <boost/shared_ptr.hpp>
  43 #include <boost/assign/list_of.hpp>
  44 #include <utility>
  45 using std::pair;
  46 #include <set>
  47
  48 //........................................................................
  49 namespace svxform
  50 {
  51 //........................................................................
  52
  53     using ::com::sun::star::uno::Reference;
  54     using ::com::sun::star::script::XEventAttacherManager;
  55     using ::com::sun::star::lang::IllegalArgumentException;
  56     using ::com::sun::star::script::XScriptListener;
  57     using ::com::sun::star::script::ScriptEvent;
  58     using ::com::sun::star::lang::EventObject;
  59     using ::com::sun::star::reflection::InvocationTargetException;
  60     using ::com::sun::star::uno::Any;
  61     using ::com::sun::star::container::XHierarchicalNameAccess;
  62     using ::com::sun::star::reflection::XInterfaceMethodTypeDescription;
  63     using ::com::sun::star::uno::UNO_QUERY_THROW;
  64     using ::com::sun::star::lang::DisposedException;
  65     using ::com::sun::star::uno::RuntimeException;
  66     using ::com::sun::star::uno::Exception;
  67     using ::com::sun::star::uno::Sequence;
  68     using ::com::sun::star::uno::XInterface;
  69     using ::com::sun::star::awt::XControl;
  70     using ::com::sun::star::beans::XPropertySet;
  71
  72     class FormScriptingEnvironment;
  73
  74     //====================================================================
  75     //= FormScriptListener
  76     //====================================================================
  77     typedef ::cppu::WeakImplHelper1 <   XScriptListener
  78                                     >   FormScriptListener_Base;
  79
  80     /** implements the XScriptListener interface, is used by FormScriptingEnvironment
  81     */
  82     class FormScriptListener    :public FormScriptListener_Base
  83     {
  84     private:
  85         ::osl::Mutex m_aMutex;
  86         FormScriptingEnvironment *m_pScriptExecutor;
  87
  88     public:
  89         FormScriptListener( FormScriptingEnvironment * pScriptExecutor );
  90
  91         // XScriptListener
  92         virtual void SAL_CALL firing( const ScriptEvent& aEvent ) throw (RuntimeException);
  93         virtual Any SAL_CALL approveFiring( const ScriptEvent& aEvent ) throw (InvocationTargetException, RuntimeException);
  94         // XEventListener
  95         virtual void SAL_CALL disposing( const EventObject& Source ) throw (RuntimeException);
  96
  97         // lifetime control
  98         void SAL_CALL dispose();
  99
 100     protected:
 101         ~FormScriptListener();
 102
 103     private:
 104         /** determines whether calling a given method at a given listener interface can be done asynchronously
 105
 106             @param _rListenerType
 107                 the name of the UNO type whose method is to be checked
 108             @param _rMethodName
 109                 the name of the method at the interface determined by _rListenerType
 110
 111             @return
 112                 <TRUE/> if and only if the method is declared <code>oneway</code>, i.e. can be called asynchronously
 113         */
 114         bool    impl_allowAsynchronousCall_nothrow( const OUString& _rListenerType, const OUString& _rMethodName ) const;
 115
 116         /** determines whether the instance is already disposed
 117         */
 118         bool    impl_isDisposed_nothrow() const { return !m_pScriptExecutor; }
 119
 120         /** fires the given script event in a thread-safe manner
 121
 122             This methods calls our script executor's doFireScriptEvent, with previously releasing the given mutex guard,
 123             but ensuring that our script executor is not deleted between this release and the actual call.
 124
 125             @param _rGuard
 126                 a clearable guard to our mutex. Must be the only active guard to our mutex.
 127             @param _rEvent
 128                 the event to fire
 129             @param _pSyncronousResult
 130                 a place to take a possible result of the script call.
 131
 132             @precond
 133                 m_pScriptExecutor is not <NULL/>.
 134         */
 135         void    impl_doFireScriptEvent_nothrow( ::osl::ClearableMutexGuard& _rGuard, const ScriptEvent& _rEvent, Any* _pSyncronousResult );
 136
 137     private:
 138         DECL_LINK( OnAsyncScriptEvent, ScriptEvent* );
 139     };
 140
 141     //====================================================================
 142     //= FormScriptingEnvironment
 143     //====================================================================
 144     class FormScriptingEnvironment : public IFormScriptingEnvironment
 145     {
 146     private:
 147         typedef ::comphelper::ImplementationReference< FormScriptListener, XScriptListener >    ListenerImplementation;
 148
 149     private:
 150         ::osl::Mutex            m_aMutex;
 151         oslInterlockedCount     m_refCount;
 152         ListenerImplementation  m_pScriptListener;
 153         FmFormModel&            m_rFormModel;
 154         bool                    m_bDisposed;
 155
 156     public:
 157         FormScriptingEnvironment( FmFormModel& _rModel );
 158         virtual ~FormScriptingEnvironment();
 159
 160         // callback for FormScriptListener
 161         void doFireScriptEvent( const ScriptEvent& _rEvent, Any* _pSyncronousResult );
 162
 163         // IFormScriptingEnvironment
 164         virtual void registerEventAttacherManager( const Reference< XEventAttacherManager >& _rxManager );
 165         virtual void revokeEventAttacherManager( const Reference< XEventAttacherManager >& _rxManager );
 166         virtual void dispose();
 167
 168         // IReference
 169         virtual oslInterlockedCount SAL_CALL acquire();
 170         virtual oslInterlockedCount SAL_CALL release();
 171
 172     private:
 173         void impl_registerOrRevoke_throw( const Reference< XEventAttacherManager >& _rxManager, bool _bRegister );
 174
 175     private:
 176         FormScriptingEnvironment();                                                 // never implemented
 177         FormScriptingEnvironment( const FormScriptingEnvironment& );                // never implemented
 178         FormScriptingEnvironment& operator=( const FormScriptingEnvironment& );     // never implemented
 179     };
 180
 181     //====================================================================
 182     //= FormScriptListener
 183     //====================================================================
 184     //--------------------------------------------------------------------
 185     FormScriptListener::FormScriptListener( FormScriptingEnvironment* pScriptExecutor )
 186         :m_pScriptExecutor( pScriptExecutor )
 187     {
 188     }
 189
 190     //--------------------------------------------------------------------
 191     FormScriptListener::~FormScriptListener()
 192     {
 193     }
 194
 195     //--------------------------------------------------------------------
 196     bool FormScriptListener::impl_allowAsynchronousCall_nothrow( const OUString& _rListenerType, const OUString& _rMethodName ) const
 197     {
 198         // This used to be implemented as:
 199         // is (_rListenerType + "::" + _rMethodName) a oneway function?
 200         // since we got rid of the notion of oneway, this is the list
 201         // of oneway methods, autogenerated by postprocessing of
 202         // commitdiff 90eac3e69749a9227c4b6902b1f3cef1e338c6d1
 203         static std::set< pair< OUString, OUString > > delayed_event_listeners =
 204             boost::assign::list_of
 205             (pair<OUString,OUString>("com.sun.star.accessibility.XAccessibleComponent","grabFocus"))
 206             (pair<OUString,OUString>("com.sun.star.accessibility.XAccessibleEventBroadcaster","addAccessibleEventListener"))
 207             (pair<OUString,OUString>("com.sun.star.accessibility.XAccessibleEventBroadcaster","removeAccessibleEventListener"))
 208             (pair<OUString,OUString>("com.sun.star.accessibility.XAccessibleSelection","clearAccessibleSelection"))
 209             (pair<OUString,OUString>("com.sun.star.accessibility.XAccessibleSelection","selectAllAccessibleChildren"))
 210             (pair<OUString,OUString>("com.sun.star.awt.XActionListener","actionPerformed"))
 211             (pair<OUString,OUString>("com.sun.star.awt.XActivateListener","windowActivated"))
 212             (pair<OUString,OUString>("com.sun.star.awt.XActivateListener","windowDeactivated"))
 213             (pair<OUString,OUString>("com.sun.star.awt.XAdjustmentListener","adjustmentValueChanged"))
 214             (pair<OUString,OUString>("com.sun.star.awt.XButton","addActionListener"))
 215             (pair<OUString,OUString>("com.sun.star.awt.XButton","removeActionListener"))
 216             (pair<OUString,OUString>("com.sun.star.awt.XButton","setLabel"))
 217             (pair<OUString,OUString>("com.sun.star.awt.XButton","setActionCommand"))
 218             (pair<OUString,OUString>("com.sun.star.awt.XCheckBox","addItemListener"))
 219             (pair<OUString,OUString>("com.sun.star.awt.XCheckBox","removeItemListener"))
 220             (pair<OUString,OUString>("com.sun.star.awt.XCheckBox","setState"))
 221             (pair<OUString,OUString>("com.sun.star.awt.XCheckBox","setLabel"))
 222             (pair<OUString,OUString>("com.sun.star.awt.XCheckBox","enableTriState"))
 223             (pair<OUString,OUString>("com.sun.star.awt.XComboBox","addItemListener"))
 224             (pair<OUString,OUString>("com.sun.star.awt.XComboBox","removeItemListener"))
 225             (pair<OUString,OUString>("com.sun.star.awt.XComboBox","addActionListener"))
 226             (pair<OUString,OUString>("com.sun.star.awt.XComboBox","removeActionListener"))
 227             (pair<OUString,OUString>("com.sun.star.awt.XComboBox","addItem"))
 228             (pair<OUString,OUString>("com.sun.star.awt.XComboBox","addItems"))
 229             (pair<OUString,OUString>("com.sun.star.awt.XComboBox","removeItems"))
 230             (pair<OUString,OUString>("com.sun.star.awt.XComboBox","setDropDownLineCount"))
 231             (pair<OUString,OUString>("com.sun.star.awt.XControl","setContext"))
 232             (pair<OUString,OUString>("com.sun.star.awt.XControl","createPeer"))
 233             (pair<OUString,OUString>("com.sun.star.awt.XControl","setDesignMode"))
 234             (pair<OUString,OUString>("com.sun.star.awt.XControlContainer","setStatusText"))
 235             (pair<OUString,OUString>("com.sun.star.awt.XControlContainer","addControl"))
 236             (pair<OUString,OUString>("com.sun.star.awt.XControlContainer","removeControl"))
 237             (pair<OUString,OUString>("com.sun.star.awt.XCurrencyField","setValue"))
 238             (pair<OUString,OUString>("com.sun.star.awt.XCurrencyField","setMin"))
 239             (pair<OUString,OUString>("com.sun.star.awt.XCurrencyField","setMax"))
 240             (pair<OUString,OUString>("com.sun.star.awt.XCurrencyField","setFirst"))
 241             (pair<OUString,OUString>("com.sun.star.awt.XCurrencyField","setLast"))
 242             (pair<OUString,OUString>("com.sun.star.awt.XCurrencyField","setSpinSize"))
 243             (pair<OUString,OUString>("com.sun.star.awt.XCurrencyField","setDecimalDigits"))
 244             (pair<OUString,OUString>("com.sun.star.awt.XCurrencyField","setStrictFormat"))
 245             (pair<OUString,OUString>("com.sun.star.awt.XDateField","setDate"))
 246             (pair<OUString,OUString>("com.sun.star.awt.XDateField","setMin"))
 247             (pair<OUString,OUString>("com.sun.star.awt.XDateField","setMax"))
 248             (pair<OUString,OUString>("com.sun.star.awt.XDateField","setFirst"))
 249             (pair<OUString,OUString>("com.sun.star.awt.XDateField","setLast"))
 250             (pair<OUString,OUString>("com.sun.star.awt.XDateField","setLongFormat"))
 251             (pair<OUString,OUString>("com.sun.star.awt.XDateField","setStrictFormat"))
 252             (pair<OUString,OUString>("com.sun.star.awt.XDialog","setTitle"))
 253             (pair<OUString,OUString>("com.sun.star.awt.XDisplayConnection","addEventHandler"))
 254             (pair<OUString,OUString>("com.sun.star.awt.XDisplayConnection","removeEventHandler"))
 255             (pair<OUString,OUString>("com.sun.star.awt.XDisplayConnection","addErrorHandler"))
 256             (pair<OUString,OUString>("com.sun.star.awt.XDisplayConnection","removeErrorHandler"))
 257             (pair<OUString,OUString>("com.sun.star.awt.XExtendedToolkit","addTopWindowListener"))
 258             (pair<OUString,OUString>("com.sun.star.awt.XExtendedToolkit","removeTopWindowListener"))
 259             (pair<OUString,OUString>("com.sun.star.awt.XExtendedToolkit","addKeyHandler"))
 260             (pair<OUString,OUString>("com.sun.star.awt.XExtendedToolkit","removeKeyHandler"))
 261             (pair<OUString,OUString>("com.sun.star.awt.XExtendedToolkit","addFocusListener"))
 262             (pair<OUString,OUString>("com.sun.star.awt.XExtendedToolkit","removeFocusListener"))
 263             (pair<OUString,OUString>("com.sun.star.awt.XExtendedToolkit","fireFocusGained"))
 264             (pair<OUString,OUString>("com.sun.star.awt.XExtendedToolkit","fireFocusLost"))
 265             (pair<OUString,OUString>("com.sun.star.awt.XFileDialog","setPath"))
 266             (pair<OUString,OUString>("com.sun.star.awt.XFileDialog","setFilters"))
 267             (pair<OUString,OUString>("com.sun.star.awt.XFileDialog","setCurrentFilter"))
 268             (pair<OUString,OUString>("com.sun.star.awt.XFixedHyperlink","setText"))
 269             (pair<OUString,OUString>("com.sun.star.awt.XFixedHyperlink","setURL"))
 270             (pair<OUString,OUString>("com.sun.star.awt.XFixedHyperlink","setAlignment"))
 271             (pair<OUString,OUString>("com.sun.star.awt.XFixedHyperlink","addActionListener"))
 272             (pair<OUString,OUString>("com.sun.star.awt.XFixedHyperlink","removeActionListener"))
 273             (pair<OUString,OUString>("com.sun.star.awt.XFixedText","setText"))
 274             (pair<OUString,OUString>("com.sun.star.awt.XFixedText","setAlignment"))
 275             (pair<OUString,OUString>("com.sun.star.awt.XFocusListener","focusGained"))
 276             (pair<OUString,OUString>("com.sun.star.awt.XFocusListener","focusLost"))
 277             (pair<OUString,OUString>("com.sun.star.awt.XGraphics","setFont"))
 278             (pair<OUString,OUString>("com.sun.star.awt.XGraphics","selectFont"))
 279             (pair<OUString,OUString>("com.sun.star.awt.XGraphics","setTextColor"))
 280             (pair<OUString,OUString>("com.sun.star.awt.XGraphics","setTextFillColor"))
 281             (pair<OUString,OUString>("com.sun.star.awt.XGraphics","setLineColor"))
 282             (pair<OUString,OUString>("com.sun.star.awt.XGraphics","setFillColor"))
 283             (pair<OUString,OUString>("com.sun.star.awt.XGraphics","setRasterOp"))
 284             (pair<OUString,OUString>("com.sun.star.awt.XGraphics","setClipRegion"))
 285             (pair<OUString,OUString>("com.sun.star.awt.XGraphics","intersectClipRegion"))
 286             (pair<OUString,OUString>("com.sun.star.awt.XGraphics","push"))
 287             (pair<OUString,OUString>("com.sun.star.awt.XGraphics","pop"))
 288             (pair<OUString,OUString>("com.sun.star.awt.XGraphics","copy"))
 289             (pair<OUString,OUString>("com.sun.star.awt.XGraphics","draw"))
 290             (pair<OUString,OUString>("com.sun.star.awt.XGraphics","drawPixel"))
 291             (pair<OUString,OUString>("com.sun.star.awt.XGraphics","drawLine"))
 292             (pair<OUString,OUString>("com.sun.star.awt.XGraphics","drawRect"))
 293             (pair<OUString,OUString>("com.sun.star.awt.XGraphics","drawRoundedRect"))
 294             (pair<OUString,OUString>("com.sun.star.awt.XGraphics","drawPolyLine"))
 295             (pair<OUString,OUString>("com.sun.star.awt.XGraphics","drawPolygon"))
 296             (pair<OUString,OUString>("com.sun.star.awt.XGraphics","drawPolyPolygon"))
 297             (pair<OUString,OUString>("com.sun.star.awt.XGraphics","drawEllipse"))
 298             (pair<OUString,OUString>("com.sun.star.awt.XGraphics","drawArc"))
 299             (pair<OUString,OUString>("com.sun.star.awt.XGraphics","drawPie"))
 300             (pair<OUString,OUString>("com.sun.star.awt.XGraphics","drawChord"))
 301             (pair<OUString,OUString>("com.sun.star.awt.XGraphics","drawGradient"))
 302             (pair<OUString,OUString>("com.sun.star.awt.XGraphics","drawText"))
 303             (pair<OUString,OUString>("com.sun.star.awt.XGraphics","drawTextArray"))
 304             (pair<OUString,OUString>("com.sun.star.awt.XImageButton","addActionListener"))
 305             (pair<OUString,OUString>("com.sun.star.awt.XImageButton","removeActionListener"))
 306             (pair<OUString,OUString>("com.sun.star.awt.XImageButton","setActionCommand"))
 307             (pair<OUString,OUString>("com.sun.star.awt.XImageConsumer","init"))
 308             (pair<OUString,OUString>("com.sun.star.awt.XImageConsumer","setColorModel"))
 309             (pair<OUString,OUString>("com.sun.star.awt.XImageConsumer","setPixelsByBytes"))
 310             (pair<OUString,OUString>("com.sun.star.awt.XImageConsumer","setPixelsByLongs"))
 311             (pair<OUString,OUString>("com.sun.star.awt.XImageConsumer","complete"))
 312             (pair<OUString,OUString>("com.sun.star.awt.XImageProducer","addConsumer"))
 313             (pair<OUString,OUString>("com.sun.star.awt.XImageProducer","removeConsumer"))
 314             (pair<OUString,OUString>("com.sun.star.awt.XImageProducer","startProduction"))
 315             (pair<OUString,OUString>("com.sun.star.awt.XItemEventBroadcaster","addItemListener"))
 316             (pair<OUString,OUString>("com.sun.star.awt.XItemEventBroadcaster","removeItemListener"))
 317             (pair<OUString,OUString>("com.sun.star.awt.XItemListener","itemStateChanged"))
 318             (pair<OUString,OUString>("com.sun.star.awt.XKeyListener","keyPressed"))
 319             (pair<OUString,OUString>("com.sun.star.awt.XKeyListener","keyReleased"))
 320             (pair<OUString,OUString>("com.sun.star.awt.XListBox","addItemListener"))
 321             (pair<OUString,OUString>("com.sun.star.awt.XListBox","removeItemListener"))
 322             (pair<OUString,OUString>("com.sun.star.awt.XListBox","addActionListener"))
 323             (pair<OUString,OUString>("com.sun.star.awt.XListBox","removeActionListener"))
 324             (pair<OUString,OUString>("com.sun.star.awt.XListBox","addItem"))
 325             (pair<OUString,OUString>("com.sun.star.awt.XListBox","addItems"))
 326             (pair<OUString,OUString>("com.sun.star.awt.XListBox","removeItems"))
 327             (pair<OUString,OUString>("com.sun.star.awt.XListBox","selectItemPos"))
 328             (pair<OUString,OUString>("com.sun.star.awt.XListBox","selectItemsPos"))
 329             (pair<OUString,OUString>("com.sun.star.awt.XListBox","selectItem"))
 330             (pair<OUString,OUString>("com.sun.star.awt.XListBox","setMultipleMode"))
 331             (pair<OUString,OUString>("com.sun.star.awt.XListBox","setDropDownLineCount"))
 332             (pair<OUString,OUString>("com.sun.star.awt.XListBox","makeVisible"))
 333             (pair<OUString,OUString>("com.sun.star.awt.XMenu","addMenuListener"))
 334             (pair<OUString,OUString>("com.sun.star.awt.XMenu","removeMenuListener"))
 335             (pair<OUString,OUString>("com.sun.star.awt.XMenu","insertItem"))
 336             (pair<OUString,OUString>("com.sun.star.awt.XMenu","removeItem"))
 337             (pair<OUString,OUString>("com.sun.star.awt.XMenu","enableItem"))
 338             (pair<OUString,OUString>("com.sun.star.awt.XMenu","setItemText"))
 339             (pair<OUString,OUString>("com.sun.star.awt.XMenu","setPopupMenu"))
 340             (pair<OUString,OUString>("com.sun.star.awt.XMenuListener","highlight"))
 341             (pair<OUString,OUString>("com.sun.star.awt.XMenuListener","select"))
 342             (pair<OUString,OUString>("com.sun.star.awt.XMenuListener","activate"))
 343             (pair<OUString,OUString>("com.sun.star.awt.XMenuListener","deactivate"))
 344             (pair<OUString,OUString>("com.sun.star.awt.XMessageBox","setCaptionText"))
 345             (pair<OUString,OUString>("com.sun.star.awt.XMessageBox","setMessageText"))
 346             (pair<OUString,OUString>("com.sun.star.awt.XMouseListener","mousePressed"))
 347             (pair<OUString,OUString>("com.sun.star.awt.XMouseListener","mouseReleased"))
 348             (pair<OUString,OUString>("com.sun.star.awt.XMouseListener","mouseEntered"))
 349             (pair<OUString,OUString>("com.sun.star.awt.XMouseListener","mouseExited"))
 350             (pair<OUString,OUString>("com.sun.star.awt.XNumericField","setValue"))
 351             (pair<OUString,OUString>("com.sun.star.awt.XNumericField","setMin"))
 352             (pair<OUString,OUString>("com.sun.star.awt.XNumericField","setMax"))
 353             (pair<OUString,OUString>("com.sun.star.awt.XNumericField","setFirst"))
 354             (pair<OUString,OUString>("com.sun.star.awt.XNumericField","setLast"))
 355             (pair<OUString,OUString>("com.sun.star.awt.XNumericField","setSpinSize"))
 356             (pair<OUString,OUString>("com.sun.star.awt.XNumericField","setDecimalDigits"))
 357             (pair<OUString,OUString>("com.sun.star.awt.XNumericField","setStrictFormat"))
 358             (pair<OUString,OUString>("com.sun.star.awt.XPaintListener","windowPaint"))
 359             (pair<OUString,OUString>("com.sun.star.awt.XPatternField","setMasks"))
 360             (pair<OUString,OUString>("com.sun.star.awt.XPatternField","setString"))
 361             (pair<OUString,OUString>("com.sun.star.awt.XPatternField","setStrictFormat"))
 362             (pair<OUString,OUString>("com.sun.star.awt.XPointer","setType"))
 363             (pair<OUString,OUString>("com.sun.star.awt.XPopupMenu","insertSeparator"))
 364             (pair<OUString,OUString>("com.sun.star.awt.XPopupMenu","setDefaultItem"))
 365             (pair<OUString,OUString>("com.sun.star.awt.XPopupMenu","checkItem"))
 366             (pair<OUString,OUString>("com.sun.star.awt.XProgressBar","setForegroundColor"))
 367             (pair<OUString,OUString>("com.sun.star.awt.XProgressBar","setBackgroundColor"))
 368             (pair<OUString,OUString>("com.sun.star.awt.XProgressBar","setRange"))
 369             (pair<OUString,OUString>("com.sun.star.awt.XProgressBar","setValue"))
 370             (pair<OUString,OUString>("com.sun.star.awt.XProgressMonitor","addText"))
 371             (pair<OUString,OUString>("com.sun.star.awt.XProgressMonitor","removeText"))
 372             (pair<OUString,OUString>("com.sun.star.awt.XProgressMonitor","updateText"))
 373             (pair<OUString,OUString>("com.sun.star.awt.XRadioButton","addItemListener"))
 374             (pair<OUString,OUString>("com.sun.star.awt.XRadioButton","removeItemListener"))
 375             (pair<OUString,OUString>("com.sun.star.awt.XRadioButton","setState"))
 376             (pair<OUString,OUString>("com.sun.star.awt.XRadioButton","setLabel"))
 377             (pair<OUString,OUString>("com.sun.star.awt.XRegion","clear"))
 378             (pair<OUString,OUString>("com.sun.star.awt.XRegion","move"))
 379             (pair<OUString,OUString>("com.sun.star.awt.XRegion","unionRectangle"))
 380             (pair<OUString,OUString>("com.sun.star.awt.XRegion","intersectRectangle"))
 381             (pair<OUString,OUString>("com.sun.star.awt.XRegion","excludeRectangle"))
 382             (pair<OUString,OUString>("com.sun.star.awt.XRegion","xOrRectangle"))
 383             (pair<OUString,OUString>("com.sun.star.awt.XRegion","unionRegion"))
 384             (pair<OUString,OUString>("com.sun.star.awt.XRegion","intersectRegion"))
 385             (pair<OUString,OUString>("com.sun.star.awt.XRegion","excludeRegion"))
 386             (pair<OUString,OUString>("com.sun.star.awt.XRegion","xOrRegion"))
 387             (pair<OUString,OUString>("com.sun.star.awt.XScrollBar","addAdjustmentListener"))
 388             (pair<OUString,OUString>("com.sun.star.awt.XScrollBar","removeAdjustmentListener"))
 389             (pair<OUString,OUString>("com.sun.star.awt.XScrollBar","setValue"))
 390             (pair<OUString,OUString>("com.sun.star.awt.XScrollBar","setValues"))
 391             (pair<OUString,OUString>("com.sun.star.awt.XScrollBar","setMaximum"))
 392             (pair<OUString,OUString>("com.sun.star.awt.XScrollBar","setLineIncrement"))
 393             (pair<OUString,OUString>("com.sun.star.awt.XScrollBar","setBlockIncrement"))
 394             (pair<OUString,OUString>("com.sun.star.awt.XScrollBar","setVisibleSize"))
 395             (pair<OUString,OUString>("com.sun.star.awt.XScrollBar","setOrientation"))
 396             (pair<OUString,OUString>("com.sun.star.awt.XSpinField","addSpinListener"))
 397             (pair<OUString,OUString>("com.sun.star.awt.XSpinField","removeSpinListener"))
 398             (pair<OUString,OUString>("com.sun.star.awt.XSpinField","up"))
 399             (pair<OUString,OUString>("com.sun.star.awt.XSpinField","down"))
 400             (pair<OUString,OUString>("com.sun.star.awt.XSpinField","first"))
 401             (pair<OUString,OUString>("com.sun.star.awt.XSpinField","last"))
 402             (pair<OUString,OUString>("com.sun.star.awt.XSpinField","enableRepeat"))
 403             (pair<OUString,OUString>("com.sun.star.awt.XSpinListener","up"))
 404             (pair<OUString,OUString>("com.sun.star.awt.XSpinListener","down"))
 405             (pair<OUString,OUString>("com.sun.star.awt.XSpinListener","first"))
 406             (pair<OUString,OUString>("com.sun.star.awt.XSpinListener","last"))
 407             (pair<OUString,OUString>("com.sun.star.awt.XSpinValue","addAdjustmentListener"))
 408             (pair<OUString,OUString>("com.sun.star.awt.XSpinValue","removeAdjustmentListener"))
 409             (pair<OUString,OUString>("com.sun.star.awt.XSpinValue","setValue"))
 410             (pair<OUString,OUString>("com.sun.star.awt.XSpinValue","setValues"))
 411             (pair<OUString,OUString>("com.sun.star.awt.XSpinValue","setMinimum"))
 412             (pair<OUString,OUString>("com.sun.star.awt.XSpinValue","setMaximum"))
 413             (pair<OUString,OUString>("com.sun.star.awt.XSpinValue","setSpinIncrement"))
 414             (pair<OUString,OUString>("com.sun.star.awt.XTabController","setModel"))
 415             (pair<OUString,OUString>("com.sun.star.awt.XTabController","setContainer"))
 416             (pair<OUString,OUString>("com.sun.star.awt.XTabController","autoTabOrder"))
 417             (pair<OUString,OUString>("com.sun.star.awt.XTabController","activateTabOrder"))
 418             (pair<OUString,OUString>("com.sun.star.awt.XTabController","activateFirst"))
 419             (pair<OUString,OUString>("com.sun.star.awt.XTabController","activateLast"))
 420             (pair<OUString,OUString>("com.sun.star.awt.XTabControllerModel","setGroupControl"))
 421             (pair<OUString,OUString>("com.sun.star.awt.XTabControllerModel","setControlModels"))
 422             (pair<OUString,OUString>("com.sun.star.awt.XTabControllerModel","setGroup"))
 423             (pair<OUString,OUString>("com.sun.star.awt.XTextComponent","addTextListener"))
 424             (pair<OUString,OUString>("com.sun.star.awt.XTextComponent","removeTextListener"))
 425             (pair<OUString,OUString>("com.sun.star.awt.XTextComponent","setText"))
 426             (pair<OUString,OUString>("com.sun.star.awt.XTextComponent","insertText"))
 427             (pair<OUString,OUString>("com.sun.star.awt.XTextComponent","setSelection"))
 428             (pair<OUString,OUString>("com.sun.star.awt.XTextComponent","setEditable"))
 429             (pair<OUString,OUString>("com.sun.star.awt.XTextComponent","setMaxTextLen"))
 430             (pair<OUString,OUString>("com.sun.star.awt.XTextEditField","setEchoChar"))
 431             (pair<OUString,OUString>("com.sun.star.awt.XTextListener","textChanged"))
 432             (pair<OUString,OUString>("com.sun.star.awt.XTimeField","setTime"))
 433             (pair<OUString,OUString>("com.sun.star.awt.XTimeField","setMin"))
 434             (pair<OUString,OUString>("com.sun.star.awt.XTimeField","setMax"))
 435             (pair<OUString,OUString>("com.sun.star.awt.XTimeField","setFirst"))
 436             (pair<OUString,OUString>("com.sun.star.awt.XTimeField","setLast"))
 437             (pair<OUString,OUString>("com.sun.star.awt.XTimeField","setStrictFormat"))
 438             (pair<OUString,OUString>("com.sun.star.awt.XTopWindow","addTopWindowListener"))
 439             (pair<OUString,OUString>("com.sun.star.awt.XTopWindow","removeTopWindowListener"))
 440             (pair<OUString,OUString>("com.sun.star.awt.XTopWindow","toFront"))
 441             (pair<OUString,OUString>("com.sun.star.awt.XTopWindow","toBack"))
 442             (pair<OUString,OUString>("com.sun.star.awt.XTopWindow","setMenuBar"))
 443             (pair<OUString,OUString>("com.sun.star.awt.XTopWindowListener","windowOpened"))
 444             (pair<OUString,OUString>("com.sun.star.awt.XTopWindowListener","windowClosing"))
 445             (pair<OUString,OUString>("com.sun.star.awt.XTopWindowListener","windowClosed"))
 446             (pair<OUString,OUString>("com.sun.star.awt.XTopWindowListener","windowMinimized"))
 447             (pair<OUString,OUString>("com.sun.star.awt.XTopWindowListener","windowNormalized"))
 448             (pair<OUString,OUString>("com.sun.star.awt.XTopWindowListener","windowActivated"))
 449             (pair<OUString,OUString>("com.sun.star.awt.XTopWindowListener","windowDeactivated"))
 450             (pair<OUString,OUString>("com.sun.star.awt.XUnoControlContainer","setTabControllers"))
 451             (pair<OUString,OUString>("com.sun.star.awt.XUnoControlContainer","addTabController"))
 452             (pair<OUString,OUString>("com.sun.star.awt.XUnoControlContainer","removeTabController"))
 453             (pair<OUString,OUString>("com.sun.star.awt.XUserInputInterception","addKeyHandler"))
 454             (pair<OUString,OUString>("com.sun.star.awt.XUserInputInterception","removeKeyHandler"))
 455             (pair<OUString,OUString>("com.sun.star.awt.XUserInputInterception","addMouseClickHandler"))
 456             (pair<OUString,OUString>("com.sun.star.awt.XUserInputInterception","removeMouseClickHandler"))
 457             (pair<OUString,OUString>("com.sun.star.awt.XVclContainer","addVclContainerListener"))
 458             (pair<OUString,OUString>("com.sun.star.awt.XVclContainer","removeVclContainerListener"))
 459             (pair<OUString,OUString>("com.sun.star.awt.XVclContainerListener","windowAdded"))
 460             (pair<OUString,OUString>("com.sun.star.awt.XVclContainerListener","windowRemoved"))
 461             (pair<OUString,OUString>("com.sun.star.awt.XVclContainerPeer","enableDialogControl"))
 462             (pair<OUString,OUString>("com.sun.star.awt.XVclContainerPeer","setTabOrder"))
 463             (pair<OUString,OUString>("com.sun.star.awt.XVclContainerPeer","setGroup"))
 464             (pair<OUString,OUString>("com.sun.star.awt.XVclWindowPeer","setDesignMode"))
 465             (pair<OUString,OUString>("com.sun.star.awt.XVclWindowPeer","enableClipSiblings"))
 466             (pair<OUString,OUString>("com.sun.star.awt.XVclWindowPeer","setForeground"))
 467             (pair<OUString,OUString>("com.sun.star.awt.XVclWindowPeer","setControlFont"))
 468             (pair<OUString,OUString>("com.sun.star.awt.XView","draw"))
 469             (pair<OUString,OUString>("com.sun.star.awt.XView","setZoom"))
 470             (pair<OUString,OUString>("com.sun.star.awt.XWindow","setPosSize"))
 471             (pair<OUString,OUString>("com.sun.star.awt.XWindow","setVisible"))
 472             (pair<OUString,OUString>("com.sun.star.awt.XWindow","setEnable"))
 473             (pair<OUString,OUString>("com.sun.star.awt.XWindow","setFocus"))
 474             (pair<OUString,OUString>("com.sun.star.awt.XWindow","addWindowListener"))
 475             (pair<OUString,OUString>("com.sun.star.awt.XWindow","removeWindowListener"))
 476             (pair<OUString,OUString>("com.sun.star.awt.XWindow","addFocusListener"))
 477             (pair<OUString,OUString>("com.sun.star.awt.XWindow","removeFocusListener"))
 478             (pair<OUString,OUString>("com.sun.star.awt.XWindow","addKeyListener"))
 479             (pair<OUString,OUString>("com.sun.star.awt.XWindow","removeKeyListener"))
 480             (pair<OUString,OUString>("com.sun.star.awt.XWindow","addMouseListener"))
 481             (pair<OUString,OUString>("com.sun.star.awt.XWindow","removeMouseListener"))
 482             (pair<OUString,OUString>("com.sun.star.awt.XWindow","addMouseMotionListener"))
 483             (pair<OUString,OUString>("com.sun.star.awt.XWindow","removeMouseMotionListener"))
 484             (pair<OUString,OUString>("com.sun.star.awt.XWindow","addPaintListener"))
 485             (pair<OUString,OUString>("com.sun.star.awt.XWindow","removePaintListener"))
 486             (pair<OUString,OUString>("com.sun.star.awt.XWindowListener","windowResized"))
 487             (pair<OUString,OUString>("com.sun.star.awt.XWindowListener","windowMoved"))
 488             (pair<OUString,OUString>("com.sun.star.awt.XWindowListener","windowShown"))
 489             (pair<OUString,OUString>("com.sun.star.awt.XWindowListener","windowHidden"))
 490             (pair<OUString,OUString>("com.sun.star.awt.XWindowListener2","windowEnabled"))
 491             (pair<OUString,OUString>("com.sun.star.awt.XWindowListener2","windowDisabled"))
 492             (pair<OUString,OUString>("com.sun.star.awt.XWindowPeer","setPointer"))
 493             (pair<OUString,OUString>("com.sun.star.awt.XWindowPeer","setBackground"))
 494             (pair<OUString,OUString>("com.sun.star.awt.XWindowPeer","invalidate"))
 495             (pair<OUString,OUString>("com.sun.star.awt.XWindowPeer","invalidateRect"))
 496             (pair<OUString,OUString>("com.sun.star.awt.grid.XGridSelectionListener","selectionChanged"))
 497             (pair<OUString,OUString>("com.sun.star.awt.tab.XTabPageContainer","addTabPageContainerListener"))
 498             (pair<OUString,OUString>("com.sun.star.awt.tab.XTabPageContainer","removeTabPageContainerListener"))
 499             (pair<OUString,OUString>("com.sun.star.awt.tab.XTabPageContainerListener","tabPageActivated"))
 500             (pair<OUString,OUString>("com.sun.star.configuration.backend.XBackendChangesNotifier","addChangesListener"))
 501             (pair<OUString,OUString>("com.sun.star.configuration.backend.XBackendChangesNotifier","removeChangesListener"))
 502             (pair<OUString,OUString>("com.sun.star.datatransfer.clipboard.XClipboard","setContents"))
 503             (pair<OUString,OUString>("com.sun.star.datatransfer.clipboard.XClipboardListener","changedContents"))
 504             (pair<OUString,OUString>("com.sun.star.datatransfer.clipboard.XClipboardNotifier","addClipboardListener"))
 505             (pair<OUString,OUString>("com.sun.star.datatransfer.clipboard.XClipboardNotifier","removeClipboardListener"))
 506             (pair<OUString,OUString>("com.sun.star.datatransfer.clipboard.XClipboardOwner","lostOwnership"))
 507             (pair<OUString,OUString>("com.sun.star.datatransfer.dnd.XAutoscroll","autoscroll"))
 508             (pair<OUString,OUString>("com.sun.star.datatransfer.dnd.XDragGestureListener","dragGestureRecognized"))
 509             (pair<OUString,OUString>("com.sun.star.datatransfer.dnd.XDragGestureRecognizer","addDragGestureListener"))
 510             (pair<OUString,OUString>("com.sun.star.datatransfer.dnd.XDragGestureRecognizer","removeDragGestureListener"))
 511             (pair<OUString,OUString>("com.sun.star.datatransfer.dnd.XDragSource","startDrag"))
 512             (pair<OUString,OUString>("com.sun.star.datatransfer.dnd.XDragSourceContext","setCursor"))
 513             (pair<OUString,OUString>("com.sun.star.datatransfer.dnd.XDragSourceContext","setImage"))
 514             (pair<OUString,OUString>("com.sun.star.datatransfer.dnd.XDragSourceContext","transferablesFlavorsChanged"))
 515             (pair<OUString,OUString>("com.sun.star.datatransfer.dnd.XDragSourceListener","dragDropEnd"))
 516             (pair<OUString,OUString>("com.sun.star.datatransfer.dnd.XDragSourceListener","dragEnter"))
 517             (pair<OUString,OUString>("com.sun.star.datatransfer.dnd.XDragSourceListener","dragExit"))
 518             (pair<OUString,OUString>("com.sun.star.datatransfer.dnd.XDragSourceListener","dragOver"))
 519             (pair<OUString,OUString>("com.sun.star.datatransfer.dnd.XDragSourceListener","dropActionChanged"))
 520             (pair<OUString,OUString>("com.sun.star.datatransfer.dnd.XDropTarget","addDropTargetListener"))
 521             (pair<OUString,OUString>("com.sun.star.datatransfer.dnd.XDropTarget","removeDropTargetListener"))
 522             (pair<OUString,OUString>("com.sun.star.datatransfer.dnd.XDropTarget","setDefaultActions"))
 523             (pair<OUString,OUString>("com.sun.star.datatransfer.dnd.XDropTargetDragContext","acceptDrag"))
 524             (pair<OUString,OUString>("com.sun.star.datatransfer.dnd.XDropTargetDragContext","rejectDrag"))
 525             (pair<OUString,OUString>("com.sun.star.datatransfer.dnd.XDropTargetDropContext","acceptDrop"))
 526             (pair<OUString,OUString>("com.sun.star.datatransfer.dnd.XDropTargetDropContext","rejectDrop"))
 527             (pair<OUString,OUString>("com.sun.star.datatransfer.dnd.XDropTargetDropContext","dropComplete"))
 528             (pair<OUString,OUString>("com.sun.star.datatransfer.dnd.XDropTargetListener","dragEnter"))
 529             (pair<OUString,OUString>("com.sun.star.datatransfer.dnd.XDropTargetListener","dragExit"))
 530             (pair<OUString,OUString>("com.sun.star.datatransfer.dnd.XDropTargetListener","dragOver"))
 531             (pair<OUString,OUString>("com.sun.star.datatransfer.dnd.XDropTargetListener","dropActionChanged"))
 532             (pair<OUString,OUString>("com.sun.star.document.XEventBroadcaster","addEventListener"))
 533             (pair<OUString,OUString>("com.sun.star.document.XEventBroadcaster","removeEventListener"))
 534             (pair<OUString,OUString>("com.sun.star.document.XEventListener","notifyEvent"))
 535             (pair<OUString,OUString>("com.sun.star.document.XStorageChangeListener","notifyStorageChange"))
 536             (pair<OUString,OUString>("com.sun.star.drawing.XControlShape","setControl"))
 537             (pair<OUString,OUString>("com.sun.star.form.XApproveActionBroadcaster","addApproveActionListener"))
 538             (pair<OUString,OUString>("com.sun.star.form.XApproveActionBroadcaster","removeApproveActionListener"))
 539             (pair<OUString,OUString>("com.sun.star.form.XBoundControl","setLock"))
 540             (pair<OUString,OUString>("com.sun.star.form.XChangeBroadcaster","addChangeListener"))
 541             (pair<OUString,OUString>("com.sun.star.form.XChangeBroadcaster","removeChangeListener"))
 542             (pair<OUString,OUString>("com.sun.star.form.XChangeListener","changed"))
 543             (pair<OUString,OUString>("com.sun.star.form.XConfirmDeleteBroadcaster","addConfirmDeleteListener"))
 544             (pair<OUString,OUString>("com.sun.star.form.XConfirmDeleteBroadcaster","removeConfirmDeleteListener"))
 545             (pair<OUString,OUString>("com.sun.star.form.XDatabaseParameterBroadcaster","addParameterListener"))
 546             (pair<OUString,OUString>("com.sun.star.form.XDatabaseParameterBroadcaster","removeParameterListener"))
 547             (pair<OUString,OUString>("com.sun.star.form.XDatabaseParameterBroadcaster2","addDatabaseParameterListener"))
 548             (pair<OUString,OUString>("com.sun.star.form.XDatabaseParameterBroadcaster2","removeDatabaseParameterListener"))
 549             (pair<OUString,OUString>("com.sun.star.form.XErrorBroadcaster","addErrorListener"))
 550             (pair<OUString,OUString>("com.sun.star.form.XErrorBroadcaster","removeErrorListener"))
 551             (pair<OUString,OUString>("com.sun.star.form.XFormController","addActivateListener"))
 552             (pair<OUString,OUString>("com.sun.star.form.XFormController","removeActivateListener"))
 553             (pair<OUString,OUString>("com.sun.star.form.XFormControllerListener","formActivated"))
 554             (pair<OUString,OUString>("com.sun.star.form.XFormControllerListener","formDeactivated"))
 555             (pair<OUString,OUString>("com.sun.star.form.XGrid","setCurrentColumnPosition"))
 556             (pair<OUString,OUString>("com.sun.star.form.XGridPeer","setColumns"))
 557             (pair<OUString,OUString>("com.sun.star.form.XLoadListener","loaded"))
 558             (pair<OUString,OUString>("com.sun.star.form.XLoadListener","unloading"))
 559             (pair<OUString,OUString>("com.sun.star.form.XLoadListener","unloaded"))
 560             (pair<OUString,OUString>("com.sun.star.form.XLoadListener","reloading"))
 561             (pair<OUString,OUString>("com.sun.star.form.XLoadListener","reloaded"))
 562             (pair<OUString,OUString>("com.sun.star.form.XLoadable","load"))
 563             (pair<OUString,OUString>("com.sun.star.form.XLoadable","unload"))
 564             (pair<OUString,OUString>("com.sun.star.form.XLoadable","reload"))
 565             (pair<OUString,OUString>("com.sun.star.form.XLoadable","addLoadListener"))
 566             (pair<OUString,OUString>("com.sun.star.form.XLoadable","removeLoadListener"))
 567             (pair<OUString,OUString>("com.sun.star.form.XPositioningListener","positioned"))
 568             (pair<OUString,OUString>("com.sun.star.form.XReset","reset"))
 569             (pair<OUString,OUString>("com.sun.star.form.XReset","addResetListener"))
 570             (pair<OUString,OUString>("com.sun.star.form.XReset","removeResetListener"))
 571             (pair<OUString,OUString>("com.sun.star.form.XResetListener","resetted"))
 572             (pair<OUString,OUString>("com.sun.star.form.XSubmit","submit"))
 573             (pair<OUString,OUString>("com.sun.star.form.XSubmit","addSubmitListener"))
 574             (pair<OUString,OUString>("com.sun.star.form.XSubmit","removeSubmitListener"))
 575             (pair<OUString,OUString>("com.sun.star.form.XUpdateBroadcaster","addUpdateListener"))
 576             (pair<OUString,OUString>("com.sun.star.form.XUpdateBroadcaster","removeUpdateListener"))
 577             (pair<OUString,OUString>("com.sun.star.frame.XBrowseHistoryRegistry","updateViewData"))
 578             (pair<OUString,OUString>("com.sun.star.frame.XBrowseHistoryRegistry","createNewEntry"))
 579             (pair<OUString,OUString>("com.sun.star.frame.XConfigManager","addPropertyChangeListener"))
 580             (pair<OUString,OUString>("com.sun.star.frame.XConfigManager","removePropertyChangeListener"))
 581             (pair<OUString,OUString>("com.sun.star.frame.XConfigManager","flush"))
 582             (pair<OUString,OUString>("com.sun.star.frame.XDesktop","addTerminateListener"))
 583             (pair<OUString,OUString>("com.sun.star.frame.XDesktop","removeTerminateListener"))
 584             (pair<OUString,OUString>("com.sun.star.frame.XDispatch","dispatch"))
 585             (pair<OUString,OUString>("com.sun.star.frame.XDispatch","addStatusListener"))
 586             (pair<OUString,OUString>("com.sun.star.frame.XDispatch","removeStatusListener"))
 587             (pair<OUString,OUString>("com.sun.star.frame.XDocumentTemplates","update"))
 588             (pair<OUString,OUString>("com.sun.star.frame.XFrame","setCreator"))
 589             (pair<OUString,OUString>("com.sun.star.frame.XFrame","setName"))
 590             (pair<OUString,OUString>("com.sun.star.frame.XFrame","activate"))
 591             (pair<OUString,OUString>("com.sun.star.frame.XFrame","deactivate"))
 592             (pair<OUString,OUString>("com.sun.star.frame.XFrame","addFrameActionListener"))
 593             (pair<OUString,OUString>("com.sun.star.frame.XFrame","removeFrameActionListener"))
 594             (pair<OUString,OUString>("com.sun.star.frame.XFrameActionListener","frameAction"))
 595             (pair<OUString,OUString>("com.sun.star.frame.XFrameLoader","load"))
 596             (pair<OUString,OUString>("com.sun.star.frame.XFrameLoader","cancel"))
 597             (pair<OUString,OUString>("com.sun.star.frame.XLoadEventListener","loadFinished"))
 598             (pair<OUString,OUString>("com.sun.star.frame.XLoadEventListener","loadCancelled"))
 599             (pair<OUString,OUString>("com.sun.star.frame.XModel","connectController"))
 600             (pair<OUString,OUString>("com.sun.star.frame.XModel","disconnectController"))
 601             (pair<OUString,OUString>("com.sun.star.frame.XModel","lockControllers"))
 602             (pair<OUString,OUString>("com.sun.star.frame.XModel","unlockControllers"))
 603             (pair<OUString,OUString>("com.sun.star.frame.XNotifyingDispatch","dispatchWithNotification"))
 604             (pair<OUString,OUString>("com.sun.star.frame.XRecordableDispatch","dispatchAndRecord"))
 605             (pair<OUString,OUString>("com.sun.star.frame.XSessionManagerClient","addSessionManagerListener"))
 606             (pair<OUString,OUString>("com.sun.star.frame.XSessionManagerClient","removeSessionManagerListener"))
 607             (pair<OUString,OUString>("com.sun.star.frame.XSessionManagerClient","queryInteraction"))
 608             (pair<OUString,OUString>("com.sun.star.frame.XSessionManagerClient","interactionDone"))
 609             (pair<OUString,OUString>("com.sun.star.frame.XSessionManagerClient","saveDone"))
 610             (pair<OUString,OUString>("com.sun.star.frame.XSessionManagerListener","doSave"))
 611             (pair<OUString,OUString>("com.sun.star.frame.XSessionManagerListener","approveInteraction"))
 612             (pair<OUString,OUString>("com.sun.star.frame.XSessionManagerListener","shutdownCanceled"))
 613             (pair<OUString,OUString>("com.sun.star.frame.XSessionManagerListener2","doQuit"))
 614             (pair<OUString,OUString>("com.sun.star.frame.XStatusListener","statusChanged"))
 615             (pair<OUString,OUString>("com.sun.star.frame.XTask","tileWindows"))
 616             (pair<OUString,OUString>("com.sun.star.frame.XTask","arrangeWindowsVertical"))
 617             (pair<OUString,OUString>("com.sun.star.frame.XTask","arrangeWindowsHorizontal"))
 618             (pair<OUString,OUString>("com.sun.star.frame.XWindowArranger","arrange"))
 619             (pair<OUString,OUString>("com.sun.star.inspection.XPropertyControlContext","activateNextControl"))
 620             (pair<OUString,OUString>("com.sun.star.inspection.XPropertyControlObserver","focusGained"))
 621             (pair<OUString,OUString>("com.sun.star.inspection.XPropertyControlObserver","valueChanged"))
 622             (pair<OUString,OUString>("com.sun.star.mozilla.XCloseSessionListener","sessionClosed"))
 623             (pair<OUString,OUString>("com.sun.star.mozilla.XMenuProxy","addMenuProxyListener"))
 624             (pair<OUString,OUString>("com.sun.star.mozilla.XMenuProxy","removeMenuProxyListener"))
 625             (pair<OUString,OUString>("com.sun.star.mozilla.XPluginInstance","start"))
 626             (pair<OUString,OUString>("com.sun.star.mozilla.XPluginInstance","stop"))
 627             (pair<OUString,OUString>("com.sun.star.mozilla.XPluginInstance","destroy"))
 628             (pair<OUString,OUString>("com.sun.star.mozilla.XPluginInstance","createWindow"))
 629             (pair<OUString,OUString>("com.sun.star.mozilla.XPluginInstance","newStream"))
 630             (pair<OUString,OUString>("com.sun.star.mozilla.XPluginInstance","newURL"))
 631             (pair<OUString,OUString>("com.sun.star.mozilla.XPluginInstanceNotifySink","notifyURL"))
 632             (pair<OUString,OUString>("com.sun.star.mozilla.XPluginInstancePeer","showStatusMessage"))
 633             (pair<OUString,OUString>("com.sun.star.mozilla.XPluginInstancePeer","enableScripting"))
 634             (pair<OUString,OUString>("com.sun.star.mozilla.XPluginInstancePeer","newStream"))
 635             (pair<OUString,OUString>("com.sun.star.mozilla.XPluginInstancePeer","getURL"))
 636             (pair<OUString,OUString>("com.sun.star.mozilla.XPluginInstancePeer","postURL"))
 637             (pair<OUString,OUString>("com.sun.star.mozilla.XPluginWindowPeer","setChildWindow"))
 638             (pair<OUString,OUString>("com.sun.star.script.vba.XVBACompatibility","addVBAScriptListener"))
 639             (pair<OUString,OUString>("com.sun.star.script.vba.XVBACompatibility","removeVBAScriptListener"))
 640             (pair<OUString,OUString>("com.sun.star.sdb.XDatabaseAccess","addDatabaseAccessListener"))
 641             (pair<OUString,OUString>("com.sun.star.sdb.XDatabaseAccess","removeDatabaseAccessListener"))
 642             (pair<OUString,OUString>("com.sun.star.sdb.XDatabaseAccessListener","connectionChanged"))
 643             (pair<OUString,OUString>("com.sun.star.sdb.XDatabaseAccessListener","connectionClosing"))
 644             (pair<OUString,OUString>("com.sun.star.sdb.XRowSetApproveBroadcaster","addRowSetApproveListener"))
 645             (pair<OUString,OUString>("com.sun.star.sdb.XRowSetApproveBroadcaster","removeRowSetApproveListener"))
 646             (pair<OUString,OUString>("com.sun.star.sdb.XRowSetChangeListener","onRowSetChanged"))
 647             (pair<OUString,OUString>("com.sun.star.sdb.XRowSetSupplier","setRowSet"))
 648             (pair<OUString,OUString>("com.sun.star.sdb.XRowsChangeListener","rowsChanged"))
 649             (pair<OUString,OUString>("com.sun.star.sdb.XSQLErrorBroadcaster","addSQLErrorListener"))
 650             (pair<OUString,OUString>("com.sun.star.sdb.XSQLErrorBroadcaster","removeSQLErrorListener"))
 651             (pair<OUString,OUString>("com.sun.star.sdbc.XRowSet","addRowSetListener"))
 652             (pair<OUString,OUString>("com.sun.star.sdbc.XRowSet","removeRowSetListener"))
 653             (pair<OUString,OUString>("com.sun.star.sdbc.XRowSetListener","cursorMoved"))
 654             (pair<OUString,OUString>("com.sun.star.sdbc.XRowSetListener","rowChanged"))
 655             (pair<OUString,OUString>("com.sun.star.sdbc.XRowSetListener","rowSetChanged"))
 656             (pair<OUString,OUString>("com.sun.star.sheet.XCalculatable","enableAutomaticCalculation"))
 657             (pair<OUString,OUString>("com.sun.star.sheet.XVolatileResult","addResultListener"))
 658             (pair<OUString,OUString>("com.sun.star.sheet.XVolatileResult","removeResultListener"))
 659             (pair<OUString,OUString>("com.sun.star.task.XJobExecutor","trigger"))
 660             (pair<OUString,OUString>("com.sun.star.task.XStatusIndicator","start"))
 661             (pair<OUString,OUString>("com.sun.star.task.XStatusIndicator","end"))
 662             (pair<OUString,OUString>("com.sun.star.task.XStatusIndicator","setText"))
 663             (pair<OUString,OUString>("com.sun.star.task.XStatusIndicator","setValue"))
 664             (pair<OUString,OUString>("com.sun.star.task.XStatusIndicator","reset"))
 665             (pair<OUString,OUString>("com.sun.star.text.XSimpleText","insertString"))
 666             (pair<OUString,OUString>("com.sun.star.text.XTextCursor","collapseToStart"))
 667             (pair<OUString,OUString>("com.sun.star.text.XTextCursor","collapseToEnd"))
 668             (pair<OUString,OUString>("com.sun.star.text.XTextRange","setString"))
 669             (pair<OUString,OUString>("com.sun.star.text.XTextViewCursor","setVisible"))
 670             (pair<OUString,OUString>("com.sun.star.ucb.XCommandProcessor","abort"))
 671             (pair<OUString,OUString>("com.sun.star.ucb.XCommandProcessor2","releaseCommandIdentifier"))
 672             (pair<OUString,OUString>("com.sun.star.ucb.XContent","addContentEventListener"))
 673             (pair<OUString,OUString>("com.sun.star.ucb.XContent","removeContentEventListener"))
 674             (pair<OUString,OUString>("com.sun.star.ucb.XContentProviderManager","deregisterContentProvider"))
 675             (pair<OUString,OUString>("com.sun.star.ucb.XContentTransmitter","transmit"))
 676             (pair<OUString,OUString>("com.sun.star.ucb.XPropertySetRegistry","removePropertySet"))
 677             (pair<OUString,OUString>("com.sun.star.ui.XUIConfigurationListener","elementInserted"))
 678             (pair<OUString,OUString>("com.sun.star.ui.XUIConfigurationListener","elementRemoved"))
 679             (pair<OUString,OUString>("com.sun.star.ui.XUIConfigurationListener","elementReplaced"))
 680             (pair<OUString,OUString>("com.sun.star.ui.dialogs.XFilePickerNotifier","addFilePickerListener"))
 681             (pair<OUString,OUString>("com.sun.star.ui.dialogs.XFilePickerNotifier","removeFilePickerListener"))
 682             (pair<OUString,OUString>("com.sun.star.util.XBroadcaster","lockBroadcasts"))
 683             (pair<OUString,OUString>("com.sun.star.util.XBroadcaster","unlockBroadcasts"))
 684             (pair<OUString,OUString>("com.sun.star.util.XChangesListener","changesOccurred"))
 685             (pair<OUString,OUString>("com.sun.star.util.XChangesNotifier","addChangesListener"))
 686             (pair<OUString,OUString>("com.sun.star.util.XChangesNotifier","removeChangesListener"))
 687             (pair<OUString,OUString>("com.sun.star.util.XCloseBroadcaster","addCloseListener"))
 688             (pair<OUString,OUString>("com.sun.star.util.XCloseBroadcaster","removeCloseListener"))
 689             (pair<OUString,OUString>("com.sun.star.util.XFlushable","addFlushListener"))
 690             (pair<OUString,OUString>("com.sun.star.util.XFlushable","removeFlushListener"))
 691             (pair<OUString,OUString>("com.sun.star.util.XModeChangeListener","modeChanged"))
 692             (pair<OUString,OUString>("com.sun.star.util.XModifyBroadcaster","addModifyListener"))
 693             (pair<OUString,OUString>("com.sun.star.util.XModifyBroadcaster","removeModifyListener"))
 694             (pair<OUString,OUString>("com.sun.star.util.XRefreshable","addRefreshListener"))
 695             (pair<OUString,OUString>("com.sun.star.util.XRefreshable","removeRefreshListener"))
 696             (pair<OUString,OUString>("com.sun.star.util.XSearchDescriptor","setSearchString"))
 697             (pair<OUString,OUString>("com.sun.star.view.XPrintJobBroadcaster","addPrintJobListener"))
 698             (pair<OUString,OUString>("com.sun.star.view.XPrintJobBroadcaster","removePrintJobListener"))
 699             (pair<OUString,OUString>("com.sun.star.view.XPrintJobListener","printJobEvent"))
 700             (pair<OUString,OUString>("com.sun.star.view.XPrintableBroadcaster","addPrintableListener"))
 701             (pair<OUString,OUString>("com.sun.star.view.XPrintableBroadcaster","removePrintableListener"))
 702             (pair<OUString,OUString>("com.sun.star.view.XPrintableListener","stateChanged"))
 703             (pair<OUString,OUString>("com.sun.star.view.XSelectionChangeListener","selectionChanged"))
 704             (pair<OUString,OUString>("com.sun.star.beans.XMultiPropertySet","addPropertiesChangeListener"))
 705             (pair<OUString,OUString>("com.sun.star.beans.XMultiPropertySet","removePropertiesChangeListener"))
 706             (pair<OUString,OUString>("com.sun.star.beans.XMultiPropertySet","firePropertiesChangeEvent"))
 707             (pair<OUString,OUString>("com.sun.star.beans.XPropertiesChangeNotifier","addPropertiesChangeListener"))
 708             (pair<OUString,OUString>("com.sun.star.beans.XPropertiesChangeNotifier","removePropertiesChangeListener"))
 709             (pair<OUString,OUString>("com.sun.star.container.XContainer","addContainerListener"))
 710             (pair<OUString,OUString>("com.sun.star.container.XContainer","removeContainerListener"))
 711             (pair<OUString,OUString>("com.sun.star.container.XContainerListener","elementInserted"))
 712             (pair<OUString,OUString>("com.sun.star.container.XContainerListener","elementRemoved"))
 713             (pair<OUString,OUString>("com.sun.star.container.XContainerListener","elementReplaced"))
 714             (pair<OUString,OUString>("com.sun.star.container.XNamed","setName"))
 715             (pair<OUString,OUString>("com.sun.star.io.XDataExporter","exportData"))
 716             (pair<OUString,OUString>("com.sun.star.io.XDataExporter","cancel"))
 717             (pair<OUString,OUString>("com.sun.star.io.XDataImporter","importData"))
 718             (pair<OUString,OUString>("com.sun.star.io.XDataImporter","cancel"))
 719             (pair<OUString,OUString>("com.sun.star.io.XDataTransferEventListener","finished"))
 720             (pair<OUString,OUString>("com.sun.star.io.XDataTransferEventListener","cancelled"))
 721             (pair<OUString,OUString>("com.sun.star.lang.XConnectionPointContainer","advise"))
 722             (pair<OUString,OUString>("com.sun.star.lang.XConnectionPointContainer","unadvise"))
 723             (pair<OUString,OUString>("com.sun.star.script.XAllListener","firing"))
 724             (pair<OUString,OUString>("com.sun.star.uno.XInterface","acquire"))
 725             (pair<OUString,OUString>("com.sun.star.uno.XInterface","release"))
 726             (pair<OUString,OUString>("com.sun.star.uno.XReference","dispose"));
 727
 728         pair<OUString,OUString> k(_rListenerType, _rMethodName);
 729         return delayed_event_listeners.find(k) != delayed_event_listeners.end();
 730     }
 731
 732     //--------------------------------------------------------------------
 733     void FormScriptListener::impl_doFireScriptEvent_nothrow( ::osl::ClearableMutexGuard& _rGuard, const ScriptEvent& _rEvent, Any* _pSyncronousResult )
 734     {
 735         OSL_PRECOND( m_pScriptExecutor, "FormScriptListener::impl_doFireScriptEvent_nothrow: this will crash!" );
 736
 737         _rGuard.clear();
 738         m_pScriptExecutor->doFireScriptEvent( _rEvent, _pSyncronousResult );
 739     }
 740
 741     //--------------------------------------------------------------------
 742     void SAL_CALL FormScriptListener::firing( const ScriptEvent& _rEvent ) throw (RuntimeException)
 743     {
 744         ::osl::ClearableMutexGuard aGuard( m_aMutex );
 745        static const OUString vbaInterOp("VBAInterop");
 746        if ( _rEvent.ScriptType.equals(vbaInterOp) )
 747            return; // not handled here
 748
 749         if ( impl_isDisposed_nothrow() )
 750             return;
 751
 752         if ( !impl_allowAsynchronousCall_nothrow( _rEvent.ListenerType.getTypeName(), _rEvent.MethodName ) )
 753         {
 754             impl_doFireScriptEvent_nothrow( aGuard, _rEvent, NULL );
 755             return;
 756         }
 757
 758         acquire();
 759         Application::PostUserEvent( LINK( this, FormScriptListener, OnAsyncScriptEvent ), new ScriptEvent( _rEvent ) );
 760     }
 761
 762     //--------------------------------------------------------------------
 763     Any SAL_CALL FormScriptListener::approveFiring( const ScriptEvent& _rEvent ) throw (InvocationTargetException, RuntimeException)
 764     {
 765         Any aResult;
 766
 767         ::osl::ClearableMutexGuard aGuard( m_aMutex );
 768         if ( !impl_isDisposed_nothrow() )
 769             impl_doFireScriptEvent_nothrow( aGuard, _rEvent, &aResult );
 770
 771         return aResult;
 772     }
 773
 774     //--------------------------------------------------------------------
 775     void SAL_CALL FormScriptListener::disposing( const EventObject& /*Source*/ ) throw (RuntimeException)
 776     {
 777         // not interested in
 778     }
 779
 780     //--------------------------------------------------------------------
 781     void SAL_CALL FormScriptListener::dispose()
 782     {
 783         ::osl::MutexGuard aGuard( m_aMutex );
 784         m_pScriptExecutor = NULL;
 785     }
 786
 787     //--------------------------------------------------------------------
 788     IMPL_LINK( FormScriptListener, OnAsyncScriptEvent, ScriptEvent*, _pEvent )
 789     {
 790         OSL_PRECOND( _pEvent != NULL, "FormScriptListener::OnAsyncScriptEvent: invalid event!" );
 791         if ( !_pEvent )
 792             return 1L;
 793
 794         {
 795             ::osl::ClearableMutexGuard aGuard( m_aMutex );
 796
 797             if ( !impl_isDisposed_nothrow() )
 798                 impl_doFireScriptEvent_nothrow( aGuard, *_pEvent, NULL );
 799         }
 800
 801         delete _pEvent;
 802         // we acquired ourself immediately before posting the event
 803         release();
 804         return 0L;
 805     }
 806
 807     //====================================================================
 808     //= FormScriptingEnvironment
 809     //====================================================================
 810     //--------------------------------------------------------------------
 811     FormScriptingEnvironment::FormScriptingEnvironment( FmFormModel& _rModel )
 812         :m_refCount( 0 )
 813         ,m_pScriptListener( NULL )
 814         ,m_rFormModel( _rModel )
 815         ,m_bDisposed( false )
 816     {
 817         m_pScriptListener = ListenerImplementation( new FormScriptListener( this ) );
 818         // note that this is a cyclic reference between the FormScriptListener and the FormScriptingEnvironment
 819         // This cycle is broken up when our instance is disposed.
 820     }
 821
 822     //--------------------------------------------------------------------
 823     FormScriptingEnvironment::~FormScriptingEnvironment()
 824     {
 825     }
 826
 827     //--------------------------------------------------------------------
 828     void FormScriptingEnvironment::impl_registerOrRevoke_throw( const Reference< XEventAttacherManager >& _rxManager, bool _bRegister )
 829     {
 830         ::osl::MutexGuard aGuard( m_aMutex );
 831
 832         if ( !_rxManager.is() )
 833             throw IllegalArgumentException();
 834         if ( m_bDisposed )
 835             throw DisposedException();
 836
 837         try
 838         {
 839             if ( _bRegister )
 840                 _rxManager->addScriptListener( m_pScriptListener.getRef() );
 841             else
 842                 _rxManager->removeScriptListener( m_pScriptListener.getRef() );
 843         }
 844         catch( const RuntimeException& ) { throw; }
 845         catch( const Exception& )
 846         {
 847             DBG_UNHANDLED_EXCEPTION();
 848         }
 849     }
 850
 851     //--------------------------------------------------------------------
 852     void FormScriptingEnvironment::registerEventAttacherManager( const Reference< XEventAttacherManager >& _rxManager )
 853     {
 854         impl_registerOrRevoke_throw( _rxManager, true );
 855     }
 856
 857     //--------------------------------------------------------------------
 858     void FormScriptingEnvironment::revokeEventAttacherManager( const Reference< XEventAttacherManager >& _rxManager )
 859     {
 860         impl_registerOrRevoke_throw( _rxManager, false );
 861     }
 862
 863     //--------------------------------------------------------------------
 864     oslInterlockedCount SAL_CALL FormScriptingEnvironment::acquire()
 865     {
 866         return osl_atomic_increment( &m_refCount );
 867     }
 868
 869     //--------------------------------------------------------------------
 870     oslInterlockedCount SAL_CALL FormScriptingEnvironment::release()
 871     {
 872         if ( 0 == osl_atomic_decrement( &m_refCount ) )
 873         {
 874            delete this;
 875            return 0;
 876         }
 877         return m_refCount;
 878     }
 879
 880     //--------------------------------------------------------------------
 881     IFormScriptingEnvironment::~IFormScriptingEnvironment()
 882     {
 883     }
 884
 885     //--------------------------------------------------------------------
 886     namespace
 887     {
 888         //................................................................
 889         //. NewStyleUNOScript
 890         //................................................................
 891         class SAL_NO_VTABLE IScript
 892         {
 893         public:
 894             virtual void invoke( const Sequence< Any >& _rArguments, Any& _rSynchronousResult ) = 0;
 895
 896             virtual ~IScript() { }
 897         };
 898         typedef ::boost::shared_ptr< IScript >  PScript;
 899
 900         //................................................................
 901         //. NewStyleUNOScript
 902         //................................................................
 903         class NewStyleUNOScript : public IScript
 904         {
 905             SfxObjectShell&         m_rObjectShell;
 906             const OUString   m_sScriptCode;
 907
 908         public:
 909             NewStyleUNOScript( SfxObjectShell& _rObjectShell, const OUString& _rScriptCode )
 910                 :m_rObjectShell( _rObjectShell )
 911                 ,m_sScriptCode( _rScriptCode )
 912             {
 913             }
 914
 915             // IScript
 916             virtual void invoke( const Sequence< Any >& _rArguments, Any& _rSynchronousResult );
 917         };
 918
 919         //................................................................
 920         void NewStyleUNOScript::invoke( const Sequence< Any >& _rArguments, Any& _rSynchronousResult )
 921         {
 922             Sequence< sal_Int16 > aOutArgsIndex;
 923             Sequence< Any > aOutArgs;
 924             EventObject aEvent;
 925             Any aCaller;
 926             if ( ( _rArguments.getLength() > 0 ) && ( _rArguments[ 0 ] >>= aEvent ) )
 927             {
 928                 try
 929                 {
 930                     Reference< XControl > xControl( aEvent.Source, UNO_QUERY_THROW );
 931                     Reference< XPropertySet > xProps( xControl->getModel(), UNO_QUERY_THROW );
 932                     aCaller = xProps->getPropertyValue( OUString("Name") );
 933                 }
 934                 catch( Exception& ) {}
 935             }
 936             m_rObjectShell.CallXScript( m_sScriptCode, _rArguments, _rSynchronousResult, aOutArgsIndex, aOutArgs, true, aCaller.hasValue() ? &aCaller : 0 );
 937         }
 938     }
 939
 940     //--------------------------------------------------------------------
 941     void FormScriptingEnvironment::doFireScriptEvent( const ScriptEvent& _rEvent, Any* _pSyncronousResult )
 942     {
 943 #ifdef DISABLE_SCRIPTING
 944         (void) _rEvent;
 945         (void) _pSyncronousResult;
 946 #else
 947         SolarMutexClearableGuard aSolarGuard;
 948         ::osl::ClearableMutexGuard aGuard( m_aMutex );
 949
 950         if ( m_bDisposed )
 951             return;
 952
 953         // SfxObjectShellRef is good here since the model controls the lifetime of the object
 954         SfxObjectShellRef xObjectShell = m_rFormModel.GetObjectShell();
 955         if( !xObjectShell.Is() )
 956             return;
 957
 958         // the script to execute
 959         PScript pScript;
 960
 961         if ( _rEvent.ScriptType != "StarBasic" )
 962         {
 963             pScript.reset( new NewStyleUNOScript( *xObjectShell, _rEvent.ScriptCode ) );
 964         }
 965         else
 966         {
 967             OUString sScriptCode = _rEvent.ScriptCode;
 968             OUString sMacroLocation;
 969
 970             // is there a location in the script name ("application" or "document")?
 971             sal_Int32 nPrefixLen = sScriptCode.indexOf( ':' );
 972             DBG_ASSERT( 0 <= nPrefixLen, "FormScriptingEnvironment::doFireScriptEvent: Basic script name in old format encountered!" );
 973
 974             if ( 0 <= nPrefixLen )
 975             {
 976                 // and it has such a prefix
 977                 sMacroLocation = sScriptCode.copy( 0, nPrefixLen );
 978                 DBG_ASSERT( 0 == sMacroLocation.compareToAscii( "document" )
 979                         ||  0 == sMacroLocation.compareToAscii( "application" ),
 980                         "FormScriptingEnvironment::doFireScriptEvent: invalid (unknown) prefix!" );
 981
 982                 // strip the prefix: the SfxObjectShell::CallScript knows nothing about such prefixes
 983                 sScriptCode = sScriptCode.copy( nPrefixLen + 1 );
 984             }
 985
 986             if ( sMacroLocation.isEmpty() )
 987             {
 988                 // legacy format: use the app-wide Basic, if it has a respective method, otherwise fall back to the doc's Basic
 989                 if ( SFX_APP()->GetBasicManager()->HasMacro( sScriptCode ) )
 990                     sMacroLocation = OUString( "application" );
 991                 else
 992                     sMacroLocation = OUString( "document" );
 993             }
 994
 995             OUStringBuffer aScriptURI;
 996             aScriptURI.appendAscii( "vnd.sun.star.script:" );
 997             aScriptURI.append( sScriptCode );
 998             aScriptURI.appendAscii( "?language=Basic" );
 999             aScriptURI.appendAscii( "&location=" );
1000             aScriptURI.append( sMacroLocation );
1001
1002             const OUString sScriptURI( aScriptURI.makeStringAndClear() );
1003             pScript.reset( new NewStyleUNOScript( *xObjectShell, sScriptURI ) );
1004         }
1005
1006         OSL_ENSURE( pScript.get(), "FormScriptingEnvironment::doFireScriptEvent: no script to execute!" );
1007         if ( !pScript.get() )
1008             // this is an internal error in the above code
1009             throw RuntimeException();
1010
1011         aGuard.clear();
1012         aSolarGuard.clear();
1013
1014         Any aIgnoreResult;
1015         pScript->invoke( _rEvent.Arguments, _pSyncronousResult ? *_pSyncronousResult : aIgnoreResult );
1016         pScript.reset();
1017
1018         {
1019             // object shells are not thread safe, so guard the destruction
1020             SolarMutexGuard aSolarGuarsReset;
1021             xObjectShell = NULL;
1022         }
1023 #endif
1024     }
1025
1026     //--------------------------------------------------------------------
1027     void FormScriptingEnvironment::dispose()
1028     {
1029         ::osl::MutexGuard aGuard( m_aMutex );
1030         m_bDisposed = true;
1031         m_pScriptListener->dispose();
1032     }
1033
1034     //--------------------------------------------------------------------
1035     PFormScriptingEnvironment createDefaultFormScriptingEnvironment( FmFormModel& _rModel )
1036     {
1037         return new FormScriptingEnvironment( _rModel );
1038     }
1039
1040 //........................................................................
1041 } // namespace svxform
1042 //........................................................................
1043
1044 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */