Line data Source code
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 <moduldlg.hxx>
22 : #include <basidesh.hxx>
23 : #include <baside2.hrc>
24 : #include <iderdll.hxx>
25 : #include <iderdll2.hxx>
26 : #include <svx/passwd.hxx>
27 : #include <ucbhelper/content.hxx>
28 : #include <rtl/uri.hxx>
29 : #include <sfx2/dinfdlg.hxx>
30 : #include <sfx2/dispatch.hxx>
31 : #include <sfx2/request.hxx>
32 : #include <tools/urlobj.hxx>
33 : #include <tools/diagnose_ex.h>
34 : #include <svtools/svlbitm.hxx>
35 : #include <svtools/treelistentry.hxx>
36 : #include <vcl/builderfactory.hxx>
37 :
38 : #include <com/sun/star/io/Pipe.hpp>
39 : #include <com/sun/star/ui/dialogs/FilePicker.hpp>
40 : #include <com/sun/star/ui/dialogs/FolderPicker.hpp>
41 : #include <com/sun/star/ui/dialogs/TemplateDescription.hpp>
42 : #include <com/sun/star/script/DocumentScriptLibraryContainer.hpp>
43 : #include <com/sun/star/script/DocumentDialogLibraryContainer.hpp>
44 : #include <com/sun/star/script/XLibraryContainerPassword.hpp>
45 : #include <com/sun/star/script/XLibraryContainerExport.hpp>
46 : #include <com/sun/star/task/InteractionHandler.hpp>
47 : #include <com/sun/star/ucb/SimpleFileAccess.hpp>
48 : #include <com/sun/star/ucb/XCommandEnvironment.hpp>
49 : #include <com/sun/star/ucb/NameClash.hpp>
50 : #include <com/sun/star/packages/manifest/ManifestWriter.hpp>
51 : #include <unotools/pathoptions.hxx>
52 :
53 : #include <com/sun/star/util/VetoException.hpp>
54 : #include <com/sun/star/script/ModuleSizeExceededRequest.hpp>
55 :
56 : #include <comphelper/propertysequence.hxx>
57 :
58 :
59 : namespace basctl
60 : {
61 :
62 : using namespace ::com::sun::star;
63 : using namespace ::com::sun::star::uno;
64 : using namespace ::com::sun::star::lang;
65 : using namespace ::com::sun::star::ucb;
66 : using namespace ::com::sun::star::ui::dialogs;
67 :
68 : typedef ::cppu::WeakImplHelper1< task::XInteractionHandler > HandlerImpl_BASE;
69 :
70 : namespace
71 : {
72 :
73 0 : class DummyInteractionHandler : public HandlerImpl_BASE
74 : {
75 : Reference< task::XInteractionHandler2 > m_xHandler;
76 : public:
77 0 : explicit DummyInteractionHandler(const Reference<task::XInteractionHandler2>& xHandler)
78 0 : : m_xHandler(xHandler)
79 : {
80 0 : }
81 :
82 0 : virtual void SAL_CALL handle( const Reference< task::XInteractionRequest >& rRequest ) throw (::com::sun::star::uno::RuntimeException, std::exception) SAL_OVERRIDE
83 : {
84 0 : if ( m_xHandler.is() )
85 : {
86 0 : script::ModuleSizeExceededRequest aModSizeException;
87 0 : if ( rRequest->getRequest() >>= aModSizeException )
88 0 : m_xHandler->handle( rRequest );
89 : }
90 0 : }
91 : };
92 :
93 : // LibUserData
94 : class LibUserData
95 : {
96 : private:
97 : ScriptDocument m_aDocument;
98 :
99 : public:
100 0 : explicit LibUserData(ScriptDocument const& rDocument)
101 0 : : m_aDocument(rDocument)
102 : {
103 0 : }
104 0 : virtual ~LibUserData() {};
105 :
106 0 : const ScriptDocument& GetDocument() const { return m_aDocument; }
107 : };
108 :
109 : // LibLBoxString
110 0 : class LibLBoxString : public SvLBoxString
111 : {
112 : public:
113 0 : LibLBoxString( SvTreeListEntry* pEntry, sal_uInt16 nFlags, const OUString& rTxt ) :
114 0 : SvLBoxString( pEntry, nFlags, rTxt ) {}
115 :
116 : virtual void Paint(const Point& rPos, SvTreeListBox& rDev, vcl::RenderContext& rRenderContext,
117 : const SvViewDataEntry* pView, const SvTreeListEntry& rEntry) SAL_OVERRIDE;
118 : };
119 :
120 0 : void LibLBoxString::Paint(const Point& rPos, SvTreeListBox& /*rDev*/, vcl::RenderContext& rRenderContext,
121 : const SvViewDataEntry* /*pView*/, const SvTreeListEntry& rEntry)
122 : {
123 : // Change text color if library is read only:
124 0 : bool bReadOnly = false;
125 0 : if (rEntry.GetUserData())
126 : {
127 0 : ScriptDocument aDocument(static_cast<LibUserData*>(rEntry.GetUserData())->GetDocument());
128 :
129 0 : OUString aLibName = static_cast<const SvLBoxString*>(rEntry.GetItem(1))->GetText();
130 0 : Reference<script::XLibraryContainer2> xModLibContainer(aDocument.getLibraryContainer(E_SCRIPTS), UNO_QUERY);
131 0 : Reference<script::XLibraryContainer2 > xDlgLibContainer(aDocument.getLibraryContainer(E_DIALOGS), UNO_QUERY);
132 0 : bReadOnly = (xModLibContainer.is() && xModLibContainer->hasByName(aLibName) && xModLibContainer->isLibraryReadOnly(aLibName))
133 0 : || (xDlgLibContainer.is() && xDlgLibContainer->hasByName(aLibName) && xDlgLibContainer->isLibraryReadOnly(aLibName));
134 : }
135 0 : if (bReadOnly)
136 0 : rRenderContext.DrawCtrlText(rPos, GetText(), 0, -1, DrawTextFlags::Disable);
137 : else
138 0 : rRenderContext.DrawText(rPos, GetText());
139 0 : }
140 :
141 : } // namespace
142 :
143 : // basctl::CheckBox
144 0 : CheckBox::CheckBox(vcl::Window* pParent, WinBits nStyle)
145 : : SvTabListBox(pParent, nStyle)
146 : , eMode(ObjectMode::Module)
147 0 : , m_aDocument(ScriptDocument::getApplicationScriptDocument())
148 : {
149 0 : long aTabs_[] = { 1, 12 }; // TabPos needs at least one...
150 : // 12 because of the CheckBox
151 0 : SetTabs( aTabs_ );
152 0 : Init();
153 0 : }
154 :
155 0 : VCL_BUILDER_DECL_FACTORY(CheckBox)
156 : {
157 0 : WinBits nWinBits = WB_TABSTOP;
158 0 : OString sBorder = VclBuilder::extractCustomProperty(rMap);
159 0 : if (!sBorder.isEmpty())
160 0 : nWinBits |= WB_BORDER;
161 0 : rRet = VclPtr<CheckBox>::Create(pParent, nWinBits);
162 0 : }
163 :
164 0 : CheckBox::~CheckBox()
165 : {
166 0 : disposeOnce();
167 0 : }
168 :
169 0 : void CheckBox::dispose()
170 : {
171 0 : delete pCheckButton;
172 0 : pCheckButton = NULL;
173 :
174 : // delete user data
175 0 : SvTreeListEntry* pEntry = First();
176 0 : while ( pEntry )
177 : {
178 0 : delete static_cast<LibUserData*>( pEntry->GetUserData() );
179 0 : pEntry->SetUserData( NULL );
180 0 : pEntry = Next( pEntry );
181 : }
182 0 : SvTabListBox::dispose();
183 0 : }
184 :
185 0 : void CheckBox::Init()
186 : {
187 0 : pCheckButton = new SvLBoxButtonData(this);
188 :
189 0 : if (eMode == ObjectMode::Library)
190 0 : EnableCheckButton( pCheckButton );
191 : else
192 0 : EnableCheckButton( 0 );
193 :
194 0 : SetHighlightRange();
195 0 : }
196 :
197 0 : void CheckBox::SetMode (ObjectMode::Mode e)
198 : {
199 0 : eMode = e;
200 :
201 0 : if (eMode == ObjectMode::Library)
202 0 : EnableCheckButton( pCheckButton );
203 : else
204 0 : EnableCheckButton( 0 );
205 0 : }
206 :
207 0 : SvTreeListEntry* CheckBox::DoInsertEntry( const OUString& rStr, sal_uLong nPos )
208 : {
209 0 : return SvTabListBox::InsertEntryToColumn( rStr, nPos, 0 );
210 : }
211 :
212 0 : SvTreeListEntry* CheckBox::FindEntry( const OUString& rName )
213 : {
214 0 : sal_uLong nCount = GetEntryCount();
215 0 : for ( sal_uLong i = 0; i < nCount; i++ )
216 : {
217 0 : SvTreeListEntry* pEntry = GetEntry( i );
218 : DBG_ASSERT( pEntry, "pEntry?!" );
219 0 : if ( rName.equalsIgnoreAsciiCase( GetEntryText( pEntry, 0 ) ) )
220 0 : return pEntry;
221 : }
222 0 : return 0;
223 : }
224 :
225 0 : void CheckBox::CheckEntryPos( sal_uLong nPos )
226 : {
227 0 : if ( nPos < GetEntryCount() )
228 : {
229 0 : SvTreeListEntry* pEntry = GetEntry( nPos );
230 :
231 0 : if ( GetCheckButtonState( pEntry ) != SV_BUTTON_CHECKED )
232 0 : SetCheckButtonState( pEntry, SvButtonState(SV_BUTTON_CHECKED) );
233 : }
234 0 : }
235 :
236 0 : bool CheckBox::IsChecked( sal_uLong nPos ) const
237 : {
238 0 : if ( nPos < GetEntryCount() )
239 0 : return GetCheckButtonState(GetEntry(nPos)) == SV_BUTTON_CHECKED;
240 0 : return false;
241 : }
242 :
243 0 : void CheckBox::InitEntry(SvTreeListEntry* pEntry, const OUString& rTxt,
244 : const Image& rImg1, const Image& rImg2, SvLBoxButtonKind eButtonKind )
245 : {
246 0 : SvTabListBox::InitEntry(pEntry, rTxt, rImg1, rImg2, eButtonKind);
247 :
248 0 : if (eMode == ObjectMode::Module)
249 : {
250 : // initialize all columns with own string class (column 0 == bitmap)
251 0 : sal_uInt16 nCount = pEntry->ItemCount();
252 0 : for ( sal_uInt16 nCol = 1; nCol < nCount; ++nCol )
253 : {
254 0 : SvLBoxString* pCol = static_cast<SvLBoxString*>(pEntry->GetItem( nCol ));
255 0 : LibLBoxString* pStr = new LibLBoxString( pEntry, 0, pCol->GetText() );
256 0 : pEntry->ReplaceItem( pStr, nCol );
257 : }
258 : }
259 0 : }
260 :
261 0 : bool CheckBox::EditingEntry( SvTreeListEntry* pEntry, Selection& )
262 : {
263 0 : if (eMode != ObjectMode::Module)
264 0 : return false;
265 :
266 : DBG_ASSERT( pEntry, "Kein Eintrag?" );
267 :
268 : // check, if Standard library
269 0 : OUString aLibName = GetEntryText( pEntry, 0 );
270 0 : if ( aLibName.equalsIgnoreAsciiCase( "Standard" ) )
271 : {
272 0 : ScopedVclPtrInstance<MessageDialog>::Create(this, IDE_RESSTR(RID_STR_CANNOTCHANGENAMESTDLIB))->Execute();
273 0 : return false;
274 : }
275 :
276 : // check, if library is readonly
277 0 : Reference< script::XLibraryContainer2 > xModLibContainer( m_aDocument.getLibraryContainer( E_SCRIPTS ), UNO_QUERY );
278 0 : Reference< script::XLibraryContainer2 > xDlgLibContainer( m_aDocument.getLibraryContainer( E_DIALOGS ), UNO_QUERY );
279 0 : if ( ( xModLibContainer.is() && xModLibContainer->hasByName( aLibName ) && xModLibContainer->isLibraryReadOnly( aLibName ) && !xModLibContainer->isLibraryLink( aLibName ) ) ||
280 0 : ( xDlgLibContainer.is() && xDlgLibContainer->hasByName( aLibName ) && xDlgLibContainer->isLibraryReadOnly( aLibName ) && !xDlgLibContainer->isLibraryLink( aLibName ) ) )
281 : {
282 0 : ScopedVclPtrInstance<MessageDialog>::Create(this, IDE_RESSTR(RID_STR_LIBISREADONLY))->Execute();
283 0 : return false;
284 : }
285 :
286 : // i24094: Password verification necessary for renaming
287 0 : if ( xModLibContainer.is() && xModLibContainer->hasByName( aLibName ) && !xModLibContainer->isLibraryLoaded( aLibName ) )
288 : {
289 0 : bool bOK = true;
290 : // check password
291 0 : Reference< script::XLibraryContainerPassword > xPasswd( xModLibContainer, UNO_QUERY );
292 0 : if ( xPasswd.is() && xPasswd->isLibraryPasswordProtected( aLibName ) && !xPasswd->isLibraryPasswordVerified( aLibName ) )
293 : {
294 0 : OUString aPassword;
295 0 : Reference< script::XLibraryContainer > xModLibContainer1( xModLibContainer, UNO_QUERY );
296 0 : bOK = QueryPassword( xModLibContainer1, aLibName, aPassword );
297 : }
298 0 : if ( !bOK )
299 0 : return false;
300 : }
301 :
302 : // TODO: check if library is reference/link
303 :
304 0 : return true;
305 : }
306 :
307 0 : bool CheckBox::EditedEntry( SvTreeListEntry* pEntry, const OUString& rNewName )
308 : {
309 0 : bool bValid = rNewName.getLength() <= 30 && IsValidSbxName(rNewName);
310 0 : OUString aOldName( GetEntryText( pEntry, 0 ) );
311 0 : if ( bValid && ( aOldName != rNewName ) )
312 : {
313 : try
314 : {
315 0 : Reference< script::XLibraryContainer2 > xModLibContainer( m_aDocument.getLibraryContainer( E_SCRIPTS ), UNO_QUERY );
316 0 : if ( xModLibContainer.is() )
317 0 : xModLibContainer->renameLibrary( aOldName, rNewName );
318 :
319 0 : Reference< script::XLibraryContainer2 > xDlgLibContainer( m_aDocument.getLibraryContainer( E_DIALOGS ), UNO_QUERY );
320 0 : if ( xDlgLibContainer.is() )
321 0 : xDlgLibContainer->renameLibrary( aOldName, rNewName );
322 :
323 0 : MarkDocumentModified( m_aDocument );
324 0 : if (SfxBindings* pBindings = GetBindingsPtr())
325 : {
326 0 : pBindings->Invalidate( SID_BASICIDE_LIBSELECTOR );
327 0 : pBindings->Update( SID_BASICIDE_LIBSELECTOR );
328 0 : }
329 : }
330 0 : catch (const container::ElementExistException& )
331 : {
332 0 : ScopedVclPtrInstance<MessageDialog>::Create(this, IDE_RESSTR(RID_STR_SBXNAMEALLREADYUSED))->Execute();
333 0 : return false;
334 : }
335 0 : catch (const container::NoSuchElementException& )
336 : {
337 : DBG_UNHANDLED_EXCEPTION();
338 0 : return false;
339 : }
340 : }
341 :
342 0 : if ( !bValid )
343 : {
344 0 : if ( rNewName.getLength() > 30 )
345 0 : ScopedVclPtrInstance<MessageDialog>::Create(this, IDE_RESSTR(RID_STR_LIBNAMETOLONG))->Execute();
346 : else
347 0 : ScopedVclPtrInstance<MessageDialog>::Create(this, IDE_RESSTR(RID_STR_BADSBXNAME))->Execute();
348 : }
349 :
350 0 : return bValid;
351 : }
352 :
353 : // NewObjectDialog
354 0 : IMPL_LINK_NOARG(NewObjectDialog, OkButtonHandler)
355 : {
356 0 : if (IsValidSbxName(m_pEdit->GetText()))
357 0 : EndDialog(1);
358 : else
359 : {
360 0 : ScopedVclPtrInstance<MessageDialog>::Create(this, IDE_RESSTR(RID_STR_BADSBXNAME))->Execute();
361 0 : m_pEdit->GrabFocus();
362 : }
363 0 : return 0;
364 : }
365 :
366 0 : NewObjectDialog::NewObjectDialog(vcl::Window * pParent, ObjectMode::Mode eMode,
367 : bool bCheckName)
368 0 : : ModalDialog(pParent, "NewLibDialog", "modules/BasicIDE/ui/newlibdialog.ui")
369 : {
370 0 : get(m_pOKButton, "ok");
371 0 : get(m_pEdit, "entry");
372 :
373 0 : m_pEdit->GrabFocus();
374 :
375 0 : switch (eMode)
376 : {
377 : case ObjectMode::Library:
378 0 : SetText( IDE_RESSTR(RID_STR_NEWLIB) );
379 0 : break;
380 : case ObjectMode::Module:
381 0 : SetText( IDE_RESSTR(RID_STR_NEWMOD) );
382 0 : break;
383 : case ObjectMode::Method:
384 0 : SetText( IDE_RESSTR(RID_STR_NEWMETH) );
385 0 : break;
386 : case ObjectMode::Dialog:
387 0 : SetText( IDE_RESSTR(RID_STR_NEWDLG) );
388 0 : break;
389 : default:
390 : assert(false);
391 : }
392 :
393 0 : if (bCheckName)
394 0 : m_pOKButton->SetClickHdl(LINK(this, NewObjectDialog, OkButtonHandler));
395 0 : }
396 :
397 0 : NewObjectDialog::~NewObjectDialog()
398 : {
399 0 : disposeOnce();
400 0 : }
401 :
402 0 : void NewObjectDialog::dispose()
403 : {
404 0 : m_pEdit.clear();
405 0 : m_pOKButton.clear();
406 0 : ModalDialog::dispose();
407 0 : }
408 :
409 : // GotoLineDialog
410 0 : GotoLineDialog::GotoLineDialog(vcl::Window * pParent )
411 : : ModalDialog(pParent, "GotoLineDialog",
412 0 : "modules/BasicIDE/ui/gotolinedialog.ui")
413 : {
414 0 : get(m_pEdit, "entry");
415 0 : get(m_pOKButton, "ok");
416 0 : m_pEdit->GrabFocus();
417 0 : m_pOKButton->SetClickHdl(LINK(this, GotoLineDialog, OkButtonHandler));
418 0 : }
419 :
420 0 : GotoLineDialog::~GotoLineDialog()
421 : {
422 0 : disposeOnce();
423 0 : }
424 :
425 0 : void GotoLineDialog::dispose()
426 : {
427 0 : m_pEdit.clear();
428 0 : m_pOKButton.clear();
429 0 : ModalDialog::dispose();
430 0 : }
431 :
432 0 : sal_Int32 GotoLineDialog::GetLineNumber() const
433 : {
434 0 : return m_pEdit->GetText().toInt32();
435 : }
436 :
437 0 : IMPL_LINK_NOARG(GotoLineDialog, OkButtonHandler)
438 : {
439 0 : if ( GetLineNumber() )
440 0 : EndDialog(1);
441 : else
442 0 : m_pEdit->SetText(m_pEdit->GetText(), Selection(0, m_pEdit->GetText().getLength()));
443 0 : return 0;
444 : }
445 :
446 : // ExportDialog
447 0 : IMPL_LINK_NOARG(ExportDialog, OkButtonHandler)
448 : {
449 0 : mbExportAsPackage = m_pExportAsPackageButton->IsChecked();
450 0 : EndDialog(1);
451 0 : return 0;
452 : }
453 :
454 0 : ExportDialog::ExportDialog(vcl::Window * pParent)
455 : : ModalDialog(pParent, "ExportDialog",
456 : "modules/BasicIDE/ui/exportdialog.ui")
457 0 : , mbExportAsPackage(false)
458 : {
459 0 : get(m_pExportAsPackageButton, "extension");
460 0 : get(m_pOKButton, "ok");
461 :
462 0 : m_pExportAsPackageButton->Check();
463 0 : m_pOKButton->SetClickHdl(LINK(this, ExportDialog, OkButtonHandler));
464 0 : }
465 :
466 0 : ExportDialog::~ExportDialog()
467 : {
468 0 : disposeOnce();
469 0 : }
470 :
471 0 : void ExportDialog::dispose()
472 : {
473 0 : m_pExportAsPackageButton.clear();
474 0 : m_pOKButton.clear();
475 0 : ModalDialog::dispose();
476 0 : }
477 :
478 : // LibPage
479 0 : LibPage::LibPage(vcl::Window * pParent)
480 : : TabPage(pParent, "LibPage",
481 : "modules/BasicIDE/ui/libpage.ui")
482 0 : , m_aCurDocument(ScriptDocument::getApplicationScriptDocument())
483 0 : , m_eCurLocation(LIBRARY_LOCATION_UNKNOWN)
484 : {
485 0 : get(m_pBasicsBox, "location");
486 0 : get(m_pLibBox, "library");
487 0 : Size aSize(m_pLibBox->LogicToPixel(Size(130, 87), MAP_APPFONT));
488 0 : m_pLibBox->set_height_request(aSize.Height());
489 0 : m_pLibBox->set_width_request(aSize.Width());
490 0 : get(m_pEditButton, "edit");
491 0 : get(m_pPasswordButton, "password");
492 0 : get(m_pNewLibButton, "new");
493 0 : get(m_pInsertLibButton, "import");
494 0 : get(m_pExportButton, "export");
495 0 : get(m_pDelButton, "delete");
496 :
497 0 : pTabDlg = 0;
498 :
499 0 : m_pEditButton->SetClickHdl( LINK( this, LibPage, ButtonHdl ) );
500 0 : m_pNewLibButton->SetClickHdl( LINK( this, LibPage, ButtonHdl ) );
501 0 : m_pPasswordButton->SetClickHdl( LINK( this, LibPage, ButtonHdl ) );
502 0 : m_pExportButton->SetClickHdl( LINK( this, LibPage, ButtonHdl ) );
503 0 : m_pInsertLibButton->SetClickHdl( LINK( this, LibPage, ButtonHdl ) );
504 0 : m_pDelButton->SetClickHdl( LINK( this, LibPage, ButtonHdl ) );
505 0 : m_pLibBox->SetSelectHdl( LINK( this, LibPage, TreeListHighlightHdl ) );
506 :
507 0 : m_pBasicsBox->SetSelectHdl( LINK( this, LibPage, BasicSelectHdl ) );
508 :
509 0 : m_pLibBox->SetMode(ObjectMode::Module);
510 0 : m_pLibBox->EnableInplaceEditing(true);
511 0 : m_pLibBox->SetStyle( WB_HSCROLL | WB_BORDER | WB_TABSTOP );
512 :
513 0 : long aTabs[] = { 2, 30, 120 };
514 0 : m_pLibBox->SetTabs( aTabs, MAP_PIXEL );
515 :
516 0 : FillListBox();
517 0 : m_pBasicsBox->SelectEntryPos( 0 );
518 0 : SetCurLib();
519 :
520 0 : CheckButtons();
521 0 : }
522 :
523 0 : LibPage::~LibPage()
524 : {
525 0 : disposeOnce();
526 0 : }
527 :
528 0 : void LibPage::dispose()
529 : {
530 0 : if (m_pBasicsBox)
531 : {
532 0 : sal_uInt16 nCount = m_pBasicsBox->GetEntryCount();
533 0 : for ( sal_uInt16 i = 0; i < nCount; ++i )
534 : {
535 0 : DocumentEntry* pEntry = static_cast<DocumentEntry*>(m_pBasicsBox->GetEntryData( i ));
536 0 : delete pEntry;
537 : }
538 : }
539 0 : m_pBasicsBox.clear();
540 0 : m_pLibBox.clear();
541 0 : m_pEditButton.clear();
542 0 : m_pPasswordButton.clear();
543 0 : m_pNewLibButton.clear();
544 0 : m_pInsertLibButton.clear();
545 0 : m_pExportButton.clear();
546 0 : m_pDelButton.clear();
547 0 : pTabDlg.clear();
548 0 : TabPage::dispose();
549 0 : }
550 :
551 0 : void LibPage::CheckButtons()
552 : {
553 0 : SvTreeListEntry* pCur = m_pLibBox->GetCurEntry();
554 0 : if ( pCur )
555 : {
556 0 : OUString aLibName = SvTabListBox::GetEntryText( pCur, 0 );
557 0 : Reference< script::XLibraryContainer2 > xModLibContainer( m_aCurDocument.getLibraryContainer( E_SCRIPTS ), UNO_QUERY );
558 0 : Reference< script::XLibraryContainer2 > xDlgLibContainer( m_aCurDocument.getLibraryContainer( E_DIALOGS ), UNO_QUERY );
559 :
560 0 : if ( m_eCurLocation == LIBRARY_LOCATION_SHARE )
561 : {
562 0 : m_pPasswordButton->Disable();
563 0 : m_pNewLibButton->Disable();
564 0 : m_pInsertLibButton->Disable();
565 0 : m_pDelButton->Disable();
566 : }
567 0 : else if ( aLibName.equalsIgnoreAsciiCase( "Standard" ) )
568 : {
569 0 : m_pPasswordButton->Disable();
570 0 : m_pNewLibButton->Enable();
571 0 : m_pInsertLibButton->Enable();
572 0 : m_pExportButton->Disable();
573 0 : m_pDelButton->Disable();
574 : }
575 0 : else if ( ( xModLibContainer.is() && xModLibContainer->hasByName( aLibName ) && xModLibContainer->isLibraryReadOnly( aLibName ) ) ||
576 0 : ( xDlgLibContainer.is() && xDlgLibContainer->hasByName( aLibName ) && xDlgLibContainer->isLibraryReadOnly( aLibName ) ) )
577 : {
578 0 : m_pPasswordButton->Disable();
579 0 : m_pNewLibButton->Enable();
580 0 : m_pInsertLibButton->Enable();
581 0 : if ( ( xModLibContainer.is() && xModLibContainer->hasByName( aLibName ) && xModLibContainer->isLibraryReadOnly( aLibName ) && !xModLibContainer->isLibraryLink( aLibName ) ) ||
582 0 : ( xDlgLibContainer.is() && xDlgLibContainer->hasByName( aLibName ) && xDlgLibContainer->isLibraryReadOnly( aLibName ) && !xDlgLibContainer->isLibraryLink( aLibName ) ) )
583 0 : m_pDelButton->Disable();
584 : else
585 0 : m_pDelButton->Enable();
586 : }
587 : else
588 : {
589 0 : if ( xModLibContainer.is() && !xModLibContainer->hasByName( aLibName ) )
590 0 : m_pPasswordButton->Disable();
591 : else
592 0 : m_pPasswordButton->Enable();
593 :
594 0 : m_pNewLibButton->Enable();
595 0 : m_pInsertLibButton->Enable();
596 0 : m_pExportButton->Enable();
597 0 : m_pDelButton->Enable();
598 0 : }
599 : }
600 0 : }
601 :
602 0 : void LibPage::ActivatePage()
603 : {
604 0 : SetCurLib();
605 0 : }
606 :
607 0 : void LibPage::DeactivatePage()
608 : {
609 0 : }
610 :
611 0 : IMPL_LINK( LibPage, TreeListHighlightHdl, SvTreeListBox *, pBox )
612 : {
613 0 : if ( pBox->IsSelected( pBox->GetHdlEntry() ) )
614 0 : CheckButtons();
615 0 : return 0;
616 : }
617 :
618 0 : IMPL_LINK( LibPage, BasicSelectHdl, ListBox *, pBox )
619 : {
620 : (void)pBox;
621 0 : SetCurLib();
622 0 : CheckButtons();
623 0 : return 0;
624 : }
625 :
626 0 : IMPL_LINK( LibPage, ButtonHdl, Button *, pButton )
627 : {
628 0 : if (pButton == m_pEditButton)
629 : {
630 0 : SfxAllItemSet aArgs( SfxGetpApp()->GetPool() );
631 0 : SfxRequest aRequest( SID_BASICIDE_APPEAR, SfxCallMode::SYNCHRON, aArgs );
632 0 : SfxGetpApp()->ExecuteSlot( aRequest );
633 :
634 0 : SfxUsrAnyItem aDocItem( SID_BASICIDE_ARG_DOCUMENT_MODEL, makeAny( m_aCurDocument.getDocumentOrNull() ) );
635 0 : SvTreeListEntry* pCurEntry = m_pLibBox->GetCurEntry();
636 : DBG_ASSERT( pCurEntry, "Entry?!" );
637 0 : OUString aLibName( SvTabListBox::GetEntryText( pCurEntry, 0 ) );
638 0 : SfxStringItem aLibNameItem( SID_BASICIDE_ARG_LIBNAME, aLibName );
639 0 : if (SfxDispatcher* pDispatcher = GetDispatcher())
640 : pDispatcher->Execute( SID_BASICIDE_LIBSELECTED,
641 0 : SfxCallMode::ASYNCHRON, &aDocItem, &aLibNameItem, 0L );
642 0 : EndTabDialog( 1 );
643 0 : return 0;
644 : }
645 0 : else if (pButton == m_pNewLibButton)
646 0 : NewLib();
647 0 : else if (pButton == m_pInsertLibButton)
648 0 : InsertLib();
649 0 : else if (pButton == m_pExportButton)
650 0 : Export();
651 0 : else if (pButton == m_pDelButton)
652 0 : DeleteCurrent();
653 0 : else if (pButton == m_pPasswordButton)
654 : {
655 0 : SvTreeListEntry* pCurEntry = m_pLibBox->GetCurEntry();
656 0 : OUString aLibName( SvTabListBox::GetEntryText( pCurEntry, 0 ) );
657 :
658 : // load module library (if not loaded)
659 0 : Reference< script::XLibraryContainer > xModLibContainer = m_aCurDocument.getLibraryContainer( E_SCRIPTS );
660 0 : if ( xModLibContainer.is() && xModLibContainer->hasByName( aLibName ) && !xModLibContainer->isLibraryLoaded( aLibName ) )
661 : {
662 0 : Shell* pShell = GetShell();
663 0 : if (pShell)
664 0 : pShell->GetViewFrame()->GetWindow().EnterWait();
665 0 : xModLibContainer->loadLibrary( aLibName );
666 0 : if (pShell)
667 0 : pShell->GetViewFrame()->GetWindow().LeaveWait();
668 : }
669 :
670 : // load dialog library (if not loaded)
671 0 : Reference< script::XLibraryContainer > xDlgLibContainer = m_aCurDocument.getLibraryContainer( E_DIALOGS );
672 0 : if ( xDlgLibContainer.is() && xDlgLibContainer->hasByName( aLibName ) && !xDlgLibContainer->isLibraryLoaded( aLibName ) )
673 : {
674 0 : Shell* pShell = GetShell();
675 0 : if (pShell)
676 0 : pShell->GetViewFrame()->GetWindow().EnterWait();
677 0 : xDlgLibContainer->loadLibrary( aLibName );
678 0 : if (pShell)
679 0 : pShell->GetViewFrame()->GetWindow().LeaveWait();
680 : }
681 :
682 : // check, if library is password protected
683 0 : if ( xModLibContainer.is() && xModLibContainer->hasByName( aLibName ) )
684 : {
685 0 : Reference< script::XLibraryContainerPassword > xPasswd( xModLibContainer, UNO_QUERY );
686 0 : if ( xPasswd.is() )
687 : {
688 0 : bool const bProtected = xPasswd->isLibraryPasswordProtected( aLibName );
689 :
690 : // change password dialog
691 0 : VclPtrInstance< SvxPasswordDialog > pDlg( this, true, !bProtected );
692 0 : pDlg->SetCheckPasswordHdl( LINK( this, LibPage, CheckPasswordHdl ) );
693 :
694 0 : if ( pDlg->Execute() == RET_OK )
695 : {
696 0 : bool const bNewProtected = xPasswd->isLibraryPasswordProtected( aLibName );
697 :
698 0 : if ( bNewProtected != bProtected )
699 : {
700 0 : sal_uLong nPos = (sal_uLong)m_pLibBox->GetModel()->GetAbsPos( pCurEntry );
701 0 : m_pLibBox->GetModel()->Remove( pCurEntry );
702 0 : ImpInsertLibEntry( aLibName, nPos );
703 0 : m_pLibBox->SetCurEntry( m_pLibBox->GetEntry( nPos ) );
704 : }
705 :
706 0 : MarkDocumentModified( m_aCurDocument );
707 0 : }
708 0 : }
709 0 : }
710 : }
711 0 : CheckButtons();
712 0 : return 0;
713 : }
714 :
715 0 : IMPL_LINK( LibPage, CheckPasswordHdl, SvxPasswordDialog *, pDlg )
716 : {
717 0 : long nRet = 0;
718 :
719 0 : SvTreeListEntry* pCurEntry = m_pLibBox->GetCurEntry();
720 0 : OUString aLibName( SvTabListBox::GetEntryText( pCurEntry, 0 ) );
721 0 : Reference< script::XLibraryContainerPassword > xPasswd( m_aCurDocument.getLibraryContainer( E_SCRIPTS ), UNO_QUERY );
722 :
723 0 : if ( xPasswd.is() )
724 : {
725 : try
726 : {
727 0 : OUString aOldPassword( pDlg->GetOldPassword() );
728 0 : OUString aNewPassword( pDlg->GetNewPassword() );
729 0 : xPasswd->changeLibraryPassword( aLibName, aOldPassword, aNewPassword );
730 0 : nRet = 1;
731 : }
732 0 : catch (...)
733 : {
734 : }
735 : }
736 :
737 0 : return nRet;
738 : }
739 :
740 0 : void LibPage::NewLib()
741 : {
742 0 : createLibImpl( static_cast<vcl::Window*>( this ), m_aCurDocument, m_pLibBox, NULL);
743 0 : }
744 :
745 0 : void LibPage::InsertLib()
746 : {
747 0 : Reference< uno::XComponentContext > xContext( ::comphelper::getProcessComponentContext() );
748 : // file open dialog
749 0 : Reference < XFilePicker3 > xFP = FilePicker::createWithMode(xContext, TemplateDescription::FILEOPEN_SIMPLE);
750 0 : xFP->setTitle(IDEResId(RID_STR_APPENDLIBS).toString());
751 :
752 : // filter
753 0 : OUString aTitle(IDEResId(RID_STR_BASIC).toString());
754 0 : OUString aFilter;
755 0 : aFilter = "*.sbl;*.xlc;*.xlb" ; // library files
756 0 : aFilter += ";*.sdw;*.sxw;*.odt" ; // text
757 0 : aFilter += ";*.vor;*.stw;*.ott" ; // text template
758 0 : aFilter += ";*.sgl;*.sxg;*.odm" ; // master document
759 0 : aFilter += ";*.oth" ; // html document template
760 0 : aFilter += ";*.sdc;*.sxc;*.ods" ; // spreadsheet
761 0 : aFilter += ";*.stc;*.ots" ; // spreadsheet template
762 0 : aFilter += ";*.sda;*.sxd;*.odg" ; // drawing
763 0 : aFilter += ";*.std;*.otg" ; // drawing template
764 0 : aFilter += ";*.sdd;*.sxi;*.odp" ; // presentation
765 0 : aFilter += ";*.sti;*.otp" ; // presentation template
766 0 : aFilter += ";*.sxm;*.odf" ; // formula
767 0 : xFP->appendFilter( aTitle, aFilter );
768 :
769 : // set display directory and filter
770 0 : OUString aPath(GetExtraData()->GetAddLibPath());
771 0 : if ( !aPath.isEmpty() )
772 0 : xFP->setDisplayDirectory( aPath );
773 : else
774 : {
775 : // macro path from configuration management
776 0 : xFP->setDisplayDirectory( SvtPathOptions().GetWorkPath() );
777 : }
778 :
779 0 : OUString aLastFilter(GetExtraData()->GetAddLibFilter());
780 0 : if ( !aLastFilter.isEmpty() )
781 0 : xFP->setCurrentFilter( aLastFilter );
782 : else
783 0 : xFP->setCurrentFilter( IDE_RESSTR(RID_STR_BASIC) );
784 :
785 0 : if ( xFP->execute() == RET_OK )
786 : {
787 0 : GetExtraData()->SetAddLibPath( xFP->getDisplayDirectory() );
788 0 : GetExtraData()->SetAddLibFilter( xFP->getCurrentFilter() );
789 :
790 : // library containers for import
791 0 : Reference< script::XLibraryContainer2 > xModLibContImport;
792 0 : Reference< script::XLibraryContainer2 > xDlgLibContImport;
793 :
794 : // file URLs
795 0 : Sequence< OUString > aFiles = xFP->getFiles();
796 0 : INetURLObject aURLObj( aFiles[0] );
797 0 : INetURLObject aModURLObj( aURLObj );
798 0 : INetURLObject aDlgURLObj( aURLObj );
799 :
800 0 : OUString aBase = aURLObj.getBase();
801 0 : OUString aModBase( "script" );
802 0 : OUString aDlgBase( "dialog" );
803 :
804 0 : if ( aBase == aModBase || aBase == aDlgBase )
805 : {
806 0 : aModURLObj.setBase( aModBase );
807 0 : aDlgURLObj.setBase( aDlgBase );
808 : }
809 :
810 0 : Reference< XSimpleFileAccess3 > xSFA( SimpleFileAccess::create(comphelper::getProcessComponentContext()) );
811 :
812 0 : OUString aModURL( aModURLObj.GetMainURL( INetURLObject::NO_DECODE ) );
813 0 : if ( xSFA->exists( aModURL ) )
814 : {
815 0 : xModLibContImport = Reference< script::XLibraryContainer2 >(
816 0 : script::DocumentScriptLibraryContainer::createWithURL(xContext, aModURL), UNO_QUERY );
817 : }
818 :
819 0 : OUString aDlgURL( aDlgURLObj.GetMainURL( INetURLObject::NO_DECODE ) );
820 0 : if ( xSFA->exists( aDlgURL ) )
821 : {
822 0 : xDlgLibContImport = Reference< script::XLibraryContainer2 >(
823 0 : script::DocumentDialogLibraryContainer::createWithURL(xContext, aDlgURL), UNO_QUERY );
824 : }
825 :
826 0 : if ( xModLibContImport.is() || xDlgLibContImport.is() )
827 : {
828 0 : VclPtr<LibDialog> pLibDlg;
829 :
830 0 : Reference< script::XLibraryContainer > xModLibContImp( xModLibContImport, UNO_QUERY );
831 0 : Reference< script::XLibraryContainer > xDlgLibContImp( xDlgLibContImport, UNO_QUERY );
832 0 : Sequence< OUString > aLibNames = GetMergedLibraryNames( xModLibContImp, xDlgLibContImp );
833 0 : sal_Int32 nLibCount = aLibNames.getLength();
834 0 : const OUString* pLibNames = aLibNames.getConstArray();
835 0 : for ( sal_Int32 i = 0 ; i < nLibCount ; i++ )
836 : {
837 : // library import dialog
838 0 : if ( !pLibDlg )
839 : {
840 0 : pLibDlg.reset(VclPtr<LibDialog>::Create( this ));
841 0 : pLibDlg->SetStorageName( aURLObj.getName() );
842 0 : pLibDlg->GetLibBox().SetMode(ObjectMode::Library);
843 : }
844 :
845 : // libbox entries
846 0 : OUString aLibName( pLibNames[ i ] );
847 0 : if ( !( ( xModLibContImport.is() && xModLibContImport->hasByName( aLibName ) && xModLibContImport->isLibraryLink( aLibName ) ) ||
848 0 : ( xDlgLibContImport.is() && xDlgLibContImport->hasByName( aLibName ) && xDlgLibContImport->isLibraryLink( aLibName ) ) ) )
849 : {
850 0 : SvTreeListEntry* pEntry = pLibDlg->GetLibBox().DoInsertEntry( aLibName );
851 0 : sal_uInt16 nPos = (sal_uInt16) pLibDlg->GetLibBox().GetModel()->GetAbsPos( pEntry );
852 0 : pLibDlg->GetLibBox().CheckEntryPos(nPos);
853 : }
854 0 : }
855 :
856 0 : if ( !pLibDlg )
857 0 : ScopedVclPtrInstance<MessageDialog>::Create(this, IDE_RESSTR(RID_STR_NOLIBINSTORAGE), VCL_MESSAGE_INFO)->Execute();
858 : else
859 : {
860 0 : bool bChanges = false;
861 0 : OUString aExtension( aURLObj.getExtension() );
862 0 : OUString aLibExtension( "xlb" );
863 0 : OUString aContExtension( "xlc" );
864 :
865 : // disable reference checkbox for documents and sbls
866 0 : if ( aExtension != aLibExtension && aExtension != aContExtension )
867 0 : pLibDlg->EnableReference(false);
868 :
869 0 : if ( pLibDlg->Execute() )
870 : {
871 0 : sal_uLong nNewPos = m_pLibBox->GetEntryCount();
872 0 : bool bRemove = false;
873 0 : bool bReplace = pLibDlg->IsReplace();
874 0 : bool bReference = pLibDlg->IsReference();
875 0 : for ( sal_uLong nLib = 0; nLib < pLibDlg->GetLibBox().GetEntryCount(); nLib++ )
876 : {
877 0 : if ( pLibDlg->GetLibBox().IsChecked( nLib ) )
878 : {
879 0 : SvTreeListEntry* pEntry = pLibDlg->GetLibBox().GetEntry( nLib );
880 : DBG_ASSERT( pEntry, "Entry?!" );
881 0 : OUString aLibName( SvTabListBox::GetEntryText( pEntry, 0 ) );
882 0 : Reference< script::XLibraryContainer2 > xModLibContainer( m_aCurDocument.getLibraryContainer( E_SCRIPTS ), UNO_QUERY );
883 0 : Reference< script::XLibraryContainer2 > xDlgLibContainer( m_aCurDocument.getLibraryContainer( E_DIALOGS ), UNO_QUERY );
884 :
885 : // check, if the library is already existing
886 0 : if ( ( xModLibContainer.is() && xModLibContainer->hasByName( aLibName ) ) ||
887 0 : ( xDlgLibContainer.is() && xDlgLibContainer->hasByName( aLibName ) ) )
888 : {
889 0 : if ( bReplace )
890 : {
891 : // check, if the library is the Standard library
892 0 : if ( aLibName == "Standard" )
893 : {
894 0 : ScopedVclPtrInstance<MessageDialog>::Create(this, IDE_RESSTR(RID_STR_REPLACESTDLIB))->Execute();
895 0 : continue;
896 : }
897 :
898 : // check, if the library is readonly and not a link
899 0 : if ( ( xModLibContainer.is() && xModLibContainer->hasByName( aLibName ) && xModLibContainer->isLibraryReadOnly( aLibName ) && !xModLibContainer->isLibraryLink( aLibName ) ) ||
900 0 : ( xDlgLibContainer.is() && xDlgLibContainer->hasByName( aLibName ) && xDlgLibContainer->isLibraryReadOnly( aLibName ) && !xDlgLibContainer->isLibraryLink( aLibName ) ) )
901 : {
902 0 : OUString aErrStr( IDE_RESSTR(RID_STR_REPLACELIB) );
903 0 : aErrStr = aErrStr.replaceAll("XX", aLibName);
904 0 : aErrStr += "\n";
905 0 : aErrStr += IDE_RESSTR(RID_STR_LIBISREADONLY);
906 0 : ScopedVclPtrInstance<MessageDialog>::Create(this, aErrStr)->Execute();
907 0 : continue;
908 : }
909 :
910 : // remove existing libraries
911 0 : bRemove = true;
912 : }
913 : else
914 : {
915 0 : OUString aErrStr;
916 0 : if ( bReference )
917 0 : aErrStr = IDE_RESSTR(RID_STR_REFNOTPOSSIBLE);
918 : else
919 0 : aErrStr = IDE_RESSTR(RID_STR_IMPORTNOTPOSSIBLE);
920 0 : aErrStr = aErrStr.replaceAll("XX", aLibName);
921 0 : aErrStr += "\n" ;
922 0 : aErrStr += IDE_RESSTR(RID_STR_SBXNAMEALLREADYUSED);
923 0 : ScopedVclPtrInstance<MessageDialog>::Create(this, aErrStr)->Execute();
924 0 : continue;
925 : }
926 : }
927 :
928 : // check, if the library is password protected
929 0 : bool bOK = false;
930 0 : OUString aPassword;
931 0 : if ( xModLibContImport.is() && xModLibContImport->hasByName( aLibName ) )
932 : {
933 0 : Reference< script::XLibraryContainerPassword > xPasswd( xModLibContImport, UNO_QUERY );
934 0 : if ( xPasswd.is() && xPasswd->isLibraryPasswordProtected( aLibName ) && !xPasswd->isLibraryPasswordVerified( aLibName ) && !bReference )
935 : {
936 0 : bOK = QueryPassword( xModLibContImp, aLibName, aPassword, true, true );
937 :
938 0 : if ( !bOK )
939 : {
940 0 : OUString aErrStr( IDE_RESSTR(RID_STR_NOIMPORT) );
941 0 : aErrStr = aErrStr.replaceAll("XX", aLibName);
942 0 : ScopedVclPtrInstance<MessageDialog>::Create(this, aErrStr)->Execute();
943 0 : continue;
944 : }
945 0 : }
946 : }
947 :
948 : // remove existing libraries
949 0 : if ( bRemove )
950 : {
951 : // remove listbox entry
952 0 : SvTreeListEntry* pEntry_ = m_pLibBox->FindEntry( aLibName );
953 0 : if ( pEntry_ )
954 0 : m_pLibBox->SvTreeListBox::GetModel()->Remove( pEntry_ );
955 :
956 : // remove module library
957 0 : if ( xModLibContainer.is() && xModLibContainer->hasByName( aLibName ) )
958 0 : xModLibContainer->removeLibrary( aLibName );
959 :
960 : // remove dialog library
961 0 : if ( xDlgLibContainer.is() && xDlgLibContainer->hasByName( aLibName ) )
962 0 : xDlgLibContainer->removeLibrary( aLibName );
963 : }
964 :
965 : // copy module library
966 0 : if ( xModLibContImport.is() && xModLibContImport->hasByName( aLibName ) && xModLibContainer.is() && !xModLibContainer->hasByName( aLibName ) )
967 : {
968 0 : Reference< container::XNameContainer > xModLib;
969 0 : if ( bReference )
970 : {
971 : // storage URL
972 0 : INetURLObject aModStorageURLObj( aModURLObj );
973 0 : if ( aExtension == aContExtension )
974 : {
975 0 : sal_Int32 nCount = aModStorageURLObj.getSegmentCount();
976 0 : aModStorageURLObj.insertName( aLibName, false, nCount-1 );
977 0 : aModStorageURLObj.setExtension( aLibExtension );
978 0 : aModStorageURLObj.setFinalSlash();
979 : }
980 0 : OUString aModStorageURL( aModStorageURLObj.GetMainURL( INetURLObject::NO_DECODE ) );
981 :
982 : // create library link
983 0 : xModLib = Reference< container::XNameContainer >( xModLibContainer->createLibraryLink( aLibName, aModStorageURL, true ), UNO_QUERY);
984 : }
985 : else
986 : {
987 : // create library
988 0 : xModLib = xModLibContainer->createLibrary( aLibName );
989 0 : if ( xModLib.is() )
990 : {
991 : // get import library
992 0 : Reference< container::XNameContainer > xModLibImport;
993 0 : Any aElement = xModLibContImport->getByName( aLibName );
994 0 : aElement >>= xModLibImport;
995 :
996 0 : if ( xModLibImport.is() )
997 : {
998 : // load library
999 0 : if ( !xModLibContImport->isLibraryLoaded( aLibName ) )
1000 0 : xModLibContImport->loadLibrary( aLibName );
1001 :
1002 : // copy all modules
1003 0 : Sequence< OUString > aModNames = xModLibImport->getElementNames();
1004 0 : sal_Int32 nModCount = aModNames.getLength();
1005 0 : const OUString* pModNames = aModNames.getConstArray();
1006 0 : for ( sal_Int32 i = 0 ; i < nModCount ; i++ )
1007 : {
1008 0 : OUString aModName( pModNames[ i ] );
1009 0 : Any aElement_ = xModLibImport->getByName( aModName );
1010 0 : xModLib->insertByName( aModName, aElement_ );
1011 0 : }
1012 :
1013 : // set password
1014 0 : if ( bOK )
1015 : {
1016 0 : Reference< script::XLibraryContainerPassword > xPasswd( xModLibContainer, UNO_QUERY );
1017 0 : if ( xPasswd.is() )
1018 : {
1019 : try
1020 : {
1021 0 : OUString _aPassword( aPassword );
1022 0 : xPasswd->changeLibraryPassword( aLibName, OUString(), _aPassword );
1023 : }
1024 0 : catch (...)
1025 : {
1026 : }
1027 0 : }
1028 0 : }
1029 0 : }
1030 : }
1031 0 : }
1032 : }
1033 :
1034 : // copy dialog library
1035 0 : if ( xDlgLibContImport.is() && xDlgLibContImport->hasByName( aLibName ) && xDlgLibContainer.is() && !xDlgLibContainer->hasByName( aLibName ) )
1036 : {
1037 0 : Reference< container::XNameContainer > xDlgLib;
1038 0 : if ( bReference )
1039 : {
1040 : // storage URL
1041 0 : INetURLObject aDlgStorageURLObj( aDlgURLObj );
1042 0 : if ( aExtension == aContExtension )
1043 : {
1044 0 : sal_Int32 nCount = aDlgStorageURLObj.getSegmentCount();
1045 0 : aDlgStorageURLObj.insertName( aLibName, false, nCount - 1 );
1046 0 : aDlgStorageURLObj.setExtension( aLibExtension );
1047 0 : aDlgStorageURLObj.setFinalSlash();
1048 : }
1049 0 : OUString aDlgStorageURL( aDlgStorageURLObj.GetMainURL( INetURLObject::NO_DECODE ) );
1050 :
1051 : // create library link
1052 0 : xDlgLib = Reference< container::XNameContainer >( xDlgLibContainer->createLibraryLink( aLibName, aDlgStorageURL, true ), UNO_QUERY);
1053 : }
1054 : else
1055 : {
1056 : // create library
1057 0 : xDlgLib = xDlgLibContainer->createLibrary( aLibName );
1058 0 : if ( xDlgLib.is() )
1059 : {
1060 : // get import library
1061 0 : Reference< container::XNameContainer > xDlgLibImport;
1062 0 : Any aElement = xDlgLibContImport->getByName( aLibName );
1063 0 : aElement >>= xDlgLibImport;
1064 :
1065 0 : if ( xDlgLibImport.is() )
1066 : {
1067 : // load library
1068 0 : if ( !xDlgLibContImport->isLibraryLoaded( aLibName ) )
1069 0 : xDlgLibContImport->loadLibrary( aLibName );
1070 :
1071 : // copy all dialogs
1072 0 : Sequence< OUString > aDlgNames = xDlgLibImport->getElementNames();
1073 0 : sal_Int32 nDlgCount = aDlgNames.getLength();
1074 0 : const OUString* pDlgNames = aDlgNames.getConstArray();
1075 0 : for ( sal_Int32 i = 0 ; i < nDlgCount ; i++ )
1076 : {
1077 0 : OUString aDlgName( pDlgNames[ i ] );
1078 0 : Any aElement_ = xDlgLibImport->getByName( aDlgName );
1079 0 : xDlgLib->insertByName( aDlgName, aElement_ );
1080 0 : }
1081 0 : }
1082 : }
1083 0 : }
1084 : }
1085 :
1086 : // insert listbox entry
1087 0 : ImpInsertLibEntry( aLibName, m_pLibBox->GetEntryCount() );
1088 0 : bChanges = true;
1089 : }
1090 : }
1091 :
1092 0 : SvTreeListEntry* pFirstNew = m_pLibBox->GetEntry( nNewPos );
1093 0 : if ( pFirstNew )
1094 0 : m_pLibBox->SetCurEntry( pFirstNew );
1095 : }
1096 :
1097 0 : pLibDlg.reset();
1098 0 : if ( bChanges )
1099 0 : MarkDocumentModified( m_aCurDocument );
1100 0 : }
1101 0 : }
1102 0 : }
1103 0 : }
1104 :
1105 0 : void LibPage::Export()
1106 : {
1107 0 : SvTreeListEntry* pCurEntry = m_pLibBox->GetCurEntry();
1108 0 : OUString aLibName( SvTabListBox::GetEntryText( pCurEntry, 0 ) );
1109 :
1110 : // Password verification
1111 0 : OUString aOULibName( aLibName );
1112 0 : Reference< script::XLibraryContainer2 > xModLibContainer( m_aCurDocument.getLibraryContainer( E_SCRIPTS ), UNO_QUERY );
1113 :
1114 0 : if ( xModLibContainer.is() && xModLibContainer->hasByName( aOULibName ) && !xModLibContainer->isLibraryLoaded( aOULibName ) )
1115 : {
1116 0 : bool bOK = true;
1117 :
1118 : // check password
1119 0 : Reference< script::XLibraryContainerPassword > xPasswd( xModLibContainer, UNO_QUERY );
1120 0 : if ( xPasswd.is() && xPasswd->isLibraryPasswordProtected( aOULibName ) && !xPasswd->isLibraryPasswordVerified( aOULibName ) )
1121 : {
1122 0 : OUString aPassword;
1123 0 : Reference< script::XLibraryContainer > xModLibContainer1( xModLibContainer, UNO_QUERY );
1124 0 : bOK = QueryPassword( xModLibContainer1, aLibName, aPassword );
1125 : }
1126 0 : if ( !bOK )
1127 0 : return;
1128 : }
1129 :
1130 0 : ScopedVclPtrInstance< ExportDialog > aNewDlg(this);
1131 0 : if (aNewDlg->Execute() == RET_OK)
1132 : {
1133 : try
1134 : {
1135 0 : if (aNewDlg->isExportAsPackage())
1136 0 : ExportAsPackage( aLibName );
1137 : else
1138 0 : ExportAsBasic( aLibName );
1139 : }
1140 0 : catch(const util::VetoException& ) // user cancled operation
1141 : {
1142 : }
1143 0 : }
1144 : }
1145 :
1146 0 : void LibPage::implExportLib( const OUString& aLibName, const OUString& aTargetURL,
1147 : const Reference< task::XInteractionHandler >& Handler )
1148 : {
1149 0 : OUString aOULibName( aLibName );
1150 : Reference< script::XLibraryContainerExport > xModLibContainerExport
1151 0 : ( m_aCurDocument.getLibraryContainer( E_SCRIPTS ), UNO_QUERY );
1152 : Reference< script::XLibraryContainerExport > xDlgLibContainerExport
1153 0 : ( m_aCurDocument.getLibraryContainer( E_DIALOGS ), UNO_QUERY );
1154 0 : if ( xModLibContainerExport.is() )
1155 0 : xModLibContainerExport->exportLibrary( aOULibName, aTargetURL, Handler );
1156 :
1157 0 : if (!xDlgLibContainerExport.is())
1158 0 : return;
1159 0 : Reference<container::XNameAccess> xNameAcc(xDlgLibContainerExport, UNO_QUERY);
1160 0 : if (!xNameAcc.is())
1161 0 : return;
1162 0 : if (!xNameAcc->hasByName(aOULibName))
1163 0 : return;
1164 0 : xDlgLibContainerExport->exportLibrary(aOULibName, aTargetURL, Handler);
1165 : }
1166 :
1167 : // Implementation XCommandEnvironment
1168 : typedef cppu::WeakImplHelper1< XCommandEnvironment > LibCommandEnvironmentHelper;
1169 :
1170 0 : class OLibCommandEnvironment : public LibCommandEnvironmentHelper
1171 : {
1172 : Reference< task::XInteractionHandler > mxInteraction;
1173 :
1174 : public:
1175 0 : explicit OLibCommandEnvironment(const Reference<task::XInteractionHandler>& xInteraction)
1176 0 : : mxInteraction( xInteraction )
1177 0 : {}
1178 :
1179 : // Methods
1180 : virtual Reference< task::XInteractionHandler > SAL_CALL getInteractionHandler()
1181 : throw(RuntimeException, std::exception) SAL_OVERRIDE;
1182 : virtual Reference< XProgressHandler > SAL_CALL getProgressHandler()
1183 : throw(RuntimeException, std::exception) SAL_OVERRIDE;
1184 : };
1185 :
1186 0 : Reference< task::XInteractionHandler > OLibCommandEnvironment::getInteractionHandler()
1187 : throw(RuntimeException, std::exception)
1188 : {
1189 0 : return mxInteraction;
1190 : }
1191 :
1192 0 : Reference< XProgressHandler > OLibCommandEnvironment::getProgressHandler()
1193 : throw(RuntimeException, std::exception)
1194 : {
1195 0 : Reference< XProgressHandler > xRet;
1196 0 : return xRet;
1197 : }
1198 :
1199 0 : void LibPage::ExportAsPackage( const OUString& aLibName )
1200 : {
1201 : // file open dialog
1202 0 : Reference< uno::XComponentContext > xContext( ::comphelper::getProcessComponentContext() );
1203 0 : Reference< task::XInteractionHandler2 > xHandler( task::InteractionHandler::createWithParent(xContext, 0) );
1204 0 : Reference< XSimpleFileAccess3 > xSFA = SimpleFileAccess::create(xContext);
1205 :
1206 0 : Reference < XFilePicker3 > xFP = FilePicker::createWithMode(xContext, TemplateDescription::FILESAVE_SIMPLE);
1207 :
1208 0 : xFP->setTitle(IDEResId(RID_STR_EXPORTPACKAGE).toString());
1209 :
1210 : // filter
1211 0 : OUString aTitle(IDEResId(RID_STR_PACKAGE_BUNDLE).toString());
1212 0 : OUString aFilter;
1213 0 : aFilter = "*.oxt" ; // library files
1214 0 : xFP->appendFilter( aTitle, aFilter );
1215 :
1216 : // set display directory and filter
1217 0 : OUString aPath = GetExtraData()->GetAddLibPath();
1218 0 : if ( !aPath.isEmpty() )
1219 : {
1220 0 : xFP->setDisplayDirectory( aPath );
1221 : }
1222 : else
1223 : {
1224 : // macro path from configuration management
1225 0 : xFP->setDisplayDirectory( SvtPathOptions().GetWorkPath() );
1226 : }
1227 0 : xFP->setCurrentFilter( aTitle );
1228 :
1229 0 : if ( xFP->execute() == RET_OK )
1230 : {
1231 0 : GetExtraData()->SetAddLibPath(xFP->getDisplayDirectory());
1232 :
1233 0 : Sequence< OUString > aFiles = xFP->getFiles();
1234 0 : INetURLObject aURL( aFiles[0] );
1235 0 : if( aURL.getExtension().isEmpty() )
1236 0 : aURL.setExtension( "oxt" );
1237 :
1238 0 : OUString aPackageURL( aURL.GetMainURL( INetURLObject::NO_DECODE ) );
1239 :
1240 0 : OUString aTmpPath = SvtPathOptions().GetTempPath();
1241 0 : INetURLObject aInetObj( aTmpPath );
1242 0 : aInetObj.insertName( aLibName, true, INetURLObject::LAST_SEGMENT, true, INetURLObject::ENCODE_ALL );
1243 0 : OUString aSourcePath = aInetObj.GetMainURL( INetURLObject::NO_DECODE );
1244 0 : if( xSFA->exists( aSourcePath ) )
1245 0 : xSFA->kill( aSourcePath );
1246 0 : Reference< task::XInteractionHandler > xDummyHandler( new DummyInteractionHandler( xHandler ) );
1247 0 : implExportLib( aLibName, aTmpPath, xDummyHandler );
1248 :
1249 : Reference< XCommandEnvironment > xCmdEnv =
1250 : static_cast<XCommandEnvironment*>(
1251 : new OLibCommandEnvironment(
1252 : Reference< task::XInteractionHandler >(
1253 0 : xHandler, UNO_QUERY ) ) );
1254 :
1255 0 : ::ucbhelper::Content sourceContent( aSourcePath, xCmdEnv, comphelper::getProcessComponentContext() );
1256 :
1257 0 : OUString destFolder = "vnd.sun.star.zip://" +
1258 : ::rtl::Uri::encode( aPackageURL,
1259 : rtl_UriCharClassRegName,
1260 : rtl_UriEncodeIgnoreEscapes,
1261 0 : RTL_TEXTENCODING_UTF8 ) +
1262 0 : "/";
1263 :
1264 0 : if( xSFA->exists( aPackageURL ) )
1265 0 : xSFA->kill( aPackageURL );
1266 :
1267 0 : ::ucbhelper::Content destFolderContent( destFolder, xCmdEnv, comphelper::getProcessComponentContext() );
1268 : destFolderContent.transferContent(
1269 : sourceContent, ::ucbhelper::InsertOperation_COPY,
1270 0 : OUString(), NameClash::OVERWRITE );
1271 :
1272 0 : INetURLObject aMetaInfInetObj( aTmpPath );
1273 : aMetaInfInetObj.insertName( "META-INF",
1274 0 : true, INetURLObject::LAST_SEGMENT, true, INetURLObject::ENCODE_ALL );
1275 0 : OUString aMetaInfFolder = aMetaInfInetObj.GetMainURL( INetURLObject::NO_DECODE );
1276 0 : if( xSFA->exists( aMetaInfFolder ) )
1277 0 : xSFA->kill( aMetaInfFolder );
1278 0 : xSFA->createFolder( aMetaInfFolder );
1279 :
1280 0 : ::std::vector< Sequence<beans::PropertyValue> > manifest;
1281 0 : const OUString strMediaType = "MediaType" ;
1282 0 : const OUString strFullPath = "FullPath" ;
1283 0 : const OUString strBasicMediaType = "application/vnd.sun.star.basic-library" ;
1284 :
1285 0 : OUString fullPath = aLibName;
1286 0 : fullPath += "/" ;
1287 : auto attribs(::comphelper::InitPropertySequence({
1288 : { strFullPath, makeAny(fullPath) },
1289 : { strMediaType, makeAny(strBasicMediaType) }
1290 0 : }));
1291 0 : manifest.push_back( attribs );
1292 :
1293 : // write into pipe:
1294 0 : Reference<packages::manifest::XManifestWriter> xManifestWriter = packages::manifest::ManifestWriter::create( xContext );
1295 0 : Reference<io::XOutputStream> xPipe( io::Pipe::create( xContext ), UNO_QUERY_THROW );
1296 0 : xManifestWriter->writeManifestSequence(
1297 : xPipe, Sequence< Sequence<beans::PropertyValue> >(
1298 0 : &manifest[ 0 ], manifest.size() ) );
1299 :
1300 : aMetaInfInetObj.insertName( "manifest.xml",
1301 0 : true, INetURLObject::LAST_SEGMENT, true, INetURLObject::ENCODE_ALL );
1302 :
1303 : // write buffered pipe data to content:
1304 0 : ::ucbhelper::Content manifestContent( aMetaInfInetObj.GetMainURL( INetURLObject::NO_DECODE ), xCmdEnv, comphelper::getProcessComponentContext() );
1305 0 : manifestContent.writeStream( Reference<io::XInputStream>( xPipe, UNO_QUERY_THROW ), true );
1306 :
1307 0 : ::ucbhelper::Content MetaInfContent( aMetaInfFolder, xCmdEnv, comphelper::getProcessComponentContext() );
1308 : destFolderContent.transferContent(
1309 : MetaInfContent, ::ucbhelper::InsertOperation_COPY,
1310 0 : OUString(), NameClash::OVERWRITE );
1311 :
1312 0 : if( xSFA->exists( aSourcePath ) )
1313 0 : xSFA->kill( aSourcePath );
1314 0 : if( xSFA->exists( aMetaInfFolder ) )
1315 0 : xSFA->kill( aMetaInfFolder );
1316 0 : }
1317 0 : }
1318 :
1319 0 : void LibPage::ExportAsBasic( const OUString& aLibName )
1320 : {
1321 : // Folder picker
1322 0 : Reference< uno::XComponentContext > xContext( ::comphelper::getProcessComponentContext() );
1323 0 : Reference< XFolderPicker2 > xFolderPicker = FolderPicker::create(xContext);
1324 0 : Reference< task::XInteractionHandler2 > xHandler( task::InteractionHandler::createWithParent(xContext, 0) );
1325 :
1326 0 : xFolderPicker->setTitle(IDEResId(RID_STR_EXPORTBASIC).toString());
1327 :
1328 : // set display directory and filter
1329 0 : OUString aPath =GetExtraData()->GetAddLibPath();
1330 0 : if( aPath.isEmpty() )
1331 0 : aPath = SvtPathOptions().GetWorkPath();
1332 :
1333 : // INetURLObject aURL(m_sSavePath, INetProtocol::File);
1334 0 : xFolderPicker->setDisplayDirectory( aPath );
1335 0 : short nRet = xFolderPicker->execute();
1336 0 : if( nRet == RET_OK )
1337 : {
1338 0 : OUString aTargetURL = xFolderPicker->getDirectory();
1339 0 : GetExtraData()->SetAddLibPath(aTargetURL);
1340 :
1341 0 : Reference< task::XInteractionHandler > xDummyHandler( new DummyInteractionHandler( xHandler ) );
1342 0 : implExportLib( aLibName, aTargetURL, xDummyHandler );
1343 0 : }
1344 0 : }
1345 :
1346 0 : void LibPage::DeleteCurrent()
1347 : {
1348 0 : SvTreeListEntry* pCurEntry = m_pLibBox->GetCurEntry();
1349 0 : OUString aLibName( SvTabListBox::GetEntryText( pCurEntry, 0 ) );
1350 :
1351 : // check, if library is link
1352 0 : bool bIsLibraryLink = false;
1353 0 : OUString aOULibName( aLibName );
1354 0 : Reference< script::XLibraryContainer2 > xModLibContainer( m_aCurDocument.getLibraryContainer( E_SCRIPTS ), UNO_QUERY );
1355 0 : Reference< script::XLibraryContainer2 > xDlgLibContainer( m_aCurDocument.getLibraryContainer( E_DIALOGS ), UNO_QUERY );
1356 0 : if ( ( xModLibContainer.is() && xModLibContainer->hasByName( aOULibName ) && xModLibContainer->isLibraryLink( aOULibName ) ) ||
1357 0 : ( xDlgLibContainer.is() && xDlgLibContainer->hasByName( aOULibName ) && xDlgLibContainer->isLibraryLink( aOULibName ) ) )
1358 : {
1359 0 : bIsLibraryLink = true;
1360 : }
1361 :
1362 0 : if ( QueryDelLib( aLibName, bIsLibraryLink, this ) )
1363 : {
1364 : // inform BasicIDE
1365 0 : SfxUsrAnyItem aDocItem( SID_BASICIDE_ARG_DOCUMENT_MODEL, makeAny( m_aCurDocument.getDocumentOrNull() ) );
1366 0 : SfxStringItem aLibNameItem( SID_BASICIDE_ARG_LIBNAME, aLibName );
1367 0 : if (SfxDispatcher* pDispatcher = GetDispatcher())
1368 : pDispatcher->Execute( SID_BASICIDE_LIBREMOVED,
1369 0 : SfxCallMode::SYNCHRON, &aDocItem, &aLibNameItem, 0L );
1370 :
1371 : // remove library from module and dialog library containers
1372 0 : if ( xModLibContainer.is() && xModLibContainer->hasByName( aOULibName ) )
1373 0 : xModLibContainer->removeLibrary( aOULibName );
1374 0 : if ( xDlgLibContainer.is() && xDlgLibContainer->hasByName( aOULibName ) )
1375 0 : xDlgLibContainer->removeLibrary( aOULibName );
1376 :
1377 0 : static_cast<SvTreeListBox&>(*m_pLibBox).GetModel()->Remove( pCurEntry );
1378 0 : MarkDocumentModified( m_aCurDocument );
1379 0 : }
1380 0 : }
1381 :
1382 0 : void LibPage::EndTabDialog( sal_uInt16 nRet )
1383 : {
1384 : DBG_ASSERT( pTabDlg, "TabDlg nicht gesetzt!" );
1385 0 : if ( pTabDlg )
1386 0 : pTabDlg->EndDialog( nRet );
1387 0 : }
1388 :
1389 0 : void LibPage::FillListBox()
1390 : {
1391 0 : InsertListBoxEntry( ScriptDocument::getApplicationScriptDocument(), LIBRARY_LOCATION_USER );
1392 0 : InsertListBoxEntry( ScriptDocument::getApplicationScriptDocument(), LIBRARY_LOCATION_SHARE );
1393 :
1394 0 : ScriptDocuments aDocuments( ScriptDocument::getAllScriptDocuments( ScriptDocument::DocumentsSorted ) );
1395 0 : for ( ScriptDocuments::const_iterator doc = aDocuments.begin();
1396 0 : doc != aDocuments.end();
1397 : ++doc
1398 : )
1399 : {
1400 0 : InsertListBoxEntry( *doc, LIBRARY_LOCATION_DOCUMENT );
1401 0 : }
1402 0 : }
1403 :
1404 0 : void LibPage::InsertListBoxEntry( const ScriptDocument& rDocument, LibraryLocation eLocation )
1405 : {
1406 0 : OUString aEntryText( rDocument.getTitle( eLocation ) );
1407 0 : sal_uInt16 nPos = m_pBasicsBox->InsertEntry( aEntryText, LISTBOX_APPEND );
1408 0 : m_pBasicsBox->SetEntryData( nPos, new DocumentEntry(rDocument, eLocation) );
1409 0 : }
1410 :
1411 0 : void LibPage::SetCurLib()
1412 : {
1413 0 : sal_uInt16 nSelPos = m_pBasicsBox->GetSelectEntryPos();
1414 0 : DocumentEntry* pEntry = static_cast<DocumentEntry*>(m_pBasicsBox->GetEntryData( nSelPos ));
1415 0 : if ( pEntry )
1416 : {
1417 0 : ScriptDocument aDocument( pEntry->GetDocument() );
1418 : DBG_ASSERT( aDocument.isAlive(), "LibPage::SetCurLib: no document, or document is dead!" );
1419 0 : if ( !aDocument.isAlive() )
1420 0 : return;
1421 0 : LibraryLocation eLocation = pEntry->GetLocation();
1422 0 : if ( aDocument != m_aCurDocument || eLocation != m_eCurLocation )
1423 : {
1424 0 : m_aCurDocument = aDocument;
1425 0 : m_eCurLocation = eLocation;
1426 0 : m_pLibBox->SetDocument( aDocument );
1427 0 : m_pLibBox->Clear();
1428 :
1429 : // get a sorted list of library names
1430 0 : Sequence< OUString > aLibNames = aDocument.getLibraryNames();
1431 0 : sal_Int32 nLibCount = aLibNames.getLength();
1432 0 : const OUString* pLibNames = aLibNames.getConstArray();
1433 :
1434 0 : for ( sal_Int32 i = 0 ; i < nLibCount ; i++ )
1435 : {
1436 0 : OUString aLibName( pLibNames[ i ] );
1437 0 : if ( eLocation == aDocument.getLibraryLocation( aLibName ) )
1438 0 : ImpInsertLibEntry( aLibName, i );
1439 0 : }
1440 :
1441 0 : SvTreeListEntry* pEntry_ = m_pLibBox->FindEntry( OUString( "Standard" ) );
1442 0 : if ( !pEntry_ )
1443 0 : pEntry_ = m_pLibBox->GetEntry( 0 );
1444 0 : m_pLibBox->SetCurEntry( pEntry_ );
1445 0 : }
1446 : }
1447 : }
1448 :
1449 0 : SvTreeListEntry* LibPage::ImpInsertLibEntry( const OUString& rLibName, sal_uLong nPos )
1450 : {
1451 : // check, if library is password protected
1452 0 : bool bProtected = false;
1453 0 : OUString aOULibName( rLibName );
1454 0 : Reference< script::XLibraryContainer2 > xModLibContainer( m_aCurDocument.getLibraryContainer( E_SCRIPTS ), UNO_QUERY );
1455 0 : if ( xModLibContainer.is() && xModLibContainer->hasByName( aOULibName ) )
1456 : {
1457 0 : Reference< script::XLibraryContainerPassword > xPasswd( xModLibContainer, UNO_QUERY );
1458 0 : if ( xPasswd.is() )
1459 : {
1460 0 : bProtected = xPasswd->isLibraryPasswordProtected( aOULibName );
1461 0 : }
1462 : }
1463 :
1464 0 : SvTreeListEntry* pNewEntry = m_pLibBox->DoInsertEntry( rLibName, nPos );
1465 0 : pNewEntry->SetUserData( new LibUserData(m_aCurDocument) );
1466 :
1467 0 : if (bProtected)
1468 : {
1469 0 : Image aImage(IDEResId(RID_IMG_LOCKED));
1470 0 : m_pLibBox->SetExpandedEntryBmp(pNewEntry, aImage);
1471 0 : m_pLibBox->SetCollapsedEntryBmp(pNewEntry, aImage);
1472 : }
1473 :
1474 : // check, if library is link
1475 0 : if ( xModLibContainer.is() && xModLibContainer->hasByName( aOULibName ) && xModLibContainer->isLibraryLink( aOULibName ) )
1476 : {
1477 0 : OUString aLinkURL = xModLibContainer->getLibraryLinkURL( aOULibName );
1478 0 : m_pLibBox->SetEntryText( aLinkURL, pNewEntry, 1 );
1479 : }
1480 :
1481 0 : return pNewEntry;
1482 : }
1483 :
1484 : // Helper function
1485 0 : void createLibImpl( vcl::Window* pWin, const ScriptDocument& rDocument,
1486 : CheckBox* pLibBox, TreeListBox* pBasicBox )
1487 : {
1488 : OSL_ENSURE( rDocument.isAlive(), "createLibImpl: invalid document!" );
1489 0 : if ( !rDocument.isAlive() )
1490 0 : return;
1491 :
1492 : // create library name
1493 0 : OUString aLibName;
1494 0 : OUString aLibStdName( "Library" );
1495 : //String aLibStdName( IDEResId( RID_STR_STDLIBNAME ) );
1496 0 : bool bValid = false;
1497 0 : sal_Int32 i = 1;
1498 0 : while ( !bValid )
1499 : {
1500 0 : aLibName = aLibStdName + OUString::number( i );
1501 0 : if ( !rDocument.hasLibrary( E_SCRIPTS, aLibName ) && !rDocument.hasLibrary( E_DIALOGS, aLibName ) )
1502 0 : bValid = true;
1503 0 : i++;
1504 : }
1505 :
1506 0 : ScopedVclPtrInstance< NewObjectDialog > aNewDlg(pWin, ObjectMode::Library);
1507 0 : aNewDlg->SetObjectName(aLibName);
1508 :
1509 0 : if (aNewDlg->Execute())
1510 : {
1511 0 : if (!aNewDlg->GetObjectName().isEmpty())
1512 0 : aLibName = aNewDlg->GetObjectName();
1513 :
1514 0 : if ( aLibName.getLength() > 30 )
1515 : {
1516 0 : ScopedVclPtrInstance<MessageDialog>::Create(pWin, IDEResId(RID_STR_LIBNAMETOLONG).toString())->Execute();
1517 : }
1518 0 : else if ( !IsValidSbxName( aLibName ) )
1519 : {
1520 0 : ScopedVclPtrInstance<MessageDialog>::Create(pWin, IDEResId(RID_STR_BADSBXNAME).toString())->Execute();
1521 : }
1522 0 : else if ( rDocument.hasLibrary( E_SCRIPTS, aLibName ) || rDocument.hasLibrary( E_DIALOGS, aLibName ) )
1523 : {
1524 0 : ScopedVclPtrInstance<MessageDialog>::Create(pWin, IDEResId(RID_STR_SBXNAMEALLREADYUSED2).toString())->Execute();
1525 : }
1526 : else
1527 : {
1528 : try
1529 : {
1530 : // create module and dialog library
1531 0 : Reference< container::XNameContainer > xModLib( rDocument.getOrCreateLibrary( E_SCRIPTS, aLibName ) );
1532 0 : Reference< container::XNameContainer > xDlgLib( rDocument.getOrCreateLibrary( E_DIALOGS, aLibName ) );
1533 :
1534 0 : if( pLibBox )
1535 : {
1536 0 : SvTreeListEntry* pEntry = pLibBox->DoInsertEntry( aLibName );
1537 0 : pEntry->SetUserData( new LibUserData( rDocument ) );
1538 0 : pLibBox->SetCurEntry( pEntry );
1539 : }
1540 :
1541 : // create a module
1542 0 : OUString aModName = rDocument.createObjectName( E_SCRIPTS, aLibName );
1543 0 : OUString sModuleCode;
1544 0 : if ( !rDocument.createModule( aLibName, aModName, true, sModuleCode ) )
1545 0 : throw Exception();
1546 :
1547 0 : SbxItem aSbxItem( SID_BASICIDE_ARG_SBX, rDocument, aLibName, aModName, TYPE_MODULE );
1548 0 : if (SfxDispatcher* pDispatcher = GetDispatcher())
1549 : pDispatcher->Execute( SID_BASICIDE_SBXINSERTED,
1550 0 : SfxCallMode::SYNCHRON, &aSbxItem, 0L );
1551 :
1552 0 : if( pBasicBox )
1553 : {
1554 0 : SvTreeListEntry* pEntry = pBasicBox->GetCurEntry();
1555 0 : SvTreeListEntry* pRootEntry = NULL;
1556 0 : while( pEntry )
1557 : {
1558 0 : pRootEntry = pEntry;
1559 0 : pEntry = pBasicBox->GetParent( pEntry );
1560 : }
1561 :
1562 0 : sal_uInt16 nMode = pBasicBox->GetMode();
1563 0 : bool bDlgMode = ( nMode & BROWSEMODE_DIALOGS ) && !( nMode & BROWSEMODE_MODULES );
1564 0 : sal_uInt16 nId = bDlgMode ? RID_IMG_DLGLIB : RID_IMG_MODLIB;
1565 0 : std::unique_ptr<Entry> e(new Entry(OBJ_TYPE_LIBRARY));
1566 : SvTreeListEntry* pNewLibEntry = pBasicBox->AddEntry(
1567 : aLibName,
1568 : Image( IDEResId( nId ) ),
1569 0 : pRootEntry, false, &e);
1570 : DBG_ASSERT( pNewLibEntry, "InsertEntry fehlgeschlagen!" );
1571 :
1572 0 : if( pNewLibEntry )
1573 : {
1574 0 : e.reset(new Entry(OBJ_TYPE_MODULE));
1575 : SvTreeListEntry* pEntry_ = pBasicBox->AddEntry(
1576 : aModName,
1577 : Image( IDEResId( RID_IMG_MODULE ) ),
1578 0 : pNewLibEntry, false, &e);
1579 : DBG_ASSERT( pEntry_, "InsertEntry fehlgeschlagen!" );
1580 0 : pBasicBox->SetCurEntry( pEntry_ );
1581 0 : pBasicBox->Select( pBasicBox->GetCurEntry() ); // OV-Bug?!
1582 0 : }
1583 0 : }
1584 : }
1585 0 : catch (const uno::Exception& )
1586 : {
1587 : DBG_UNHANDLED_EXCEPTION();
1588 : }
1589 : }
1590 0 : }
1591 : }
1592 0 : } // namespace basctl
1593 :
1594 : /* vim:set shiftwidth=4 softtabstop=4 expandtab: */
|
