replace obsolete "master" branch with README that points at new repoHEADmaster-deletedmaster

1 files changed, 0 insertions, 1604 deletions

diff --git a/basctl/source/basicide/scriptdocument.cxx b/basctl/source/basicide/scriptdocument.cxx
deleted file mode 100644
index fd06e7b71..000000000
--- a/basctl/source/basicide/scriptdocument.cxx
+++ /dev/null
@@ -1,1604 +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_basctl.hxx"
-
-#include "scriptdocument.hxx"
-#include "basobj.hxx"
-#include "basidesh.hrc"
-#include "iderid.hxx"
-#include "dlgeddef.hxx"
-#include "localizationmgr.hxx"
-#include "doceventnotifier.hxx"
-#include "documentenumeration.hxx"
-
-/** === begin UNO includes === **/
-#include <com/sun/star/beans/XPropertySet.hpp>
-#include <com/sun/star/script/XLibraryContainer2.hpp>
-#include <com/sun/star/lang/XMultiServiceFactory.hpp>
-#include <com/sun/star/uri/XUriReferenceFactory.hpp>
-#include <com/sun/star/util/XMacroExpander.hpp>
-#include <com/sun/star/document/MacroExecMode.hpp>
-#include <com/sun/star/document/XEventBroadcaster.hpp>
-#include <com/sun/star/frame/XStorable.hpp>
-#include <com/sun/star/util/XModifiable.hpp>
-#include <com/sun/star/frame/XDispatchProvider.hpp>
-#include <com/sun/star/frame/FrameSearchFlag.hpp>
-#include <com/sun/star/frame/XDesktop.hpp>
-#include <com/sun/star/frame/XModel2.hpp>
-#include <com/sun/star/awt/XWindow2.hpp>
-#include <com/sun/star/document/XEmbeddedScripts.hpp>
-#include <com/sun/star/script/vba/XVBACompatibility.hpp>
-#include <com/sun/star/script/vba/XVBAModuleInfo.hpp>
-/** === end UNO includes === **/
-
-#include <sfx2/objsh.hxx>
-#include <sfx2/app.hxx>
-#include <sfx2/viewfrm.hxx>
-#include <sfx2/bindings.hxx>
-#include <sfx2/docfile.hxx>
-
-#include <vcl/svapp.hxx>
-
-#include <basic/basicmanagerrepository.hxx>
-
-#include <xmlscript/xmldlg_imexp.hxx>
-
-#include <unotools/syslocale.hxx>
-
-#include <unotools/collatorwrapper.hxx>
-
-#include <tools/diagnose_ex.h>
-#include <tools/urlobj.hxx>
-
-#include <comphelper/processfactory.hxx>
-#include <comphelper/documentinfo.hxx>
-#include <comphelper/componentcontext.hxx>
-
-#include <osl/mutex.hxx>
-
-#include <cppuhelper/implbase1.hxx>
-
-#include <rtl/uri.hxx>
-#include <rtl/bootstrap.hxx>
-
-#include <osl/process.h>
-#include <osl/file.hxx>
-
-#include <algorithm>
-#include <functional>
-#include <set>
-
-
-namespace basctl
-{
-    using ::com::sun::star::uno::Sequence;
-    using ::com::sun::star::uno::Reference;
-    using ::com::sun::star::frame::XModel;
-    using ::com::sun::star::beans::XPropertySet;
-    using ::com::sun::star::script::XLibraryContainer;
-    using ::com::sun::star::uno::UNO_QUERY_THROW;
-    using ::com::sun::star::uno::UNO_SET_THROW;
-    using ::com::sun::star::beans::XPropertySetInfo;
-    using ::com::sun::star::uno::Exception;
-    using ::com::sun::star::container::XNameContainer;
-    using ::com::sun::star::container::NoSuchElementException;
-    using ::com::sun::star::uno::UNO_QUERY;
-    using ::com::sun::star::task::XStatusIndicator;
-    using ::com::sun::star::uno::makeAny;
-    using ::com::sun::star::script::XLibraryContainer2;
-    using ::com::sun::star::lang::XMultiServiceFactory;
-    using ::com::sun::star::uri::XUriReferenceFactory;
-    using ::com::sun::star::uri::XUriReference;
-    using ::com::sun::star::uno::XComponentContext;
-    using ::com::sun::star::util::XMacroExpander;
-    using ::com::sun::star::io::XInputStreamProvider;
-    using ::com::sun::star::uno::Any;
-    using ::com::sun::star::io::XInputStream;
-    using ::com::sun::star::frame::XStorable;
-    using ::com::sun::star::util::XModifiable;
-    using ::com::sun::star::frame::XController;
-    using ::com::sun::star::frame::XFrame;
-    using ::com::sun::star::util::URL;
-    using ::com::sun::star::frame::XDispatchProvider;
-    using ::com::sun::star::frame::XDispatch;
-    using ::com::sun::star::beans::PropertyValue;
-    using ::com::sun::star::frame::XDesktop;
-    using ::com::sun::star::container::XEnumerationAccess;
-    using ::com::sun::star::container::XEnumeration;
-    using ::com::sun::star::frame::XModel2;
-    using ::com::sun::star::awt::XWindow2;
-    using ::com::sun::star::document::XEventListener;
-    using ::com::sun::star::lang::EventObject;
-    using ::com::sun::star::uno::RuntimeException;
-    using ::com::sun::star::document::XEventBroadcaster;
-    using ::com::sun::star::document::XEmbeddedScripts;
-    using ::com::sun::star::script::ModuleInfo;
-    using ::com::sun::star::script::vba::XVBACompatibility;
-    using ::com::sun::star::script::vba::XVBAModuleInfo;
-    /** === end UNO using === **/
-    namespace MacroExecMode = ::com::sun::star::document::MacroExecMode;
-    namespace FrameSearchFlag = ::com::sun::star::frame::FrameSearchFlag;
-
-    //====================================================================
-    //= helper
-    //====================================================================
-    namespace
-    {
-        static bool StringCompareLessThan( const String& lhs, const String& rhs )
-        {
-            return ( lhs.CompareIgnoreCaseToAscii( rhs ) == COMPARE_LESS );
-        }
-
-        class FilterDocuments : public docs::IDocumentDescriptorFilter
-        {
-        public:
-            FilterDocuments( bool _bFilterInvisible ) : m_bFilterInvisible( _bFilterInvisible ) { }
-
-            virtual bool    includeDocument( const docs::DocumentDescriptor& _rDocument ) const;
-
-        private:
-            bool    impl_isDocumentVisible_nothrow( const docs::DocumentDescriptor& _rDocument ) const;
-
-        private:
-            bool    m_bFilterInvisible;
-        };
-
-        bool FilterDocuments::impl_isDocumentVisible_nothrow( const docs::DocumentDescriptor& _rDocument ) const
-        {
-            try
-            {
-                for (   docs::Controllers::const_iterator controller = _rDocument.aControllers.begin();
-                        controller != _rDocument.aControllers.end();
-                        ++controller
-                    )
-                {
-                    Reference< XFrame > xFrame( (*controller)->getFrame(), UNO_SET_THROW );
-                    Reference< XWindow2 > xContainer( xFrame->getContainerWindow(), UNO_QUERY_THROW );
-                    if ( xContainer->isVisible() )
-                        return true;
-                }
-            }
-            catch( const Exception& )
-            {
-                DBG_UNHANDLED_EXCEPTION();
-            }
-            return false;
-        }
-
-        bool FilterDocuments::includeDocument( const docs::DocumentDescriptor& _rDocument ) const
-        {
-            Reference< XEmbeddedScripts > xScripts( _rDocument.xModel, UNO_QUERY );
-            if ( !xScripts.is() )
-                return false;
-            if ( !m_bFilterInvisible || impl_isDocumentVisible_nothrow( _rDocument ) )
-                return true;
-            return false;
-        }
-
-        void lcl_getAllModels_throw( docs::Documents& _out_rModels, bool _bVisibleOnly )
-        {
-            _out_rModels.clear();
-
-            ::comphelper::ComponentContext aContext( ::comphelper::getProcessServiceFactory() );
-            FilterDocuments aFilter( _bVisibleOnly );
-            docs::DocumentEnumeration aEnum( aContext, &aFilter );
-
-            aEnum.getDocuments( _out_rModels );
-        }
-    }
-
-    class ScriptDocument_Impl : public DocumentEventListener
-    {
-    private:
-        bool                            m_bIsApplication;
-        bool                            m_bValid;
-        bool                            m_bDocumentClosed;
-        Reference< XModel >             m_xDocument;
-        Reference< XModifiable >        m_xDocModify;
-        Reference< XEmbeddedScripts >   m_xScriptAccess;
-        ::std::auto_ptr< DocumentEventNotifier >
-                                        m_pDocListener;
-
-    public:
-        ScriptDocument_Impl( );
-        ScriptDocument_Impl( const Reference< XModel >& _rxDocument );
-        ~ScriptDocument_Impl();
-
-        /** determines whether the instance refers to a valid "document" with script and
-            dialog libraries
-        */
-        inline  bool    isValid()       const   { return m_bValid; }
-        /** determines whether the instance refers to a non-closed document
-        */
-        inline  bool    isAlive()       const   { return m_bValid ? ( m_bIsApplication ? true : !m_bDocumentClosed ) : false; }
-        /// determines whether the "document" refers to the application in real
-        inline  bool    isApplication() const   { return m_bValid && m_bIsApplication; }
-        /// determines whether the document refers to a real document (instead of the application)
-        inline  bool    isDocument()    const   { return m_bValid && !m_bIsApplication; }
-
-        /** invalidates the instance
-        */
-        void    invalidate();
-
-        const Reference< XModel >&
-                        getDocumentRef() const { return m_xDocument; }
-
-        /// returns a library container belonging to the document
-        Reference< XLibraryContainer >
-                    getLibraryContainer( LibraryContainerType _eType ) const;
-
-        /// determines whether a given library is part of the shared installation
-        bool        isLibraryShared( const ::rtl::OUString& _rLibName, LibraryContainerType _eType );
-
-        /** returns the current frame of the document
-
-            To be called for documents only, not for the application.
-
-            If <FALSE/> is returned, an assertion will be raised in non-product builds.
-        */
-        bool        getCurrentFrame( Reference< XFrame >& _out_rxFrame ) const;
-
-        // versions with the same signature/semantics as in ScriptDocument itself
-        bool        isReadOnly() const;
-        bool        isInVBAMode() const;
-        BasicManager*
-                    getBasicManager() const;
-        Reference< XModel >
-                    getDocument() const;
-        void        setDocumentModified() const;
-        bool        isDocumentModified() const;
-        bool        saveDocument( const Reference< XStatusIndicator >& _rxStatusIndicator ) const;
-
-        ::rtl::OUString
-                    getTitle() const;
-        ::rtl::OUString
-                    getURL() const;
-
-        bool        allowMacros() const;
-
-        Reference< XNameContainer >
-                    getLibrary( LibraryContainerType _eType, const ::rtl::OUString& _rLibName, bool _bLoadLibrary ) const
-                        SAL_THROW((NoSuchElementException));
-        bool        hasLibrary( LibraryContainerType _eType, const ::rtl::OUString& _rLibName ) const;
-        Reference< XNameContainer >
-                    getOrCreateLibrary( LibraryContainerType _eType, const ::rtl::OUString& _rLibName ) const;
-
-        void        loadLibraryIfExists( LibraryContainerType _eType, const ::rtl::OUString& _rLibrary );
-
-        bool        removeModuleOrDialog( LibraryContainerType _eType, const ::rtl::OUString& _rLibName, const ::rtl::OUString& _rModuleName );
-        bool        hasModuleOrDialog( LibraryContainerType _eType, const ::rtl::OUString& _rLibName, const ::rtl::OUString& _rModName ) const;
-        bool        getModuleOrDialog( LibraryContainerType _eType, const ::rtl::OUString& _rLibName, const ::rtl::OUString& _rObjectName, Any& _out_rModuleOrDialog );
-        bool        renameModuleOrDialog( LibraryContainerType _eType, const ::rtl::OUString& _rLibName, const ::rtl::OUString& _rOldName, const ::rtl::OUString& _rNewName, const Reference< XNameContainer >& _rxExistingDialogModel );
-        bool        createModule( const ::rtl::OUString& _rLibName, const ::rtl::OUString& _rModName, bool _bCreateMain, ::rtl::OUString& _out_rNewModuleCode ) const;
-        bool        insertModuleOrDialog( LibraryContainerType _eType, const ::rtl::OUString& _rObjectName, const ::rtl::OUString& _rModName, const Any& _rElement ) const;
-        bool        updateModule( const ::rtl::OUString& _rLibName, const ::rtl::OUString& _rModName, const ::rtl::OUString& _rModuleCode ) const;
-        bool        createDialog( const ::rtl::OUString& _rLibName, const ::rtl::OUString& _rDialogName, Reference< XInputStreamProvider >& _out_rDialogProvider ) const;
-
-    protected:
-        // DocumentEventListener
-        virtual void onDocumentCreated( const ScriptDocument& _rDocument );
-        virtual void onDocumentOpened( const ScriptDocument& _rDocument );
-        virtual void onDocumentSave( const ScriptDocument& _rDocument );
-        virtual void onDocumentSaveDone( const ScriptDocument& _rDocument );
-        virtual void onDocumentSaveAs( const ScriptDocument& _rDocument );
-        virtual void onDocumentSaveAsDone( const ScriptDocument& _rDocument );
-        virtual void onDocumentClosed( const ScriptDocument& _rDocument );
-        virtual void onDocumentTitleChanged( const ScriptDocument& _rDocument );
-        virtual void onDocumentModeChanged( const ScriptDocument& _rDocument );
-
-    private:
-        bool        impl_initDocument_nothrow( const Reference< XModel >& _rxModel );
-    };
-
-    //====================================================================
-    //= ScriptDocument_Impl - implementation
-    //====================================================================
-    ScriptDocument_Impl::ScriptDocument_Impl()
-        :m_bIsApplication( true )
-        ,m_bValid( true )
-        ,m_bDocumentClosed( false )
-    {
-    }
-
-    ScriptDocument_Impl::ScriptDocument_Impl( const Reference< XModel >& _rxDocument )
-        :m_bIsApplication( false )
-        ,m_bValid( false )
-        ,m_bDocumentClosed( false )
-    {
-        if ( _rxDocument.is() )
-        {
-            if ( impl_initDocument_nothrow( _rxDocument ) )
-            {
-            }
-        }
-    }
-
-    ScriptDocument_Impl::~ScriptDocument_Impl()
-    {
-        invalidate();
-    }
-
-    void ScriptDocument_Impl::invalidate()
-    {
-        m_bIsApplication = false;
-        m_bValid = false;
-        m_bDocumentClosed = false;
-
-        m_xDocument.clear();
-        m_xDocModify.clear();
-        m_xScriptAccess.clear();
-
-        if ( m_pDocListener.get() )
-            m_pDocListener->dispose();
-    }
-
-    bool ScriptDocument_Impl::impl_initDocument_nothrow( const Reference< XModel >& _rxModel )
-    {
-        try
-        {
-            m_xDocument.set     ( _rxModel, UNO_SET_THROW );
-            m_xDocModify.set    ( _rxModel, UNO_QUERY_THROW );
-            m_xScriptAccess.set ( _rxModel, UNO_QUERY );
-
-            m_bValid = m_xScriptAccess.is();
-
-            if ( m_bValid )
-                m_pDocListener.reset( new DocumentEventNotifier( *this, _rxModel ) );
-        }
-        catch( const Exception& )
-        {
-            DBG_UNHANDLED_EXCEPTION();
-            m_bValid = false;
-        }
-
-        if ( !m_bValid )
-        {
-            invalidate();
-        }
-
-        return m_bValid;
-    }
-
-    Reference< XLibraryContainer > ScriptDocument_Impl::getLibraryContainer( LibraryContainerType _eType ) const
-    {
-        OSL_ENSURE( isValid(), "ScriptDocument_Impl::getLibraryContainer: invalid!" );
-
-        Reference< XLibraryContainer > xContainer;
-        if ( !isValid() )
-            return xContainer;
-
-        try
-        {
-            if ( isApplication() )
-                xContainer.set( _eType == E_SCRIPTS ? SFX_APP()->GetBasicContainer() : SFX_APP()->GetDialogContainer(), UNO_QUERY_THROW );
-            else
-            {
-                xContainer.set(
-                    _eType == E_SCRIPTS ? m_xScriptAccess->getBasicLibraries() : m_xScriptAccess->getDialogLibraries(),
-                    UNO_QUERY_THROW );
-            }
-        }
-        catch( const Exception& )
-        {
-            DBG_UNHANDLED_EXCEPTION();
-        }
-        return xContainer;
-    }
-
-    bool ScriptDocument_Impl::isReadOnly() const
-    {
-        OSL_ENSURE( isValid(), "ScriptDocument_Impl::isReadOnly: invalid state!" );
-        OSL_ENSURE( !isApplication(), "ScriptDocument_Impl::isReadOnly: not allowed to be called for the application!" );
-
-        bool bIsReadOnly = true;
-        if ( isValid() && !isApplication() )
-        {
-            try
-            {
-                // note that XStorable is required by the OfficeDocument service
-                Reference< XStorable > xDocStorable( m_xDocument, UNO_QUERY_THROW );
-                bIsReadOnly = xDocStorable->isReadonly();
-            }
-            catch( const Exception& )
-            {
-                DBG_UNHANDLED_EXCEPTION();
-            }
-        }
-        return bIsReadOnly;
-    }
-
-    bool ScriptDocument_Impl::isInVBAMode() const
-    {
-        bool bResult = false;
-        if ( !isApplication() )
-        {
-            Reference< XVBACompatibility > xVBACompat( getLibraryContainer( E_SCRIPTS ), UNO_QUERY );
-            if ( xVBACompat.is() )
-                bResult = xVBACompat->getVBACompatibilityMode();
-        }
-        return bResult;
-    }
-
-
-    BasicManager* ScriptDocument_Impl::getBasicManager() const
-    {
-        OSL_ENSURE( isValid(), "ScriptDocument_Impl::getBasicManager: invalid state!" );
-        if ( !isValid() )
-            return NULL;
-
-        if ( isApplication() )
-            return SFX_APP()->GetBasicManager();
-
-        return ::basic::BasicManagerRepository::getDocumentBasicManager( m_xDocument );
-    }
-
-
-    Reference< XModel > ScriptDocument_Impl::getDocument() const
-    {
-        OSL_ENSURE( isValid(), "ScriptDocument_Impl::getDocument: invalid state!" );
-        OSL_ENSURE( isDocument(), "ScriptDocument_Impl::getDocument: for documents only!" );
-        if ( !isValid() || !isDocument() )
-            return NULL;
-
-        return m_xDocument;
-    }
-
-
-    Reference< XNameContainer > ScriptDocument_Impl::getLibrary( LibraryContainerType _eType, const ::rtl::OUString& _rLibName, bool _bLoadLibrary ) const
-        SAL_THROW((NoSuchElementException))
-    {
-        OSL_ENSURE( isValid(), "ScriptDocument_Impl::getLibrary: invalid state!" );
-
-        Reference< XNameContainer > xContainer;
-        try
-        {
-            Reference< XLibraryContainer > xLibContainer = getLibraryContainer( _eType );
-            if ( isValid() )
-            {
-                if ( xLibContainer.is() )
-                    xContainer.set( xLibContainer->getByName( _rLibName ), UNO_QUERY_THROW );
-            }
-
-            if ( !xContainer.is() )
-                throw NoSuchElementException();
-
-            // load library
-            if ( _bLoadLibrary && !xLibContainer->isLibraryLoaded( _rLibName ) )
-                xLibContainer->loadLibrary( _rLibName );
-        }
-        catch( const NoSuchElementException& )
-        {
-            throw;  // allowed to leave
-        }
-        catch( const Exception& )
-        {
-            DBG_UNHANDLED_EXCEPTION();
-        }
-
-        return xContainer;
-    }
-
-
-    bool ScriptDocument_Impl::hasLibrary( LibraryContainerType _eType, const ::rtl::OUString& _rLibName ) const
-    {
-        bool bHas = false;
-        try
-        {
-            Reference< XLibraryContainer > xLibContainer = getLibraryContainer( _eType );
-            bHas = xLibContainer.is() && xLibContainer->hasByName( _rLibName );
-        }
-        catch( const Exception& )
-        {
-            DBG_UNHANDLED_EXCEPTION();
-        }
-        return bHas;
-    }
-
-
-    Reference< XNameContainer > ScriptDocument_Impl::getOrCreateLibrary( LibraryContainerType _eType, const ::rtl::OUString& _rLibName ) const
-    {
-        Reference< XNameContainer > xLibrary;
-        try
-        {
-            Reference< XLibraryContainer > xLibContainer( getLibraryContainer( _eType ), UNO_QUERY_THROW );
-            if ( xLibContainer->hasByName( _rLibName ) )
-                xLibrary.set( xLibContainer->getByName( _rLibName ), UNO_QUERY_THROW );
-            else
-                xLibrary.set( xLibContainer->createLibrary( _rLibName ), UNO_QUERY_THROW );
-
-            if ( !xLibContainer->isLibraryLoaded( _rLibName ) )
-                xLibContainer->loadLibrary( _rLibName );
-        }
-        catch( const Exception& )
-        {
-            DBG_UNHANDLED_EXCEPTION();
-        }
-        return xLibrary;
-    }
-
-
-    void ScriptDocument_Impl::loadLibraryIfExists( LibraryContainerType _eType, const ::rtl::OUString& _rLibrary )
-    {
-        try
-        {
-            Reference< XLibraryContainer > xLibContainer( getLibraryContainer( _eType ) );
-            if ( xLibContainer.is() && xLibContainer->hasByName( _rLibrary ) && !xLibContainer->isLibraryLoaded( _rLibrary ) )
-                xLibContainer->loadLibrary( _rLibrary );
-        }
-        catch( const Exception& )
-        {
-            DBG_UNHANDLED_EXCEPTION();
-        }
-    }
-
-
-    bool ScriptDocument_Impl::removeModuleOrDialog( LibraryContainerType _eType, const ::rtl::OUString& _rLibName, const ::rtl::OUString& _rModuleName )
-    {
-        OSL_ENSURE( isValid(), "ScriptDocument_Impl::removeModuleOrDialog: invalid!" );
-        if ( isValid() )
-        {
-            try
-            {
-                Reference< XNameContainer > xLib( getLibrary( _eType, _rLibName, sal_True ) );
-                if ( xLib.is() )
-                {
-                    xLib->removeByName( _rModuleName );
-                    return true;
-                }
-            }
-            catch( const Exception& )
-            {
-                DBG_UNHANDLED_EXCEPTION();
-            }
-        }
-        return false;
-    }
-
-
-    bool ScriptDocument_Impl::hasModuleOrDialog( LibraryContainerType _eType, const ::rtl::OUString& _rLibName, const ::rtl::OUString& _rModName ) const
-    {
-        OSL_ENSURE( isValid(), "ScriptDocument_Impl::hasModuleOrDialog: invalid!" );
-        if ( !isValid() )
-            return false;
-
-        try
-        {
-            Reference< XNameContainer > xLib( getLibrary( _eType, _rLibName, sal_True ) );
-            if ( xLib.is() )
-                return xLib->hasByName( _rModName );
-        }
-        catch( const Exception& )
-        {
-            DBG_UNHANDLED_EXCEPTION();
-        }
-        return false;
-    }
-
-
-    bool ScriptDocument_Impl::getModuleOrDialog( LibraryContainerType _eType, const ::rtl::OUString& _rLibName, const ::rtl::OUString& _rObjectName, Any& _out_rModuleOrDialog )
-    {
-        OSL_ENSURE( isValid(), "ScriptDocument_Impl::getModuleOrDialog: invalid!" );
-        if ( !isValid() )
-            return false;
-
-        _out_rModuleOrDialog.clear();
-        try
-        {
-            Reference< XNameContainer > xLib( getLibrary( _eType, _rLibName, sal_True ), UNO_QUERY_THROW );
-            if ( xLib->hasByName( _rObjectName ) )
-            {
-                _out_rModuleOrDialog = xLib->getByName( _rObjectName );
-                return true;
-            }
-        }
-        catch( const Exception& )
-        {
-            DBG_UNHANDLED_EXCEPTION();
-        }
-        return false;
-    }
-
-
-    bool ScriptDocument_Impl::renameModuleOrDialog( LibraryContainerType _eType, const ::rtl::OUString& _rLibName,
-        const ::rtl::OUString& _rOldName, const ::rtl::OUString& _rNewName, const Reference< XNameContainer >& _rxExistingDialogModel )
-    {
-        OSL_ENSURE( isValid(), "ScriptDocument_Impl::renameModuleOrDialog: invalid!" );
-        if ( !isValid() )
-            return false;
-
-        try
-        {
-            Reference< XNameContainer > xLib( getLibrary( _eType, _rLibName, sal_True ), UNO_QUERY_THROW );
-
-            // get element
-            Any aElement( xLib->getByName( _rOldName ) );
-
-            // remove element from container
-            xLib->removeByName( _rOldName );
-
-            // if it's a dialog, import and export, to reflect the new name
-            if ( _eType == E_DIALOGS )
-            {
-                // create dialog model
-                ::comphelper::ComponentContext aContext( ::comphelper::getProcessServiceFactory() );
-                Reference< XNameContainer > xDialogModel;
-                if ( _rxExistingDialogModel.is() )
-                    xDialogModel = _rxExistingDialogModel;
-                else
-                    if ( !aContext.createComponent( "com.sun.star.awt.UnoControlDialogModel", xDialogModel ) )
-                        return false;
-
-                // import dialog model
-                Reference< XInputStreamProvider > xISP( aElement, UNO_QUERY_THROW );
-                if ( !_rxExistingDialogModel.is() )
-                {
-                    Reference< XInputStream > xInput( xISP->createInputStream(), UNO_QUERY_THROW );
-                    ::xmlscript::importDialogModel( xInput, xDialogModel, aContext.getUNOContext(), isDocument() ? getDocument() : Reference< XModel >() );
-                }
-
-                // set new name as property
-                Reference< XPropertySet > xDlgPSet( xDialogModel, UNO_QUERY_THROW );
-                xDlgPSet->setPropertyValue( DLGED_PROP_NAME, makeAny( _rNewName ) );
-
-                // export dialog model
-                xISP = ::xmlscript::exportDialogModel( xDialogModel, aContext.getUNOContext(), isDocument() ? getDocument() : Reference< XModel >() );
-                aElement <<= xISP;
-            }
-
-            // insert element by new name in container
-            if ( _eType == E_SCRIPTS )
-            {
-                Reference< XVBAModuleInfo > xVBAModuleInfo( xLib, UNO_QUERY );
-                if ( xVBAModuleInfo->hasModuleInfo( _rOldName ) )
-                {
-                    ModuleInfo sModuleInfo = xVBAModuleInfo->getModuleInfo( _rOldName );
-                    xVBAModuleInfo->removeModuleInfo( _rOldName );
-                    xVBAModuleInfo->insertModuleInfo( _rNewName, sModuleInfo );
-                }
-            }
-            xLib->insertByName( _rNewName, aElement );
-            return true;
-        }
-        catch( const Exception& )
-        {
-            DBG_UNHANDLED_EXCEPTION();
-        }
-        return false;
-    }
-
-
-    bool ScriptDocument_Impl::createModule( const ::rtl::OUString& _rLibName, const ::rtl::OUString& _rModName, bool _bCreateMain, ::rtl::OUString& _out_rNewModuleCode ) const
-    {
-        _out_rNewModuleCode = ::rtl::OUString();
-        try
-        {
-            Reference< XNameContainer > xLib( getLibrary( E_SCRIPTS, _rLibName, sal_True ) );
-            if ( !xLib.is() || xLib->hasByName( _rModName ) )
-                return false;
-
-            // create new module
-            _out_rNewModuleCode = ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "REM  *****  BASIC  *****\n\n" ) );
-            if ( _bCreateMain )
-                _out_rNewModuleCode += ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "Sub Main\n\nEnd Sub\n" ) );
-
-            // insert module into library
-            xLib->insertByName( _rModName, makeAny( _out_rNewModuleCode ) );
-        }
-        catch( const Exception& )
-        {
-            DBG_UNHANDLED_EXCEPTION();
-            return false;
-        }
-
-        return true;
-    }
-
-
-    bool ScriptDocument_Impl::insertModuleOrDialog( LibraryContainerType _eType, const ::rtl::OUString& _rLibName, const ::rtl::OUString& _rObjectName, const Any& _rElement ) const
-    {
-        try
-        {
-            Reference< XNameContainer > xLib( getOrCreateLibrary( _eType, _rLibName ), UNO_QUERY_THROW );
-            if ( xLib->hasByName( _rObjectName ) )
-                return false;
-
-            xLib->insertByName( _rObjectName, _rElement );
-            return true;
-        }
-        catch( const Exception& )
-        {
-            DBG_UNHANDLED_EXCEPTION();
-        }
-        return false;
-    }
-
-
-    bool ScriptDocument_Impl::updateModule( const ::rtl::OUString& _rLibName, const ::rtl::OUString& _rModName, const ::rtl::OUString& _rModuleCode ) const
-    {
-        try
-        {
-            Reference< XNameContainer > xLib( getOrCreateLibrary( E_SCRIPTS, _rLibName ), UNO_QUERY_THROW );
-            if ( !xLib->hasByName( _rModName ) )
-                return false;
-            xLib->replaceByName( _rModName, makeAny( _rModuleCode ) );
-            return true;
-        }
-        catch( const Exception& )
-        {
-            DBG_UNHANDLED_EXCEPTION();
-        }
-        return false;
-    }
-
-
-    bool ScriptDocument_Impl::createDialog( const ::rtl::OUString& _rLibName, const ::rtl::OUString& _rDialogName, Reference< XInputStreamProvider >& _out_rDialogProvider ) const
-    {
-        try
-        {
-            Reference< XNameContainer > xLib( getLibrary( E_DIALOGS, _rLibName, sal_True ), UNO_QUERY_THROW );
-
-            // create dialog
-            _out_rDialogProvider.clear();
-            if ( xLib->hasByName( _rDialogName ) )
-                return false;
-
-            // create new dialog model
-            ::comphelper::ComponentContext aContext( ::comphelper::getProcessServiceFactory() );
-            Reference< XNameContainer > xDialogModel;
-            if ( !aContext.createComponent( "com.sun.star.awt.UnoControlDialogModel", xDialogModel ) )
-                return false;
-
-            // set name property
-            Reference< XPropertySet > xDlgPSet( xDialogModel, UNO_QUERY_THROW );
-            xDlgPSet->setPropertyValue( DLGED_PROP_NAME, makeAny( _rDialogName ) );
-
-            // export dialog model
-            _out_rDialogProvider = ::xmlscript::exportDialogModel( xDialogModel, aContext.getUNOContext(), isDocument() ? getDocument() : Reference< XModel >() );
-
-            // insert dialog into library
-            xLib->insertByName( _rDialogName, makeAny( _out_rDialogProvider ) );
-        }
-        catch( const Exception& )
-        {
-            DBG_UNHANDLED_EXCEPTION();
-        }
-
-        return _out_rDialogProvider.is();
-    }
-
-
-    void ScriptDocument_Impl::setDocumentModified() const
-    {
-        OSL_ENSURE( isValid() && isDocument(), "ScriptDocument_Impl::setDocumentModified: only to be called for real documents!" );
-        if ( isValid() && isDocument() )
-        {
-            try
-            {
-                m_xDocModify->setModified( sal_True );
-            }
-            catch( const Exception& )
-            {
-                DBG_UNHANDLED_EXCEPTION();
-            }
-        }
-    }
-
-
-    bool ScriptDocument_Impl::isDocumentModified() const
-    {
-        OSL_ENSURE( isValid() && isDocument(), "ScriptDocument_Impl::isDocumentModified: only to be called for real documents!" );
-        bool bIsModified = false;
-        if ( isValid() && isDocument() )
-        {
-            try
-            {
-                bIsModified = m_xDocModify->isModified();
-            }
-            catch( const Exception& )
-            {
-                DBG_UNHANDLED_EXCEPTION();
-            }
-        }
-        return bIsModified;
-    }
-
-
-    bool ScriptDocument_Impl::saveDocument( const Reference< XStatusIndicator >& _rxStatusIndicator ) const
-    {
-        Reference< XFrame > xFrame;
-        if ( !getCurrentFrame( xFrame ) )
-            return false;
-
-        Sequence< PropertyValue > aArgs;
-        if ( _rxStatusIndicator.is() )
-        {
-            aArgs.realloc(1);
-            aArgs[0].Name = ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "StatusIndicator" ) );
-            aArgs[0].Value <<= _rxStatusIndicator;
-        }
-
-        try
-        {
-            URL aURL;
-            aURL.Complete = ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( ".uno:Save" ) );
-            aURL.Main = aURL.Complete;
-            aURL.Protocol = ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( ".uno:" ) );
-            aURL.Path = ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "Save" ) );
-
-            Reference< XDispatchProvider > xDispProv( xFrame, UNO_QUERY_THROW );
-            Reference< XDispatch > xDispatch(
-                xDispProv->queryDispatch( aURL, ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "_self" ) ), FrameSearchFlag::AUTO ),
-                UNO_SET_THROW );
-
-            xDispatch->dispatch( aURL, aArgs );
-        }
-        catch( const Exception& )
-        {
-            DBG_UNHANDLED_EXCEPTION();
-            return false;
-        }
-
-        return true;
-    }
-
-
-    ::rtl::OUString ScriptDocument_Impl::getTitle() const
-    {
-        OSL_PRECOND( isValid() && isDocument(), "ScriptDocument_Impl::getTitle: for documents only!" );
-
-        ::rtl::OUString sTitle;
-        if ( isValid() && isDocument() )
-        {
-            sTitle = ::comphelper::DocumentInfo::getDocumentTitle( m_xDocument );
-        }
-        return sTitle;
-    }
-
-
-    ::rtl::OUString ScriptDocument_Impl::getURL() const
-    {
-        OSL_PRECOND( isValid() && isDocument(), "ScriptDocument_Impl::getURL: for documents only!" );
-
-        ::rtl::OUString sURL;
-        if ( isValid() && isDocument() )
-        {
-            try
-            {
-                sURL = m_xDocument->getURL();
-            }
-            catch( const Exception& )
-            {
-                DBG_UNHANDLED_EXCEPTION();
-            }
-        }
-        return sURL;
-    }
-
-
-    bool ScriptDocument_Impl::allowMacros() const
-    {
-        OSL_ENSURE( isValid() && isDocument(), "ScriptDocument_Impl::allowMacros: for documents only!" );
-        bool bAllow = false;
-        if ( isValid() && isDocument() )
-        {
-            try
-            {
-                bAllow = m_xScriptAccess->getAllowMacroExecution();
-            }
-            catch( const Exception& )
-            {
-                DBG_UNHANDLED_EXCEPTION();
-            }
-        }
-        return bAllow;
-    }
-
-
-    bool ScriptDocument_Impl::getCurrentFrame( Reference< XFrame >& _out_rxFrame ) const
-    {
-        _out_rxFrame.clear();
-        OSL_PRECOND( isValid() && isDocument(), "ScriptDocument_Impl::getCurrentFrame: documents only!" );
-        if ( !isValid() || !isDocument() )
-            return false;
-
-        try
-        {
-            Reference< XModel > xDocument( m_xDocument, UNO_SET_THROW );
-            Reference< XController > xController( xDocument->getCurrentController(), UNO_SET_THROW );
-            _out_rxFrame.set( xController->getFrame(), UNO_SET_THROW );
-        }
-        catch( const Exception& )
-        {
-            DBG_UNHANDLED_EXCEPTION();
-        }
-
-        return _out_rxFrame.is();
-    }
-
-
-    bool ScriptDocument_Impl::isLibraryShared( const ::rtl::OUString& _rLibName, LibraryContainerType _eType )
-    {
-        bool bIsShared = false;
-        try
-        {
-            Reference< XLibraryContainer2 > xLibContainer( getLibraryContainer( _eType ), UNO_QUERY_THROW );
-
-            if ( !xLibContainer->hasByName( _rLibName ) || !xLibContainer->isLibraryLink( _rLibName ) )
-                return false;
-            ::rtl::OUString aFileURL;
-            Reference< XMultiServiceFactory > xMSF( ::comphelper::getProcessServiceFactory() );
-            Reference< XUriReferenceFactory > xUriFac;
-            if ( xMSF.is() )
-            {
-                xUriFac.set(
-                    xMSF->createInstance( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.uri.UriReferenceFactory" ) ) ),
-                    UNO_QUERY_THROW );
-            }
-
-            ::rtl::OUString aLinkURL( xLibContainer->getLibraryLinkURL( _rLibName ) );
-            Reference< XUriReference > xUriRef( xUriFac->parse( aLinkURL ), UNO_QUERY_THROW );
-
-            ::rtl::OUString aScheme = xUriRef->getScheme();
-            if ( aScheme.equalsIgnoreAsciiCaseAscii( "file" ) )
-            {
-                aFileURL = aLinkURL;
-            }
-            else if ( aScheme.equalsIgnoreAsciiCaseAscii( "vnd.sun.star.pkg" ) )
-            {
-                ::rtl::OUString aAuthority = xUriRef->getAuthority();
-                if ( aAuthority.matchIgnoreAsciiCaseAsciiL( RTL_CONSTASCII_STRINGPARAM( "vnd.sun.star.expand:" ) ) )
-                {
-                    ::rtl::OUString aDecodedURL( aAuthority.copy( sizeof ( "vnd.sun.star.expand:" ) - 1 ) );
-                    aDecodedURL = ::rtl::Uri::decode( aDecodedURL, rtl_UriDecodeWithCharset, RTL_TEXTENCODING_UTF8 );
-                    Reference< XComponentContext > xContext;
-                    Reference< XPropertySet > xProps( xMSF, UNO_QUERY_THROW );
-                    xContext.set( xProps->getPropertyValue( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "DefaultContext" )) ), UNO_QUERY_THROW );
-                    Reference< XMacroExpander > xMacroExpander(
-                        xContext->getValueByName(
-                        ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "/singletons/com.sun.star.util.theMacroExpander" )) ),
-                        UNO_QUERY_THROW );
-                    aFileURL = xMacroExpander->expandMacros( aDecodedURL );
-                }
-            }
-
-            if ( aFileURL.getLength() )
-            {
-                ::osl::DirectoryItem aFileItem;
-                ::osl::FileStatus aFileStatus( osl_FileStatus_Mask_FileURL );
-                OSL_VERIFY( ::osl::DirectoryItem::get( aFileURL, aFileItem ) == ::osl::FileBase::E_None );
-                OSL_VERIFY( aFileItem.getFileStatus( aFileStatus ) == ::osl::FileBase::E_None );
-                ::rtl::OUString aCanonicalFileURL( aFileStatus.getFileURL() );
-
-                ::rtl::OUString aSearchURL1( RTL_CONSTASCII_USTRINGPARAM( "share/basic" ) );
-                ::rtl::OUString aSearchURL2( RTL_CONSTASCII_USTRINGPARAM( "share/uno_packages" ) );
-                ::rtl::OUString aSearchURL3( RTL_CONSTASCII_USTRINGPARAM( "share/extensions" ) );
-                if( aCanonicalFileURL.indexOf( aSearchURL1 ) != -1 ||
-                    aCanonicalFileURL.indexOf( aSearchURL2 ) != -1 ||
-                    aCanonicalFileURL.indexOf( aSearchURL3 ) != -1 )
-                        bIsShared = true;
-            }
-        }
-        catch( const Exception& )
-        {
-            DBG_UNHANDLED_EXCEPTION();
-        }
-
-        return bIsShared;
-    }
-
-
-    void ScriptDocument_Impl::onDocumentCreated( const ScriptDocument& /*_rDocument*/ )
-    {
-        // not interested in
-    }
-
-    void ScriptDocument_Impl::onDocumentOpened( const ScriptDocument& /*_rDocument*/ )
-    {
-        // not interested in
-    }
-
-    void ScriptDocument_Impl::onDocumentSave( const ScriptDocument& /*_rDocument*/ )
-    {
-        // not interested in
-    }
-
-    void ScriptDocument_Impl::onDocumentSaveDone( const ScriptDocument& /*_rDocument*/ )
-    {
-        // not interested in
-    }
-
-    void ScriptDocument_Impl::onDocumentSaveAs( const ScriptDocument& /*_rDocument*/ )
-    {
-        // not interested in
-    }
-
-    void ScriptDocument_Impl::onDocumentSaveAsDone( const ScriptDocument& /*_rDocument*/ )
-    {
-        // not interested in
-    }
-
-    void ScriptDocument_Impl::onDocumentClosed( const ScriptDocument& _rDocument )
-    {
-        DBG_TESTSOLARMUTEX();
-        OSL_PRECOND( isValid(), "ScriptDocument_Impl::onDocumentClosed: should not be listening if I'm not valid!" );
-
-        bool bMyDocument = m_xDocument == _rDocument.getDocument();
-        OSL_PRECOND( bMyDocument, "ScriptDocument_Impl::onDocumentClosed: didn't want to know *this*!" );
-        if ( bMyDocument )
-        {
-            m_bDocumentClosed = true;
-        }
-    }
-
-
-    void ScriptDocument_Impl::onDocumentTitleChanged( const ScriptDocument& /*_rDocument*/ )
-    {
-        // not interested in
-    }
-
-    void ScriptDocument_Impl::onDocumentModeChanged( const ScriptDocument& /*_rDocument*/ )
-    {
-        // not interested in
-    }
-
-    //====================================================================
-    //= ScriptDocument
-    //====================================================================
-    ScriptDocument::ScriptDocument()
-        :m_pImpl( new ScriptDocument_Impl() )
-    {
-    }
-
-
-    ScriptDocument::ScriptDocument( ScriptDocument::SpecialDocument _eType )
-        :m_pImpl( new ScriptDocument_Impl( Reference< XModel >() ) )
-    {
-        OSL_ENSURE( _eType == NoDocument, "ScriptDocument::ScriptDocument: unknown SpecialDocument type!" );
-        (void)_eType;
-    }
-
-
-    ScriptDocument::ScriptDocument( const Reference< XModel >& _rxDocument )
-        :m_pImpl( new ScriptDocument_Impl( _rxDocument ) )
-    {
-        OSL_ENSURE( _rxDocument.is(), "ScriptDocument::ScriptDocument: document must not be NULL!" );
-            // a NULL document results in an uninitialized instance, and for this
-            // purpose, there is a dedicated constructor
-    }
-
-
-    ScriptDocument::ScriptDocument( const ScriptDocument& _rSource )
-        :m_pImpl( _rSource.m_pImpl )
-    {
-    }
-
-
-    ScriptDocument::~ScriptDocument()
-    {
-    }
-
-
-    const ScriptDocument& ScriptDocument::getApplicationScriptDocument()
-    {
-        static ScriptDocument s_aApplicationScripts;
-        return s_aApplicationScripts;
-    }
-
-
-    ScriptDocument ScriptDocument::getDocumentForBasicManager( const BasicManager* _pManager )
-    {
-        if ( _pManager == SFX_APP()->GetBasicManager() )
-            return getApplicationScriptDocument();
-
-        docs::Documents aDocuments;
-        lcl_getAllModels_throw( aDocuments, false );
-
-        for (   docs::Documents::const_iterator doc = aDocuments.begin();
-                doc != aDocuments.end();
-                ++doc
-            )
-        {
-            const BasicManager* pDocBasicManager = ::basic::BasicManagerRepository::getDocumentBasicManager( doc->xModel );
-            if  (   ( pDocBasicManager != SFX_APP()->GetBasicManager() )
-                &&  ( pDocBasicManager == _pManager )
-                )
-            {
-                return ScriptDocument( doc->xModel );
-            }
-        }
-
-        OSL_FAIL( "ScriptDocument::getDocumentForBasicManager: did not find a document for this manager!" );
-        return ScriptDocument( NoDocument );
-    }
-
-
-    ScriptDocument ScriptDocument::getDocumentWithURLOrCaption( const ::rtl::OUString& _rUrlOrCaption )
-    {
-        ScriptDocument aDocument( getApplicationScriptDocument() );
-        if ( _rUrlOrCaption.getLength() == 0 )
-            return aDocument;
-
-        docs::Documents aDocuments;
-        lcl_getAllModels_throw( aDocuments, false );
-
-        for (   docs::Documents::const_iterator doc = aDocuments.begin();
-                doc != aDocuments.end();
-                ++doc
-            )
-        {
-            const ScriptDocument aCheck = ScriptDocument( doc->xModel );
-            if  (   _rUrlOrCaption == aCheck.getTitle()
-                ||  _rUrlOrCaption == aCheck.getURL()
-                )
-            {
-                aDocument = aCheck;
-                break;
-            }
-        }
-
-        return aDocument;
-    }
-
-
-    namespace
-    {
-        struct DocumentTitleLess : public ::std::binary_function< ScriptDocument, ScriptDocument, bool >
-        {
-            DocumentTitleLess( const CollatorWrapper& _rCollator )
-                :m_aCollator( _rCollator )
-            {
-            }
-
-            bool operator()( const ScriptDocument& _lhs, const ScriptDocument& _rhs ) const
-            {
-                return m_aCollator.compareString( _lhs.getTitle(), _rhs.getTitle() ) < 0;
-            }
-        private:
-            const CollatorWrapper   m_aCollator;
-        };
-    }
-
-
-    ScriptDocuments ScriptDocument::getAllScriptDocuments( ScriptDocument::ScriptDocumentList _eListType )
-    {
-        ScriptDocuments aScriptDocs;
-
-        // include application?
-        if ( _eListType == AllWithApplication )
-            aScriptDocs.push_back( getApplicationScriptDocument() );
-
-        // obtain documents
-        try
-        {
-            docs::Documents aDocuments;
-            lcl_getAllModels_throw( aDocuments, true /* exclude invisible */ );
-
-            for (   docs::Documents::const_iterator doc = aDocuments.begin();
-                    doc != aDocuments.end();
-                    ++doc
-                )
-            {
-                // exclude documents without script/library containers
-                ScriptDocument aDoc( doc->xModel );
-                if ( !aDoc.isValid() )
-                    continue;
-
-                aScriptDocs.push_back( aDoc );
-            }
-        }
-        catch( const Exception& )
-        {
-            DBG_UNHANDLED_EXCEPTION();
-        }
-
-        // sort document list by doc title?
-        if ( _eListType == DocumentsSorted )
-        {
-            CollatorWrapper aCollator( ::comphelper::getProcessServiceFactory() );
-            aCollator.loadDefaultCollator( SvtSysLocale().GetLocaleData().getLocale(), 0 );
-            ::std::sort( aScriptDocs.begin(), aScriptDocs.end(), DocumentTitleLess( aCollator ) );
-        }
-
-        return aScriptDocs;
-    }
-
-
-    bool ScriptDocument::operator==( const ScriptDocument& _rhs ) const
-    {
-        return m_pImpl->getDocumentRef() == _rhs.m_pImpl->getDocumentRef();
-    }
-
-
-    sal_Int32 ScriptDocument::hashCode() const
-    {
-        return sal::static_int_cast<sal_Int32>(reinterpret_cast< sal_IntPtr >( m_pImpl->getDocumentRef().get() ));
-    }
-
-
-    bool ScriptDocument::isValid() const
-    {
-        return m_pImpl->isValid();
-    }
-
-
-    bool ScriptDocument::isAlive() const
-    {
-        return m_pImpl->isAlive();
-    }
-
-
-    Reference< XLibraryContainer > ScriptDocument::getLibraryContainer( LibraryContainerType _eType ) const
-    {
-        return m_pImpl->getLibraryContainer( _eType );
-    }
-
-
-    Reference< XNameContainer > ScriptDocument::getLibrary( LibraryContainerType _eType, const ::rtl::OUString& _rLibName, bool _bLoadLibrary ) const
-        SAL_THROW((NoSuchElementException))
-    {
-        return m_pImpl->getLibrary( _eType, _rLibName, _bLoadLibrary );
-    }
-
-
-    bool ScriptDocument::hasLibrary( LibraryContainerType _eType, const ::rtl::OUString& _rLibName ) const
-    {
-        return m_pImpl->hasLibrary( _eType, _rLibName );
-    }
-
-
-    Reference< XNameContainer > ScriptDocument::getOrCreateLibrary( LibraryContainerType _eType, const ::rtl::OUString& _rLibName ) const
-    {
-        return m_pImpl->getOrCreateLibrary( _eType, _rLibName );
-    }
-
-
-    void ScriptDocument::loadLibraryIfExists( LibraryContainerType _eType, const ::rtl::OUString& _rLibrary )
-    {
-        m_pImpl->loadLibraryIfExists( _eType, _rLibrary );
-    }
-
-
-    Sequence< ::rtl::OUString > ScriptDocument::getObjectNames( LibraryContainerType _eType, const ::rtl::OUString& _rLibName ) const
-    {
-        Sequence< ::rtl::OUString > aModuleNames;
-
-        try
-        {
-            if ( hasLibrary( _eType, _rLibName ) )
-            {
-                Reference< XNameContainer > xLib( getLibrary( _eType, _rLibName, false ) );
-                if ( xLib.is() )
-                    aModuleNames = xLib->getElementNames();
-            }
-        }
-        catch( const Exception& )
-        {
-            DBG_UNHANDLED_EXCEPTION();
-        }
-
-        // sort
-        ::std::sort( aModuleNames.getArray() , aModuleNames.getArray() + aModuleNames.getLength() , StringCompareLessThan );
-
-        return aModuleNames;
-    }
-
-
-    ::rtl::OUString ScriptDocument::createObjectName( LibraryContainerType _eType, const ::rtl::OUString& _rLibName ) const
-    {
-        ::rtl::OUString aObjectName;
-
-        ::rtl::OUString aBaseName = _eType == E_SCRIPTS
-            ?   ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "Module" ) )
-            :   ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "Dialog" ) );
-
-        Sequence< ::rtl::OUString > aUsedNames( getObjectNames( _eType, _rLibName ) );
-        ::std::set< ::rtl::OUString > aUsedNamesCheck;
-        ::std::copy( aUsedNames.getConstArray(), aUsedNames.getConstArray() + aUsedNames.getLength(),
-            ::std::insert_iterator< ::std::set< ::rtl::OUString > >( aUsedNamesCheck, aUsedNamesCheck.begin() ) );
-
-        bool bValid = false;
-        sal_uInt16 i = 1;
-        while ( !bValid )
-        {
-            aObjectName = aBaseName;
-            aObjectName += String::CreateFromInt32( i );
-
-            if ( aUsedNamesCheck.find( aObjectName ) == aUsedNamesCheck.end() )
-                bValid = sal_True;
-
-            ++i;
-        }
-
-        return aObjectName;
-    }
-
-
-    Sequence< ::rtl::OUString > ScriptDocument::getLibraryNames() const
-    {
-        return BasicIDE::GetMergedLibraryNames( getLibraryContainer( E_SCRIPTS ), getLibraryContainer( E_DIALOGS ) );
-    }
-
-
-    bool ScriptDocument::isReadOnly() const
-    {
-        return m_pImpl->isReadOnly();
-    }
-
-
-    bool ScriptDocument::isApplication() const
-    {
-        return m_pImpl->isApplication();
-    }
-
-    bool ScriptDocument::isInVBAMode() const
-    {
-        return m_pImpl->isInVBAMode();
-    }
-
-
-    BasicManager* ScriptDocument::getBasicManager() const
-    {
-        return m_pImpl->getBasicManager();
-    }
-
-
-    Reference< XModel > ScriptDocument::getDocument() const
-    {
-        return m_pImpl->getDocument();
-    }
-
-
-    Reference< XModel > ScriptDocument::getDocumentOrNull() const
-    {
-        if ( isDocument() )
-            return m_pImpl->getDocument();
-        return NULL;
-    }
-
-
-    bool ScriptDocument::removeModule( const ::rtl::OUString& _rLibName, const ::rtl::OUString& _rModuleName ) const
-    {
-        return m_pImpl->removeModuleOrDialog( E_SCRIPTS, _rLibName, _rModuleName );
-    }
-
-
-    bool ScriptDocument::hasModule( const ::rtl::OUString& _rLibName, const ::rtl::OUString& _rModuleName ) const
-    {
-        return m_pImpl->hasModuleOrDialog( E_SCRIPTS, _rLibName, _rModuleName );
-    }
-
-
-    bool ScriptDocument::getModule( const ::rtl::OUString& _rLibName, const ::rtl::OUString& _rModName, ::rtl::OUString& _out_rModuleSource ) const
-    {
-        Any aCode;
-        if ( !m_pImpl->getModuleOrDialog( E_SCRIPTS, _rLibName, _rModName, aCode ) )
-            return false;
-        OSL_VERIFY( aCode >>= _out_rModuleSource );
-        return true;
-    }
-
-
-    bool ScriptDocument::renameModule( const ::rtl::OUString& _rLibName, const ::rtl::OUString& _rOldName, const ::rtl::OUString& _rNewName ) const
-    {
-        return m_pImpl->renameModuleOrDialog( E_SCRIPTS, _rLibName, _rOldName, _rNewName, NULL );
-    }
-
-
-    bool ScriptDocument::createModule( const ::rtl::OUString& _rLibName, const ::rtl::OUString& _rModName, bool _bCreateMain, ::rtl::OUString& _out_rNewModuleCode ) const
-    {
-        if ( !m_pImpl->createModule( _rLibName, _rModName, _bCreateMain, _out_rNewModuleCode ) )
-            return false;
-
-        // doc shell modified
-        BasicIDE::MarkDocumentModified( *const_cast< ScriptDocument* >( this ) );    // here?
-        return true;
-    }
-
-
-    bool ScriptDocument::insertModule( const ::rtl::OUString& _rLibName, const ::rtl::OUString& _rModName, const ::rtl::OUString& _rModuleCode ) const
-    {
-        return m_pImpl->insertModuleOrDialog( E_SCRIPTS, _rLibName, _rModName, makeAny( _rModuleCode ) );
-    }
-
-
-    bool ScriptDocument::updateModule( const ::rtl::OUString& _rLibName, const ::rtl::OUString& _rModName, const ::rtl::OUString& _rModuleCode ) const
-    {
-        return m_pImpl->updateModule( _rLibName, _rModName, _rModuleCode );
-    }
-
-
-    bool ScriptDocument::removeDialog( const ::rtl::OUString& _rLibName, const ::rtl::OUString& _rDialogName ) const
-    {
-        return m_pImpl->removeModuleOrDialog( E_DIALOGS, _rLibName, _rDialogName );
-    }
-
-
-    bool ScriptDocument::hasDialog( const ::rtl::OUString& _rLibName, const ::rtl::OUString& _rDialogName ) const
-    {
-        return m_pImpl->hasModuleOrDialog( E_DIALOGS, _rLibName, _rDialogName );
-    }
-
-
-    bool ScriptDocument::getDialog( const ::rtl::OUString& _rLibName, const ::rtl::OUString& _rDialogName, Reference< XInputStreamProvider >& _out_rDialogProvider ) const
-    {
-        Any aCode;
-        if ( !m_pImpl->getModuleOrDialog( E_DIALOGS, _rLibName, _rDialogName, aCode ) )
-            return false;
-        OSL_VERIFY( aCode >>= _out_rDialogProvider );
-        return _out_rDialogProvider.is();
-    }
-
-
-    bool ScriptDocument::renameDialog( const ::rtl::OUString& _rLibName, const ::rtl::OUString& _rOldName, const ::rtl::OUString& _rNewName, const Reference< XNameContainer >& _rxExistingDialogModel ) const
-    {
-        return m_pImpl->renameModuleOrDialog( E_DIALOGS, _rLibName, _rOldName, _rNewName, _rxExistingDialogModel );
-    }
-
-
-    bool ScriptDocument::createDialog( const ::rtl::OUString& _rLibName, const ::rtl::OUString& _rDialogName, Reference< XInputStreamProvider >& _out_rDialogProvider ) const
-    {
-        if ( !m_pImpl->createDialog( _rLibName, _rDialogName, _out_rDialogProvider ) )
-            return false;
-
-        BasicIDE::MarkDocumentModified( *const_cast< ScriptDocument* >( this ) );    // here?
-        return true;
-    }
-
-
-    bool ScriptDocument::insertDialog( const ::rtl::OUString& _rLibName, const ::rtl::OUString& _rDialogName, const Reference< XInputStreamProvider >& _rxDialogProvider ) const
-    {
-        return m_pImpl->insertModuleOrDialog( E_DIALOGS, _rLibName, _rDialogName, makeAny( _rxDialogProvider ) );
-    }
-
-
-    void ScriptDocument::setDocumentModified() const
-    {
-        m_pImpl->setDocumentModified();
-    }
-
-
-    bool ScriptDocument::isDocumentModified() const
-    {
-        return m_pImpl->isDocumentModified();
-    }
-
-
-    bool ScriptDocument::saveDocument( const Reference< XStatusIndicator >& _rxStatusIndicator ) const
-    {
-        return m_pImpl->saveDocument( _rxStatusIndicator );
-    }
-
-
-    LibraryLocation ScriptDocument::getLibraryLocation( const ::rtl::OUString& _rLibName ) const
-    {
-        LibraryLocation eLocation = LIBRARY_LOCATION_UNKNOWN;
-        if ( _rLibName.getLength() )
-        {
-            if ( isDocument() )
-            {
-                eLocation = LIBRARY_LOCATION_DOCUMENT;
-            }
-            else
-            {
-                if  (  ( hasLibrary( E_SCRIPTS, _rLibName ) && !m_pImpl->isLibraryShared( _rLibName, E_SCRIPTS ) )
-                    || ( hasLibrary( E_DIALOGS, _rLibName ) && !m_pImpl->isLibraryShared( _rLibName, E_DIALOGS ) )
-                    )
-                {
-                    eLocation = LIBRARY_LOCATION_USER;
-                }
-                else
-                {
-                    eLocation = LIBRARY_LOCATION_SHARE;
-                }
-            }
-        }
-
-        return eLocation;
-    }
-
-
-    ::rtl::OUString ScriptDocument::getTitle( LibraryLocation _eLocation, LibraryType _eType ) const
-    {
-        ::rtl::OUString aTitle;
-
-        switch ( _eLocation )
-        {
-            case LIBRARY_LOCATION_USER:
-            {
-                switch ( _eType )
-                {
-                case LIBRARY_TYPE_MODULE:   aTitle = String( IDEResId( RID_STR_USERMACROS ) ); break;
-                case LIBRARY_TYPE_DIALOG:   aTitle = String( IDEResId( RID_STR_USERDIALOGS ) ); break;
-                case LIBRARY_TYPE_ALL:      aTitle = String( IDEResId( RID_STR_USERMACROSDIALOGS ) ); break;
-                default:
-                    break;
-            }
-            break;
-            case LIBRARY_LOCATION_SHARE:
-            {
-                switch ( _eType )
-                {
-                case LIBRARY_TYPE_MODULE:   aTitle = String( IDEResId( RID_STR_SHAREMACROS ) ); break;
-                case LIBRARY_TYPE_DIALOG:   aTitle = String( IDEResId( RID_STR_SHAREDIALOGS ) ); break;
-                case LIBRARY_TYPE_ALL:      aTitle = String( IDEResId( RID_STR_SHAREMACROSDIALOGS ) ); break;
-                default:
-                    break;
-                }
-            }
-            break;
-            case LIBRARY_LOCATION_DOCUMENT:
-                aTitle = getTitle();
-                break;
-            default:
-                break;
-            }
-        }
-
-        return aTitle;
-    }
-
-
-    ::rtl::OUString ScriptDocument::getTitle() const
-    {
-        return m_pImpl->getTitle();
-    }
-
-
-    ::rtl::OUString ScriptDocument::getURL() const
-    {
-        return m_pImpl->getURL();
-    }
-
-
-    bool ScriptDocument::isActive() const
-    {
-        bool bIsActive( false );
-        try
-        {
-            Reference< XFrame > xFrame;
-            if ( m_pImpl->getCurrentFrame( xFrame ) )
-                bIsActive = xFrame->isActive();
-        }
-        catch( const Exception& )
-        {
-            DBG_UNHANDLED_EXCEPTION();
-        }
-        return bIsActive;
-    }
-
-
-    bool ScriptDocument::allowMacros() const
-    {
-        return m_pImpl->allowMacros();
-    }
-
-}
-
-/* vim:set shiftwidth=4 softtabstop=4 expandtab: */