cui/source/dialogs/hlinettp.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 <o3tl/string_view.hxx>
  21 #include <unotools/useroptions.hxx>
  22 #include <svl/adrparse.hxx>
  23
  24 #include <hlinettp.hxx>
  25 #include <hlmarkwn_def.hxx>
  26 #include <com/sun/star/datatransfer/UnsupportedFlavorException.hpp>
  27
  28
  29 /*************************************************************************
  30 |*
  31 |* Constructor / Destructor
  32 |*
  33 |************************************************************************/
  34 SvxHyperlinkInternetTp::SvxHyperlinkInternetTp(weld::Container* pParent,
  35                                                SvxHpLinkDlg* pDlg,
  36                                                const SfxItemSet* pItemSet)
  37     : SvxHyperlinkTabPageBase(pParent, pDlg, u"cui/ui/hyperlinkinternetpage.ui"_ustr, u"HyperlinkInternetPage"_ustr,
  38                               pItemSet)
  39     , m_bMarkWndOpen(false)
  40     , m_xCbbTarget(new SvxHyperURLBox(xBuilder->weld_combo_box(u"target"_ustr)))
  41     , m_xFtTarget(xBuilder->weld_label(u"target_label"_ustr))
  42 {
  43     // gtk_size_group_set_ignore_hidden, "Measuring the size of hidden widgets
  44     // ...  they will report a size of 0 nowadays, and thus, their size will
  45     // not affect the other size group members", which is unfortunate. So here
  46     // before we hide the labels, take the size group width and set it as
  47     // explicit preferred size on a label that won't be hidden
  48     auto nLabelWidth = m_xFtTarget->get_preferred_size().Width();
  49     m_xFtTarget->set_size_request(nLabelWidth, -1);
  50
  51     m_xCbbTarget->SetSmartProtocol(INetProtocol::Http);
  52
  53     InitStdControls();
  54
  55     m_xCbbTarget->show();
  56
  57     SetExchangeSupport ();
  58
  59     // set handlers
  60     m_xCbbTarget->connect_focus_out( LINK ( this, SvxHyperlinkInternetTp, LostFocusTargetHdl_Impl ) );
  61     m_xCbbTarget->connect_changed( LINK ( this, SvxHyperlinkInternetTp, ModifiedTargetHdl_Impl ) );
  62     maTimer.SetInvokeHandler ( LINK ( this, SvxHyperlinkInternetTp, TimeoutHdl_Impl ) );
  63 }
  64
  65 SvxHyperlinkInternetTp::~SvxHyperlinkInternetTp()
  66 {
  67 }
  68
  69 /*************************************************************************
  70 |*
  71 |* Fill the all dialog-controls except controls in groupbox "more..."
  72 |*
  73 |************************************************************************/
  74 void SvxHyperlinkInternetTp::FillDlgFields(const OUString& rStrURL)
  75 {
  76     // tdf#146576 - propose clipboard content when inserting a hyperlink
  77     OUString aStrURL(rStrURL);
  78     if (aStrURL.isEmpty())
  79     {
  80         if (auto xClipboard = GetSystemClipboard())
  81         {
  82             if (auto xTransferable = xClipboard->getContents())
  83             {
  84                 css::datatransfer::DataFlavor aFlavor;
  85                 SotExchange::GetFormatDataFlavor(SotClipboardFormatId::STRING, aFlavor);
  86                 if (xTransferable->isDataFlavorSupported(aFlavor))
  87                 {
  88                     OUString aClipBoardContent;
  89                     try
  90                     {
  91                         if (xTransferable->getTransferData(aFlavor) >>= aClipBoardContent)
  92                         {
  93                             // tdf#162753 - allow only syntactically valid hyperlink targets
  94                             INetURLObject aURL(o3tl::trim(aClipBoardContent));
  95                             if (!aURL.HasError())
  96                                 aStrURL
  97                                     = aURL.GetMainURL(INetURLObject::DecodeMechanism::Unambiguous);
  98                         }
  99                     }
 100                     // tdf#158345: Opening Hyperlink dialog leads to crash
 101                     // MimeType = "text/plain;charset=utf-16"
 102                     catch (const css::datatransfer::UnsupportedFlavorException&)
 103                     {
 104                     }
 105                 }
 106             }
 107         }
 108     }
 109
 110     INetURLObject aURL(aStrURL);
 111     OUString aStrScheme(GetSchemeFromURL(aStrURL));
 112
 113     // set URL-field
 114     // Show the scheme, #72740
 115     if ( aURL.GetProtocol() != INetProtocol::NotValid )
 116         m_xCbbTarget->set_entry_text( aURL.GetMainURL( INetURLObject::DecodeMechanism::Unambiguous ) );
 117     else
 118         m_xCbbTarget->set_entry_text(rStrURL);
 119
 120     SetScheme(aStrScheme);
 121 }
 122
 123 /*************************************************************************
 124 |*
 125 |* retrieve and prepare data from dialog-fields
 126 |*
 127 |************************************************************************/
 128
 129 void SvxHyperlinkInternetTp::GetCurrentItemData ( OUString& rStrURL, OUString& aStrName,
 130                                                  OUString& aStrIntName, OUString& aStrFrame,
 131                                                  SvxLinkInsertMode& eMode )
 132 {
 133     rStrURL = CreateAbsoluteURL();
 134     GetDataFromCommonFields( aStrName, aStrIntName, aStrFrame, eMode );
 135 }
 136
 137 OUString SvxHyperlinkInternetTp::CreateAbsoluteURL() const
 138 {
 139     // erase leading and trailing whitespaces
 140     OUString aStrURL(m_xCbbTarget->get_active_text().trim());
 141
 142     INetURLObject aURL(aStrURL, GetSmartProtocolFromButtons());
 143
 144     if ( aURL.GetProtocol() != INetProtocol::NotValid )
 145         return aURL.GetMainURL( INetURLObject::DecodeMechanism::ToIUri );
 146     else //#105788# always create a URL even if it is not valid
 147         return aStrURL;
 148 }
 149
 150 /*************************************************************************
 151 |*
 152 |* static method to create Tabpage
 153 |*
 154 |************************************************************************/
 155
 156 std::unique_ptr<IconChoicePage> SvxHyperlinkInternetTp::Create(weld::Container* pWindow, SvxHpLinkDlg* pDlg, const SfxItemSet* pItemSet)
 157 {
 158     return std::make_unique<SvxHyperlinkInternetTp>(pWindow, pDlg, pItemSet);
 159 }
 160
 161 /*************************************************************************
 162 |*
 163 |* Set initial focus
 164 |*
 165 |************************************************************************/
 166 void SvxHyperlinkInternetTp::SetInitFocus()
 167 {
 168     m_xCbbTarget->grab_focus();
 169 }
 170
 171 /*************************************************************************
 172 |*
 173 |* Contents of editfield "Target" modified
 174 |*
 175 |************************************************************************/
 176 IMPL_LINK_NOARG(SvxHyperlinkInternetTp, ModifiedTargetHdl_Impl, weld::ComboBox&, void)
 177 {
 178     OUString aScheme = GetSchemeFromURL( m_xCbbTarget->get_active_text() );
 179     if( !aScheme.isEmpty() )
 180         SetScheme( aScheme );
 181
 182     // start timer
 183     maTimer.SetTimeout( 2500 );
 184     maTimer.Start();
 185 }
 186
 187 /*************************************************************************
 188 |*
 189 |* If target-field was modify, to browse the new doc after timeout
 190 |*
 191 |************************************************************************/
 192 IMPL_LINK_NOARG(SvxHyperlinkInternetTp, TimeoutHdl_Impl, Timer *, void)
 193 {
 194     RefreshMarkWindow();
 195 }
 196
 197 void SvxHyperlinkInternetTp::SetScheme(std::u16string_view rScheme)
 198 {
 199     //update target:
 200     RemoveImproperProtocol(rScheme);
 201     m_xCbbTarget->SetSmartProtocol( GetSmartProtocolFromButtons() );
 202
 203     //update 'link target in document'-window and opening-button
 204     if (o3tl::starts_with(rScheme, INET_HTTP_SCHEME) || rScheme.empty())
 205     {
 206         if ( m_bMarkWndOpen )
 207             ShowMarkWnd ();
 208     }
 209     else
 210     {
 211         //disable for https and ftp
 212         if ( m_bMarkWndOpen )
 213             HideMarkWnd ();
 214     }
 215 }
 216
 217 /*************************************************************************
 218 |*
 219 |* Remove protocol if it does not fit to the current button selection
 220 |*
 221 |************************************************************************/
 222
 223 void SvxHyperlinkInternetTp::RemoveImproperProtocol(std::u16string_view aProperScheme)
 224 {
 225     OUString aStrURL ( m_xCbbTarget->get_active_text() );
 226     if ( !aStrURL.isEmpty() )
 227     {
 228         OUString aStrScheme(GetSchemeFromURL(aStrURL));
 229         if ( !aStrScheme.isEmpty() && aStrScheme != aProperScheme )
 230         {
 231             aStrURL = aStrURL.copy( aStrScheme.getLength() );
 232             m_xCbbTarget->set_entry_text( aStrURL );
 233         }
 234     }
 235 }
 236
 237 INetProtocol SvxHyperlinkInternetTp::GetSmartProtocolFromButtons()
 238 {
 239     return INetProtocol::Http;
 240 }
 241
 242 /*************************************************************************
 243 |*
 244 |* Combobox Target lost the focus
 245 |*
 246 |************************************************************************/
 247 IMPL_LINK_NOARG(SvxHyperlinkInternetTp, LostFocusTargetHdl_Impl, weld::Widget&, void)
 248 {
 249     RefreshMarkWindow();
 250 }
 251
 252 void SvxHyperlinkInternetTp::RefreshMarkWindow()
 253 {
 254     if (IsMarkWndVisible())
 255     {
 256         weld::WaitObject aWait(mpDialog->getDialog());
 257         OUString aStrURL( CreateAbsoluteURL() );
 258         if ( !aStrURL.isEmpty() )
 259             mxMarkWnd->RefreshTree ( aStrURL );
 260         else
 261             mxMarkWnd->SetError( LERR_DOCNOTOPEN );
 262     }
 263 }
 264
 265 /*************************************************************************
 266 |*
 267 |* Get String from Bookmark-Wnd
 268 |*
 269 |************************************************************************/
 270 void SvxHyperlinkInternetTp::SetMarkStr ( const OUString& aStrMark )
 271 {
 272     OUString aStrURL(m_xCbbTarget->get_active_text());
 273
 274     const sal_Unicode sUHash = '#';
 275     sal_Int32 nPos = aStrURL.lastIndexOf( sUHash );
 276
 277     if( nPos != -1 )
 278         aStrURL = aStrURL.copy(0, nPos);
 279
 280     aStrURL += OUStringChar(sUHash) + aStrMark;
 281
 282     m_xCbbTarget->set_entry_text(aStrURL);
 283 }
 284
 285 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */