basic/source/basmgr/vbahelper.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
  21 #include <basic/vbahelper.hxx>
  22
  23 #include <map>
  24 #include <vector>
  25 #include <com/sun/star/container/XEnumeration.hpp>
  26 #include <com/sun/star/frame/XDesktop.hpp>
  27 #include <com/sun/star/frame/XModel2.hpp>
  28 #include <com/sun/star/frame/ModuleManager.hpp>
  29 #include <com/sun/star/lang/XMultiServiceFactory.hpp>
  30 #include <comphelper/processfactory.hxx>
  31 #include <cppuhelper/implbase1.hxx>
  32 #include <rtl/instance.hxx>
  33
  34 namespace basic {
  35 namespace vba {
  36
  37 using namespace ::com::sun::star;
  38
  39 // ============================================================================
  40
  41 namespace {
  42
  43 /** Create an instance of a module manager.
  44  */
  45 uno::Reference< frame::XModuleManager2 > lclCreateModuleManager()
  46 {
  47     uno::Reference< uno::XComponentContext > xContext( ::comphelper::getProcessComponentContext(), uno::UNO_QUERY_THROW );
  48     return frame::ModuleManager::create(xContext);
  49 }
  50
  51 // ----------------------------------------------------------------------------
  52
  53 /** Implementation of an enumeration of all open documents of the same type.
  54  */
  55 class DocumentsEnumeration : public ::cppu::WeakImplHelper1< container::XEnumeration >
  56 {
  57 public:
  58     DocumentsEnumeration( const uno::Reference< frame::XModel >& rxModel );
  59     virtual sal_Bool SAL_CALL hasMoreElements() throw (uno::RuntimeException);
  60     virtual uno::Any SAL_CALL nextElement() throw (container::NoSuchElementException, lang::WrappedTargetException, uno::RuntimeException);
  61 private:
  62     typedef ::std::vector< uno::Reference< frame::XModel > > ModelVector;
  63     ModelVector maModels;
  64     ModelVector::iterator maModelIt;
  65 };
  66
  67 DocumentsEnumeration::DocumentsEnumeration( const uno::Reference< frame::XModel >& rxModel )
  68 {
  69     try
  70     {
  71         uno::Reference< frame::XModuleManager2 > xModuleManager( lclCreateModuleManager() );
  72         ::rtl::OUString aIdentifier = xModuleManager->identify( rxModel );
  73         uno::Reference< lang::XMultiServiceFactory > xFactory( ::comphelper::getProcessServiceFactory(), uno::UNO_QUERY_THROW );
  74         uno::Reference< frame::XDesktop > xDesktop( xFactory->createInstance( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.frame.Desktop" ) ) ), uno::UNO_QUERY_THROW );
  75         uno::Reference< container::XEnumerationAccess > xComponentsEA( xDesktop->getComponents(), uno::UNO_SET_THROW );
  76         uno::Reference< container::XEnumeration > xEnumeration( xComponentsEA->createEnumeration(), uno::UNO_SET_THROW );
  77         while( xEnumeration->hasMoreElements() )
  78         {
  79             uno::Reference< frame::XModel > xCurrModel( xEnumeration->nextElement(), uno::UNO_QUERY_THROW );
  80             if( xModuleManager->identify( xCurrModel ) == aIdentifier )
  81                 maModels.push_back( xCurrModel );
  82         }
  83     }
  84     catch(const uno::Exception& )
  85     {
  86     }
  87     maModelIt = maModels.begin();
  88 }
  89
  90 sal_Bool SAL_CALL DocumentsEnumeration::hasMoreElements() throw (uno::RuntimeException)
  91 {
  92     return maModelIt != maModels.end();
  93 }
  94
  95 uno::Any SAL_CALL DocumentsEnumeration::nextElement() throw (container::NoSuchElementException, lang::WrappedTargetException, uno::RuntimeException)
  96 {
  97     if( maModelIt == maModels.end() )
  98         throw container::NoSuchElementException();
  99     return uno::Any( *maModelIt++ );
 100 }
 101
 102 // ----------------------------------------------------------------------------
 103
 104 /** Locks or unlocks the controllers of the specified document model.
 105  */
 106 void lclLockControllers( const uno::Reference< frame::XModel >& rxModel, sal_Bool bLockControllers )
 107 {
 108     if( rxModel.is() ) try
 109     {
 110         if( bLockControllers )
 111             rxModel->lockControllers();
 112         else
 113             rxModel->unlockControllers();
 114     }
 115     catch(const uno::Exception& )
 116     {
 117     }
 118 }
 119
 120 // ----------------------------------------------------------------------------
 121
 122 /** Enables or disables the container windows of all controllers of the
 123     specified document model.
 124  */
 125 void lclEnableContainerWindows( const uno::Reference< frame::XModel >& rxModel, sal_Bool bEnableWindows )
 126 {
 127     try
 128     {
 129         uno::Reference< frame::XModel2 > xModel2( rxModel, uno::UNO_QUERY_THROW );
 130         uno::Reference< container::XEnumeration > xControllersEnum( xModel2->getControllers(), uno::UNO_SET_THROW );
 131         // iterate over all controllers
 132         while( xControllersEnum->hasMoreElements() )
 133         {
 134             try
 135             {
 136                 uno::Reference< frame::XController > xController( xControllersEnum->nextElement(), uno::UNO_QUERY_THROW );
 137                 uno::Reference< frame::XFrame > xFrame( xController->getFrame(), uno::UNO_SET_THROW );
 138                 uno::Reference< awt::XWindow > xWindow( xFrame->getContainerWindow(), uno::UNO_SET_THROW );
 139                 xWindow->setEnable( bEnableWindows );
 140             }
 141             catch(const uno::Exception& )
 142             {
 143             }
 144         }
 145     }
 146     catch(const uno::Exception& )
 147     {
 148     }
 149 }
 150
 151 // ----------------------------------------------------------------------------
 152
 153 typedef void (*ModifyDocumentFunc)( const uno::Reference< frame::XModel >&, sal_Bool );
 154
 155 /** Implementation iterating over all documents that have the same type as the
 156     specified model, and calling the passed functor.
 157  */
 158 void lclIterateDocuments( ModifyDocumentFunc pModifyDocumentFunc, const uno::Reference< frame::XModel >& rxModel, sal_Bool bModificator )
 159 {
 160     uno::Reference< container::XEnumeration > xDocumentsEnum( new DocumentsEnumeration( rxModel ) );
 161     // iterate over all open documents
 162     while( xDocumentsEnum->hasMoreElements() ) try
 163     {
 164         uno::Reference< frame::XModel > xCurrModel( xDocumentsEnum->nextElement(), uno::UNO_QUERY_THROW );
 165         pModifyDocumentFunc( xCurrModel, bModificator );
 166     }
 167     catch(const uno::Exception& )
 168     {
 169     }
 170 }
 171
 172 // ----------------------------------------------------------------------------
 173
 174 struct CurrDirPool
 175 {
 176     ::osl::Mutex maMutex;
 177     ::std::map< ::rtl::OUString, ::rtl::OUString > maCurrDirs;
 178 };
 179
 180 struct StaticCurrDirPool : public ::rtl::Static< CurrDirPool, StaticCurrDirPool > {};
 181
 182 } // namespace
 183
 184 // ============================================================================
 185
 186 void lockControllersOfAllDocuments( const uno::Reference< frame::XModel >& rxModel, sal_Bool bLockControllers )
 187 {
 188     lclIterateDocuments( &lclLockControllers, rxModel, bLockControllers );
 189 }
 190
 191 // ============================================================================
 192
 193 void enableContainerWindowsOfAllDocuments( const uno::Reference< frame::XModel >& rxModel, sal_Bool bEnableWindows )
 194 {
 195     lclIterateDocuments( &lclEnableContainerWindows, rxModel, bEnableWindows );
 196 }
 197
 198 // ============================================================================
 199
 200 void registerCurrentDirectory( const uno::Reference< frame::XModel >& rxModel, const ::rtl::OUString& rPath )
 201 {
 202     if( !rPath.isEmpty() )
 203     {
 204         CurrDirPool& rPool = StaticCurrDirPool::get();
 205         ::osl::MutexGuard aGuard( rPool.maMutex );
 206         try
 207         {
 208             uno::Reference< frame::XModuleManager2 > xModuleManager( lclCreateModuleManager() );
 209             ::rtl::OUString aIdentifier = xModuleManager->identify( rxModel );
 210             if( !aIdentifier.isEmpty() )
 211                 rPool.maCurrDirs[ aIdentifier ] = rPath;
 212         }
 213         catch(const uno::Exception& )
 214         {
 215         }
 216     }
 217 }
 218
 219 // ============================================================================
 220
 221 } // namespace vba
 222 } // namespace basic
 223
 224 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */