svtools/source/uno/fpicker.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 "sal/types.h"
  21 #include "rtl/ustring.hxx"
  22
  23 #include "com/sun/star/lang/XMultiComponentFactory.hpp"
  24
  25 #include "svtools/miscopt.hxx"
  26 #include "svl/pickerhistoryaccess.hxx"
  27
  28 #include "vcl/svapp.hxx"
  29
  30 using css::uno::Reference;
  31 using css::uno::Sequence;
  32
  33 /*
  34  * FilePicker implementation.
  35  */
  36 static OUString FilePicker_getSystemPickerServiceName()
  37 {
  38 #ifdef UNX
  39     OUString aDesktopEnvironment (Application::GetDesktopEnvironment());
  40     if (aDesktopEnvironment.equalsIgnoreAsciiCase("tde"))
  41         return OUString ("com.sun.star.ui.dialogs.TDEFilePicker");
  42     else if (aDesktopEnvironment.equalsIgnoreAsciiCase("kde"))
  43         return OUString ("com.sun.star.ui.dialogs.KDEFilePicker");
  44     else if (aDesktopEnvironment.equalsIgnoreAsciiCase("kde4"))
  45         return OUString ("com.sun.star.ui.dialogs.KDE4FilePicker");
  46     else if (aDesktopEnvironment.equalsIgnoreAsciiCase("macosx"))
  47         return OUString ("com.sun.star.ui.dialogs.AquaFilePicker");
  48     else
  49         return OUString ("com.sun.star.ui.dialogs.SystemFilePicker");
  50 #endif
  51 #ifdef WNT
  52     return OUString ("com.sun.star.ui.dialogs.Win32FilePicker");
  53 #endif
  54 }
  55
  56 Reference< css::uno::XInterface > FilePicker_CreateInstance (
  57     Reference< css::uno::XComponentContext > const & rxContext)
  58 {
  59     Reference< css::uno::XInterface > xResult;
  60
  61     if (!rxContext.is())
  62         return xResult;
  63
  64     Reference< css::lang::XMultiComponentFactory > xFactory (rxContext->getServiceManager());
  65     if (xFactory.is() && SvtMiscOptions().UseSystemFileDialog())
  66     {
  67         xResult = Reference< css::uno::XInterface >( Application::createFilePicker( rxContext ) );
  68
  69         if (!xResult.is())
  70         {
  71             try
  72             {
  73                 xResult = xFactory->createInstanceWithContext (
  74                         FilePicker_getSystemPickerServiceName(),
  75                         rxContext);
  76             }
  77             catch (css::uno::Exception const &)
  78             {
  79                 // Handled below (see @ fallback).
  80             }
  81         }
  82     }
  83
  84
  85     if (!xResult.is() && xFactory.is())
  86     {
  87         // Always fall back to OfficeFilePicker.
  88         xResult = xFactory->createInstanceWithContext (
  89                 OUString( "com.sun.star.ui.dialogs.OfficeFilePicker"),
  90                 rxContext);
  91     }
  92     if (xResult.is())
  93     {
  94         // Add to FilePicker history.
  95         svt::addFilePicker (xResult);
  96     }
  97     return xResult;
  98 }
  99
 100 OUString SAL_CALL FilePicker_getImplementationName()
 101 {
 102     return OUString("com.sun.star.comp.svt.FilePicker");
 103 }
 104
 105 Sequence< OUString > FilePicker_getSupportedServiceNames()
 106 {
 107     Sequence< OUString > aServiceNames(1);
 108     aServiceNames.getArray()[0] =
 109         OUString( "com.sun.star.ui.dialogs.FilePicker");
 110     return aServiceNames;
 111 }
 112
 113 /*
 114  * FolderPicker implementation.
 115  */
 116 static OUString FolderPicker_getSystemPickerServiceName()
 117 {
 118     OUString aDesktopEnvironment (Application::GetDesktopEnvironment());
 119 #ifdef UNX
 120     if (aDesktopEnvironment.equalsIgnoreAsciiCase("tde"))
 121         return OUString("com.sun.star.ui.dialogs.TDEFolderPicker");
 122     else if (aDesktopEnvironment.equalsIgnoreAsciiCase("kde"))
 123         return OUString("com.sun.star.ui.dialogs.KDEFolderPicker");
 124     else if (aDesktopEnvironment.equalsIgnoreAsciiCase("macosx"))
 125         return OUString("com.sun.star.ui.dialogs.AquaFolderPicker");
 126 #endif
 127     return OUString("com.sun.star.ui.dialogs.SystemFolderPicker");
 128 }
 129
 130 Reference< css::uno::XInterface > FolderPicker_CreateInstance (
 131     Reference< css::uno::XComponentContext > const & rxContext)
 132 {
 133     Reference< css::uno::XInterface > xResult;
 134
 135     if (!rxContext.is())
 136         return xResult;
 137
 138     Reference< css::lang::XMultiComponentFactory > xFactory (rxContext->getServiceManager());
 139     if (xFactory.is() && SvtMiscOptions().UseSystemFileDialog())
 140     {
 141         xResult = Reference< css::uno::XInterface >( Application::createFolderPicker( rxContext ) );
 142         if (!xResult.is())
 143         {
 144             try
 145             {
 146                 xResult = xFactory->createInstanceWithContext (
 147                                 FolderPicker_getSystemPickerServiceName(),
 148                                 rxContext);
 149             }
 150             catch (css::uno::Exception const &)
 151             {
 152                 // Handled below (see @ fallback).
 153             }
 154         }
 155     }
 156     if (!xResult.is() && xFactory.is() )
 157     {
 158         // Always fall back to OfficeFolderPicker.
 159         xResult = xFactory->createInstanceWithContext (
 160                 OUString( "com.sun.star.ui.dialogs.OfficeFolderPicker"),
 161                 rxContext);
 162     }
 163     if (xResult.is())
 164     {
 165         // Add to FolderPicker history.
 166         svt::addFolderPicker (xResult);
 167     }
 168     return xResult;
 169 }
 170
 171 OUString SAL_CALL FolderPicker_getImplementationName()
 172 {
 173     return OUString("com.sun.star.comp.svt.FolderPicker");
 174 }
 175
 176 Sequence< OUString > FolderPicker_getSupportedServiceNames()
 177 {
 178     Sequence< OUString > aServiceNames(1);
 179     aServiceNames.getArray()[0] =
 180         OUString( "com.sun.star.ui.dialogs.FolderPicker");
 181     return aServiceNames;
 182 }
 183
 184 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */