sfx2/source/inet/inettbc.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 <inettbc.hxx>
  22
  23 #include <com/sun/star/uno/Any.h>
  24 #include <com/sun/star/frame/Desktop.hpp>
  25 #include <com/sun/star/task/XInteractionHandler.hpp>
  26 #include <com/sun/star/util/XURLTransformer.hpp>
  27 #include <svl/stritem.hxx>
  28 #include <unotools/historyoptions.hxx>
  29 #include <vcl/toolbox.hxx>
  30 #include <vcl/svapp.hxx>
  31 #include <toolkit/helper/vclunohelper.hxx>
  32 #include <osl/file.hxx>
  33 #include <rtl/ustring.hxx>
  34
  35 #include <svtools/inettbc.hxx>
  36
  37 #include <vcl/InterimItemWindow.hxx>
  38 #include <sfx2/sfxsids.hrc>
  39
  40 using namespace ::com::sun::star::uno;
  41 using namespace ::com::sun::star::beans;
  42 using namespace ::com::sun::star::util;
  43 using namespace ::com::sun::star::frame;
  44 using namespace ::com::sun::star::task;
  45
  46
  47 // SfxURLToolBoxControl_Impl
  48
  49
  50 SFX_IMPL_TOOLBOX_CONTROL(SfxURLToolBoxControl_Impl,SfxStringItem)
  51
  52 SfxURLToolBoxControl_Impl::SfxURLToolBoxControl_Impl( sal_uInt16 nSlotId, sal_uInt16 nId, ToolBox& rBox )
  53     : SfxToolBoxControl( nSlotId, nId, rBox )
  54     , m_bModified(false)
  55 {
  56     addStatusListener( ".uno:CurrentURL");
  57 }
  58
  59 SfxURLToolBoxControl_Impl::~SfxURLToolBoxControl_Impl()
  60 {
  61 }
  62
  63 class URLBoxItemWindow final : public InterimItemWindow
  64 {
  65 private:
  66     std::unique_ptr<SvtURLBox> m_xWidget;
  67
  68     DECL_LINK(KeyInputHdl, const KeyEvent&, bool);
  69 public:
  70     URLBoxItemWindow(vcl::Window* pParent)
  71         : InterimItemWindow(pParent, "sfx/ui/urlbox.ui", "URLBox")
  72         , m_xWidget(new SvtURLBox(m_xBuilder->weld_combo_box("urlbox")))
  73     {
  74         InitControlBase(m_xWidget->getWidget());
  75
  76         m_xWidget->connect_key_press(LINK(this, URLBoxItemWindow, KeyInputHdl));
  77
  78         int nWidth = GetDesktopRectPixel().GetWidth() > 800 ? 300 : 225;
  79         SetSizePixel(Size(nWidth, m_xWidget->get_preferred_size().Height()));
  80     }
  81
  82     SvtURLBox* GetURLBox()
  83     {
  84         return m_xWidget.get();
  85     }
  86
  87     virtual void dispose() override
  88     {
  89         m_xWidget.reset();
  90         InterimItemWindow::dispose();
  91     }
  92
  93     void set_sensitive(bool bSensitive)
  94     {
  95         Enable(bSensitive);
  96         m_xWidget->set_sensitive(bSensitive);
  97     }
  98
  99     virtual ~URLBoxItemWindow() override
 100     {
 101         disposeOnce();
 102     }
 103 };
 104
 105 IMPL_LINK(URLBoxItemWindow, KeyInputHdl, const KeyEvent&, rKEvt, bool)
 106 {
 107     return ChildKeyInput(rKEvt);
 108 }
 109
 110 URLBoxItemWindow* SfxURLToolBoxControl_Impl::GetURLBoxItemWindow() const
 111 {
 112     return static_cast<URLBoxItemWindow*>(GetToolBox().GetItemWindow(GetId()));
 113 }
 114
 115 SvtURLBox* SfxURLToolBoxControl_Impl::GetURLBox() const
 116 {
 117     return GetURLBoxItemWindow()->GetURLBox();
 118 }
 119
 120 void SfxURLToolBoxControl_Impl::OpenURL( const OUString& rName ) const
 121 {
 122     OUString aName;
 123
 124     INetURLObject aObj( rName );
 125     if ( aObj.GetProtocol() == INetProtocol::NotValid )
 126     {
 127         aName = SvtURLBox::ParseSmart( rName, "" );
 128     }
 129     else
 130         aName = rName;
 131
 132     if ( aName.isEmpty() )
 133         return;
 134
 135     Reference< XDispatchProvider > xDispatchProvider( getFrameInterface(), UNO_QUERY );
 136     if ( !xDispatchProvider.is() )
 137         return;
 138
 139     URL             aTargetURL;
 140     aTargetURL.Complete = aName;
 141
 142     getURLTransformer()->parseStrict( aTargetURL );
 143     Reference< XDispatch > xDispatch = xDispatchProvider->queryDispatch( aTargetURL, "_default", 0 );
 144     if ( !xDispatch.is() )
 145         return;
 146
 147     Sequence< PropertyValue > aArgs( 2 );
 148     aArgs[0].Name = "Referer";
 149     aArgs[0].Value <<= OUString( "private:user" );
 150     aArgs[1].Name = "FileName";
 151     aArgs[1].Value <<= aName;
 152
 153     SfxURLToolBoxControl_Impl::ExecuteInfo* pExecuteInfo = new SfxURLToolBoxControl_Impl::ExecuteInfo;
 154     pExecuteInfo->xDispatch     = xDispatch;
 155     pExecuteInfo->aTargetURL    = aTargetURL;
 156     pExecuteInfo->aArgs         = aArgs;
 157     Application::PostUserEvent( LINK( nullptr, SfxURLToolBoxControl_Impl, ExecuteHdl_Impl), pExecuteInfo );
 158 }
 159
 160
 161 IMPL_STATIC_LINK( SfxURLToolBoxControl_Impl, ExecuteHdl_Impl, void*, p, void )
 162 {
 163     ExecuteInfo* pExecuteInfo = static_cast<ExecuteInfo*>(p);
 164     try
 165     {
 166         // Asynchronous execution as this can lead to our own destruction!
 167         // Framework can recycle our current frame and the layout manager disposes all user interface
 168         // elements if a component gets detached from its frame!
 169         pExecuteInfo->xDispatch->dispatch( pExecuteInfo->aTargetURL, pExecuteInfo->aArgs );
 170     }
 171     catch ( Exception& )
 172     {
 173     }
 174
 175     delete pExecuteInfo;
 176 }
 177
 178 VclPtr<InterimItemWindow> SfxURLToolBoxControl_Impl::CreateItemWindow( vcl::Window* pParent )
 179 {
 180     VclPtrInstance<URLBoxItemWindow> xURLBox(pParent);
 181     SvtURLBox* pURLBox = xURLBox->GetURLBox();
 182     pURLBox->connect_changed(LINK(this, SfxURLToolBoxControl_Impl, SelectHdl));
 183     pURLBox->connect_entry_activate(LINK(this, SfxURLToolBoxControl_Impl, OpenHdl));
 184     xURLBox->Show();
 185     return xURLBox;
 186 }
 187
 188 IMPL_LINK(SfxURLToolBoxControl_Impl, SelectHdl, weld::ComboBox&, rComboBox, void)
 189 {
 190     m_bModified = true;
 191
 192     SvtURLBox* pURLBox = GetURLBox();
 193     OUString aName( pURLBox->GetURL() );
 194
 195     if (rComboBox.changed_by_direct_pick() && !aName.isEmpty())
 196         OpenURL( aName );
 197 }
 198
 199 IMPL_LINK_NOARG(SfxURLToolBoxControl_Impl, OpenHdl, weld::ComboBox&, bool)
 200 {
 201     SvtURLBox* pURLBox = GetURLBox();
 202     OpenURL( pURLBox->GetURL() );
 203
 204     Reference< XDesktop2 > xDesktop = Desktop::create( m_xContext );
 205     Reference< XFrame > xFrame = xDesktop->getActiveFrame();
 206     if ( xFrame.is() )
 207     {
 208         VclPtr<vcl::Window> pWin = VCLUnoHelper::GetWindow( xFrame->getContainerWindow() );
 209         if ( pWin )
 210         {
 211             pWin->GrabFocus();
 212             pWin->ToTop( ToTopFlags::RestoreWhenMin );
 213         }
 214     }
 215
 216     return true;
 217 }
 218
 219 void SfxURLToolBoxControl_Impl::StateChanged
 220 (
 221     sal_uInt16              nSID,
 222     SfxItemState        eState,
 223     const SfxPoolItem*  pState
 224 )
 225 {
 226     if ( nSID == SID_OPENURL )
 227     {
 228         // Disable URL box if command is disabled
 229         GetURLBoxItemWindow()->set_sensitive( SfxItemState::DISABLED != eState );
 230     }
 231
 232     if ( !GetURLBoxItemWindow()->IsEnabled() )
 233         return;
 234
 235     if( nSID == SID_FOCUSURLBOX )
 236     {
 237         if ( GetURLBoxItemWindow()->IsVisible() )
 238             GetURLBoxItemWindow()->GrabFocus();
 239     }
 240     else if ( !m_bModified && SfxItemState::DEFAULT == eState )
 241     {
 242         SvtURLBox* pURLBox = GetURLBox();
 243         pURLBox->clear();
 244
 245         const css::uno::Sequence< css::uno::Sequence< css::beans::PropertyValue > > lList = SvtHistoryOptions().GetList(ePICKLIST);
 246         for (const css::uno::Sequence< css::beans::PropertyValue >& lProps : lList)
 247         {
 248             for (const auto& rProp : lProps)
 249             {
 250                 if (rProp.Name != HISTORY_PROPERTYNAME_URL)
 251                     continue;
 252
 253                 OUString sURL;
 254                 if (!(rProp.Value>>=sURL) || sURL.isEmpty())
 255                     continue;
 256
 257                 INetURLObject aURL    ( sURL );
 258                 OUString      sMainURL( aURL.GetMainURL( INetURLObject::DecodeMechanism::WithCharset ) );
 259                 OUString      sFile;
 260
 261                 if (osl::FileBase::getSystemPathFromFileURL(sMainURL, sFile) == osl::FileBase::E_None)
 262                     pURLBox->append_text(sFile);
 263                 else
 264                     pURLBox->append_text(sMainURL);
 265             }
 266         }
 267
 268         const SfxStringItem *pURL = dynamic_cast< const SfxStringItem* >(pState);
 269         assert(pURL);
 270         INetURLObject aURL( pURL->GetValue() );
 271         INetProtocol eProt = aURL.GetProtocol();
 272         if ( eProt == INetProtocol::File )
 273         {
 274             pURLBox->set_entry_text( aURL.PathToFileName() );
 275         }
 276         else
 277             pURLBox->set_entry_text( aURL.GetURLNoPass() );
 278     }
 279 }
 280
 281 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */