cui/source/options/tsaurls.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
  10 #include <officecfg/Office/Common.hxx>
  11 #include <svx/svxdlg.hxx>
  12 #include <cuires.hrc>
  13
  14 #include "tsaurls.hxx"
  15
  16 #include <com/sun/star/ui/dialogs/ExecutableDialogResults.hpp>
  17
  18 using namespace ::com::sun::star;
  19
  20 TSAURLsDialog::TSAURLsDialog(vcl::Window* pParent)
  21     : ModalDialog(pParent, "TSAURLDialog", "cui/ui/tsaurldialog.ui")
  22 {
  23     get(m_pAddBtn, "add");
  24     get(m_pDeleteBtn, "delete");
  25     get(m_pOKBtn, "ok");
  26     get(m_pURLListBox, "urls");
  27
  28     m_pURLListBox->SetDropDownLineCount(8);
  29     m_pURLListBox->set_width_request(m_pURLListBox->approximate_char_width() * 32);
  30     m_pOKBtn->Disable();
  31
  32     m_pAddBtn->SetClickHdl( LINK( this, TSAURLsDialog, AddHdl_Impl ) );
  33     m_pDeleteBtn->SetClickHdl( LINK( this, TSAURLsDialog, DeleteHdl_Impl ) );
  34     m_pOKBtn->SetClickHdl( LINK( this, TSAURLsDialog, OKHdl_Impl ) );
  35
  36     try
  37     {
  38         css::uno::Sequence<OUString> aUserSetTSAURLs(officecfg::Office::Common::Security::Scripting::TSAURLs::get());
  39
  40         for (auto i = aUserSetTSAURLs.begin(); i != aUserSetTSAURLs.end(); ++i)
  41         {
  42             AddTSAURL(*i);
  43         }
  44     }
  45     catch (const uno::Exception &e)
  46     {
  47         SAL_WARN("cui.options", "TSAURLsDialog::TSAURLsDialog(): caught exception" << e.Message);
  48     }
  49 }
  50
  51 IMPL_LINK_NOARG(TSAURLsDialog, OKHdl_Impl)
  52 {
  53     std::shared_ptr<comphelper::ConfigurationChanges> batch(comphelper::ConfigurationChanges::create());
  54
  55     css::uno::Sequence<OUString> aNewValue(m_aURLs.size());
  56     size_t n(0);
  57
  58     for (auto i = m_aURLs.cbegin(); i != m_aURLs.cend(); ++i)
  59         aNewValue[n++] = *i;
  60     officecfg::Office::Common::Security::Scripting::TSAURLs::set(aNewValue, batch);
  61     batch->commit();
  62
  63     EndDialog(RET_OK);
  64
  65     return 0;
  66 }
  67
  68 TSAURLsDialog::~TSAURLsDialog()
  69 {
  70     disposeOnce();
  71 }
  72
  73 void TSAURLsDialog::dispose()
  74 {
  75     m_pAddBtn.clear();
  76     m_pDeleteBtn.clear();
  77     m_pOKBtn.clear();
  78     m_pURLListBox.clear();
  79
  80     ModalDialog::dispose();
  81 }
  82
  83 void TSAURLsDialog::AddTSAURL(const OUString& rURL)
  84 {
  85     m_aURLs.insert(rURL);
  86
  87     m_pURLListBox->SetUpdateMode(false);
  88     m_pURLListBox->Clear();
  89
  90     for (auto i = m_aURLs.cbegin(); i != m_aURLs.cend(); ++i)
  91     {
  92         m_pURLListBox->InsertEntry(*i);
  93     }
  94
  95     m_pURLListBox->SetUpdateMode(true);
  96 }
  97
  98 IMPL_LINK_NOARG(TSAURLsDialog, AddHdl_Impl)
  99 {
 100     OUString aURL;
 101     OUString aDesc( get<FixedText>("enteraurl")->GetText() );
 102
 103     SvxAbstractDialogFactory* pFact = SvxAbstractDialogFactory::Create();
 104     boost::scoped_ptr<AbstractSvxNameDialog> pDlg(pFact->CreateSvxNameDialog( m_pAddBtn, aURL, aDesc));
 105
 106     if ( pDlg->Execute() == RET_OK )
 107     {
 108         pDlg->GetName( aURL );
 109
 110         AddTSAURL(aURL);
 111         m_pOKBtn->Enable();
 112     }
 113
 114     return 0;
 115 }
 116
 117 IMPL_LINK_NOARG(TSAURLsDialog, DeleteHdl_Impl)
 118 {
 119     sal_Int32 nSel = m_pURLListBox->GetSelectEntryPos();
 120
 121     if (nSel == LISTBOX_ENTRY_NOTFOUND)
 122         return 0;
 123
 124     m_aURLs.erase(m_pURLListBox->GetEntry(nSel));
 125     m_pURLListBox->RemoveEntry(nSel);
 126     m_pOKBtn->Enable();
 127
 128     return 0;
 129 }
 130
 131 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */