diff options
Diffstat (limited to 'basctl/source/basicide/moduldl2.cxx')
| -rw-r--r-- | basctl/source/basicide/moduldl2.cxx | 1706 |
1 files changed, 0 insertions, 1706 deletions
diff --git a/basctl/source/basicide/moduldl2.cxx b/basctl/source/basicide/moduldl2.cxx deleted file mode 100644 index f1759d633..000000000 --- a/basctl/source/basicide/moduldl2.cxx +++ /dev/null @@ -1,1706 +0,0 @@ -/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ -/************************************************************************* - * - * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. - * - * Copyright 2000, 2010 Oracle and/or its affiliates. - * - * OpenOffice.org - a multi-platform office productivity suite - * - * This file is part of OpenOffice.org. - * - * OpenOffice.org is free software: you can redistribute it and/or modify - * it under the terms of the GNU Lesser General Public License version 3 - * only, as published by the Free Software Foundation. - * - * OpenOffice.org is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - * GNU Lesser General Public License version 3 for more details - * (a copy is included in the LICENSE file that accompanied this code). - * - * You should have received a copy of the GNU Lesser General Public License - * version 3 along with OpenOffice.org. If not, see - * <http://www.openoffice.org/license.html> - * for a copy of the LGPLv3 License. - * - ************************************************************************/ - -// MARKER(update_precomp.py): autogen include statement, do not remove -#include "precompiled_basctl.hxx" - -#define GLOBALOVERFLOW - -#include <ide_pch.hxx> - -#include <sot/storinfo.hxx> - -#include <moduldlg.hrc> -#include <moduldlg.hxx> -#include <basidesh.hrc> -#include <basidesh.hxx> -#include <bastypes.hxx> -#include <basobj.hxx> -#include <baside2.hrc> -#include <iderdll.hxx> -#include <iderdll2.hxx> -#include <svx/passwd.hxx> -#include <sbxitem.hxx> -#include <basdoc.hxx> -#include <ucbhelper/content.hxx> -#include "rtl/uri.hxx" -#include <tools/urlobj.hxx> -#include <tools/diagnose_ex.h> - -#include <sot/storage.hxx> -#include <com/sun/star/ui/dialogs/XFilePicker.hpp> -#include <com/sun/star/ui/dialogs/XFolderPicker.hpp> -#include <com/sun/star/ui/dialogs/XFilterManager.hpp> -#include <com/sun/star/ui/dialogs/TemplateDescription.hpp> -#include <com/sun/star/script/XLibraryContainer2.hpp> -#include <com/sun/star/script/XLibraryContainerPassword.hpp> -#include <com/sun/star/script/XLibraryContainerExport.hpp> -#include <com/sun/star/ucb/XSimpleFileAccess.hpp> -#include "com/sun/star/ucb/XCommandEnvironment.hpp" -#include <com/sun/star/ucb/NameClash.hpp> -#include "com/sun/star/packages/manifest/XManifestWriter.hpp" -#include <unotools/pathoptions.hxx> -#include <comphelper/processfactory.hxx> - -#include <com/sun/star/util/VetoException.hpp> -#include <com/sun/star/script/ModuleSizeExceededRequest.hpp> - -using namespace ::comphelper; -using ::rtl::OUString; -using namespace ::com::sun::star; -using namespace ::com::sun::star::uno; -using namespace ::com::sun::star::lang; -using namespace ::com::sun::star::ucb; -using namespace ::com::sun::star::ui::dialogs; - - -typedef ::cppu::WeakImplHelper1< task::XInteractionHandler > HandlerImpl_BASE; - -class DummyInteractionHandler : public HandlerImpl_BASE -{ - Reference< task::XInteractionHandler > m_xHandler; -public: - DummyInteractionHandler( const Reference< task::XInteractionHandler >& xHandler ) : m_xHandler( xHandler ){} - - virtual void SAL_CALL handle( const Reference< task::XInteractionRequest >& rRequest ) throw (::com::sun::star::uno::RuntimeException) - { - if ( m_xHandler.is() ) - { - script::ModuleSizeExceededRequest aModSizeException; - if ( rRequest->getRequest() >>= aModSizeException ) - m_xHandler->handle( rRequest ); - } - } -}; - -//---------------------------------------------------------------------------- -// BasicLibUserData -//---------------------------------------------------------------------------- -class BasicLibUserData -{ -private: - ScriptDocument m_aDocument; - -public: - BasicLibUserData( const ScriptDocument& rDocument ) : m_aDocument( rDocument ) { } - virtual ~BasicLibUserData() {}; - - const ScriptDocument& - GetDocument() const { return m_aDocument; } -}; - - -//---------------------------------------------------------------------------- -// BasicLibLBoxString -//---------------------------------------------------------------------------- - -class BasicLibLBoxString : public SvLBoxString -{ -public: - BasicLibLBoxString( SvLBoxEntry* pEntry, sal_uInt16 nFlags, const String& rTxt ) : - SvLBoxString( pEntry, nFlags, rTxt ) {} - - virtual void Paint( const Point& rPos, SvLBox& rDev, sal_uInt16 nFlags, SvLBoxEntry* pEntry ); -}; - -//---------------------------------------------------------------------------- - -void BasicLibLBoxString::Paint( const Point& rPos, SvLBox& rDev, sal_uInt16, SvLBoxEntry* pEntry ) -{ - // Change text color if library is read only: - bool bReadOnly = false; - if (pEntry && pEntry->GetUserData()) - { - ScriptDocument aDocument( - static_cast< BasicLibUserData * >(pEntry->GetUserData())-> - GetDocument() ); - - rtl::OUString aLibName( - static_cast< SvLBoxString * >(pEntry->GetItem(1))->GetText()); - Reference< script::XLibraryContainer2 > xModLibContainer( - aDocument.getLibraryContainer( E_SCRIPTS ), UNO_QUERY); - Reference< script::XLibraryContainer2 > xDlgLibContainer( - aDocument.getLibraryContainer( E_DIALOGS ), UNO_QUERY); - bReadOnly - = (xModLibContainer.is() && xModLibContainer->hasByName(aLibName) - && xModLibContainer->isLibraryReadOnly(aLibName)) - || (xDlgLibContainer.is() && xDlgLibContainer->hasByName(aLibName) - && xDlgLibContainer->isLibraryReadOnly(aLibName)); - } - if (bReadOnly) - rDev.DrawCtrlText(rPos, GetText(), 0, STRING_LEN, TEXT_DRAW_DISABLE); - else - rDev.DrawText(rPos, GetText()); -} - - -//---------------------------------------------------------------------------- -// BasicCheckBox -//---------------------------------------------------------------------------- - -BasicCheckBox::BasicCheckBox( Window* pParent, const ResId& rResId ) - :SvTabListBox( pParent, rResId ) - ,m_aDocument( ScriptDocument::getApplicationScriptDocument() ) -{ - nMode = LIBMODE_MANAGER; - long aTabs_[] = { 1, 12 }; // Mindestens einen braucht die TabPos... - // 12 wegen der Checkbox - SetTabs( aTabs_ ); - Init(); -} - -//---------------------------------------------------------------------------- - -BasicCheckBox::~BasicCheckBox() -{ - delete pCheckButton; - - // delete user data - SvLBoxEntry* pEntry = First(); - while ( pEntry ) - { - delete (BasicLibUserData*)pEntry->GetUserData(); - pEntry = Next( pEntry ); - } -} - -//---------------------------------------------------------------------------- - -void BasicCheckBox::Init() -{ - pCheckButton = new SvLBoxButtonData(this); - - if ( nMode == LIBMODE_CHOOSER ) - EnableCheckButton( pCheckButton ); - else - EnableCheckButton( 0 ); - - SetHighlightRange(); -} - -//---------------------------------------------------------------------------- - -void BasicCheckBox::SetMode( sal_uInt16 n ) -{ - nMode = n; - - if ( nMode == LIBMODE_CHOOSER ) - EnableCheckButton( pCheckButton ); - else - EnableCheckButton( 0 ); -} - -//---------------------------------------------------------------------------- - -SvLBoxEntry* BasicCheckBox::DoInsertEntry( const String& rStr, sal_uLong nPos ) -{ - return SvTabListBox::InsertEntryToColumn( rStr, nPos, 0 ); -} - -//---------------------------------------------------------------------------- - -SvLBoxEntry* BasicCheckBox::FindEntry( const String& rName ) -{ - sal_uLong nCount = GetEntryCount(); - for ( sal_uLong i = 0; i < nCount; i++ ) - { - SvLBoxEntry* pEntry = GetEntry( i ); - DBG_ASSERT( pEntry, "pEntry?!" ); - if ( rName.CompareIgnoreCaseToAscii( GetEntryText( pEntry, 0 ) ) == COMPARE_EQUAL ) - return pEntry; - } - return 0; -} - -//---------------------------------------------------------------------------- - -void BasicCheckBox::CheckEntryPos( sal_uLong nPos, sal_Bool bCheck ) -{ - if ( nPos < GetEntryCount() ) - { - SvLBoxEntry* pEntry = GetEntry( nPos ); - - if ( bCheck != GetCheckButtonState( pEntry ) ) - SetCheckButtonState( pEntry, - bCheck - ? SvButtonState(SV_BUTTON_CHECKED) - : SvButtonState(SV_BUTTON_UNCHECKED) ); - } -} - -//---------------------------------------------------------------------------- - -sal_Bool BasicCheckBox::IsChecked( sal_uLong nPos ) const -{ - if ( nPos < GetEntryCount() ) - return (GetCheckButtonState( GetEntry( nPos ) ) == SV_BUTTON_CHECKED); - return sal_False; -} - -//---------------------------------------------------------------------------- - -void BasicCheckBox::InitEntry( SvLBoxEntry* pEntry, const XubString& rTxt, const Image& rImg1, const Image& rImg2, SvLBoxButtonKind eButtonKind ) -{ - SvTabListBox::InitEntry( pEntry, rTxt, rImg1, rImg2, eButtonKind ); - - if ( nMode == LIBMODE_MANAGER ) - { - // initialize all columns with own string class (column 0 == bitmap) - sal_uInt16 nCount = pEntry->ItemCount(); - for ( sal_uInt16 nCol = 1; nCol < nCount; ++nCol ) - { - SvLBoxString* pCol = (SvLBoxString*)pEntry->GetItem( nCol ); - BasicLibLBoxString* pStr = new BasicLibLBoxString( pEntry, 0, pCol->GetText() ); - pEntry->ReplaceItem( pStr, nCol ); - } - } -} - -//---------------------------------------------------------------------------- - -sal_Bool BasicCheckBox::EditingEntry( SvLBoxEntry* pEntry, Selection& ) -{ - if ( nMode != LIBMODE_MANAGER ) - return sal_False; - - DBG_ASSERT( pEntry, "Kein Eintrag?" ); - - // check, if Standard library - String aLibName = GetEntryText( pEntry, 0 ); - if ( aLibName.EqualsIgnoreCaseAscii( "Standard" ) ) - { - ErrorBox( this, WB_OK | WB_DEF_OK, String( IDEResId( RID_STR_CANNOTCHANGENAMESTDLIB ) ) ).Execute(); - return sal_False; - } - - // check, if library is readonly - ::rtl::OUString aOULibName( aLibName ); - Reference< script::XLibraryContainer2 > xModLibContainer( m_aDocument.getLibraryContainer( E_SCRIPTS ), UNO_QUERY ); - Reference< script::XLibraryContainer2 > xDlgLibContainer( m_aDocument.getLibraryContainer( E_DIALOGS ), UNO_QUERY ); - if ( ( xModLibContainer.is() && xModLibContainer->hasByName( aOULibName ) && xModLibContainer->isLibraryReadOnly( aOULibName ) && !xModLibContainer->isLibraryLink( aOULibName ) ) || - ( xDlgLibContainer.is() && xDlgLibContainer->hasByName( aOULibName ) && xDlgLibContainer->isLibraryReadOnly( aOULibName ) && !xDlgLibContainer->isLibraryLink( aOULibName ) ) ) - { - ErrorBox( this, WB_OK | WB_DEF_OK, String( IDEResId( RID_STR_LIBISREADONLY ) ) ).Execute(); - return sal_False; - } - - // i24094: Password verification necessary for renaming - sal_Bool bOK = sal_True; - if ( xModLibContainer.is() && xModLibContainer->hasByName( aOULibName ) && !xModLibContainer->isLibraryLoaded( aOULibName ) ) - { - // check password - Reference< script::XLibraryContainerPassword > xPasswd( xModLibContainer, UNO_QUERY ); - if ( xPasswd.is() && xPasswd->isLibraryPasswordProtected( aOULibName ) && !xPasswd->isLibraryPasswordVerified( aOULibName ) ) - { - String aPassword; - Reference< script::XLibraryContainer > xModLibContainer1( xModLibContainer, UNO_QUERY ); - bOK = QueryPassword( xModLibContainer1, aLibName, aPassword ); - } - if ( !bOK ) - return sal_False; - } - - // TODO: check if library is reference/link - - return sal_True; -} - -//---------------------------------------------------------------------------- - -sal_Bool BasicCheckBox::EditedEntry( SvLBoxEntry* pEntry, const String& rNewText ) -{ - sal_Bool bValid = ( rNewText.Len() <= 30 ) && BasicIDE::IsValidSbxName( rNewText ); - String aCurText( GetEntryText( pEntry, 0 ) ); - if ( bValid && ( aCurText != rNewText ) ) - { - try - { - ::rtl::OUString aOUOldName( aCurText ); - ::rtl::OUString aOUNewName( rNewText ); - - Reference< script::XLibraryContainer2 > xModLibContainer( m_aDocument.getLibraryContainer( E_SCRIPTS ), UNO_QUERY ); - if ( xModLibContainer.is() ) - { - xModLibContainer->renameLibrary( aOUOldName, aOUNewName ); - } - - Reference< script::XLibraryContainer2 > xDlgLibContainer( m_aDocument.getLibraryContainer( E_DIALOGS ), UNO_QUERY ); - if ( xDlgLibContainer.is() ) - { - xDlgLibContainer->renameLibrary( aOUOldName, aOUNewName ); - } - - BasicIDE::MarkDocumentModified( m_aDocument ); - SfxBindings* pBindings = BasicIDE::GetBindingsPtr(); - if ( pBindings ) - { - pBindings->Invalidate( SID_BASICIDE_LIBSELECTOR ); - pBindings->Update( SID_BASICIDE_LIBSELECTOR ); - } - } - catch ( container::ElementExistException& ) - { - ErrorBox( this, WB_OK | WB_DEF_OK, String( IDEResId( RID_STR_SBXNAMEALLREADYUSED ) ) ).Execute(); - return sal_False; - } - catch ( container::NoSuchElementException& ) - { - DBG_UNHANDLED_EXCEPTION(); - return sal_False; - } - } - - if ( !bValid ) - { - if ( rNewText.Len() > 30 ) - ErrorBox( this, WB_OK | WB_DEF_OK, String( IDEResId( RID_STR_LIBNAMETOLONG ) ) ).Execute(); - else - ErrorBox( this, WB_OK | WB_DEF_OK, String( IDEResId( RID_STR_BADSBXNAME ) ) ).Execute(); - } - - return bValid; -} - -//---------------------------------------------------------------------------- -// NewObjectDialog -//---------------------------------------------------------------------------- - -IMPL_LINK(NewObjectDialog, OkButtonHandler, Button *, EMPTYARG) -{ - if (BasicIDE::IsValidSbxName(aEdit.GetText())) - EndDialog(1); - else - { - ErrorBox(this, WB_OK | WB_DEF_OK, - String(IDEResId(RID_STR_BADSBXNAME))).Execute(); - aEdit.GrabFocus(); - } - return 0; -} - -NewObjectDialog::NewObjectDialog(Window * pParent, sal_uInt16 nMode, - bool bCheckName) - : ModalDialog( pParent, IDEResId( RID_DLG_NEWLIB ) ), - aText( this, IDEResId( RID_FT_NEWLIB ) ), - aEdit( this, IDEResId( RID_ED_LIBNAME ) ), - aOKButton( this, IDEResId( RID_PB_OK ) ), - aCancelButton( this, IDEResId( RID_PB_CANCEL ) ) -{ - FreeResource(); - aEdit.GrabFocus(); - - if ( nMode == NEWOBJECTMODE_LIB ) - { - SetText( String( IDEResId( RID_STR_NEWLIB ) ) ); - } - else if ( nMode == NEWOBJECTMODE_MOD ) - { - SetText( String( IDEResId( RID_STR_NEWMOD ) ) ); - } - else if ( nMode == NEWOBJECTMODE_METH ) - { - SetText( String( IDEResId( RID_STR_NEWMETH ) ) ); - } - else - { - SetText( String( IDEResId( RID_STR_NEWDLG ) ) ); - } - - if (bCheckName) - aOKButton.SetClickHdl(LINK(this, NewObjectDialog, OkButtonHandler)); -} - -//---------------------------------------------------------------------------- - -NewObjectDialog::~NewObjectDialog() -{ -} - -//---------------------------------------------------------------------------- -// ExportDialog -//---------------------------------------------------------------------------- - -IMPL_LINK(ExportDialog, OkButtonHandler, Button *, EMPTYARG) -{ - mbExportAsPackage = maExportAsPackageButton.IsChecked(); - EndDialog(1); - return 0; -} - -ExportDialog::ExportDialog( Window * pParent ) - : ModalDialog( pParent, IDEResId( RID_DLG_EXPORT ) ), - maExportAsPackageButton( this, IDEResId( RB_EXPORTASPACKAGE ) ), - maExportAsBasicButton( this, IDEResId( RB_EXPORTASBASIC ) ), - maOKButton( this, IDEResId( RID_PB_OK ) ), - maCancelButton( this, IDEResId( RID_PB_CANCEL ) ) -{ - FreeResource(); - maExportAsPackageButton.Check(); - maOKButton.SetClickHdl(LINK(this, ExportDialog, OkButtonHandler)); -} - -//---------------------------------------------------------------------------- - -ExportDialog::~ExportDialog() -{ -} - -//---------------------------------------------------------------------------- -// LibPage -//---------------------------------------------------------------------------- - -LibPage::LibPage( Window * pParent ) - :TabPage( pParent, IDEResId( RID_TP_LIBS ) ) - ,aBasicsText( this, IDEResId( RID_STR_BASICS ) ) - ,aBasicsBox( this, IDEResId( RID_LB_BASICS ) ) - ,aLibText( this, IDEResId( RID_STR_LIB ) ) - ,aLibBox( this, IDEResId( RID_TRLBOX ) ) - ,aEditButton( this, IDEResId( RID_PB_EDIT ) ) - ,aCloseButton( this, IDEResId( RID_PB_CLOSE ) ) - ,aPasswordButton( this, IDEResId( RID_PB_PASSWORD ) ) - ,aNewLibButton( this, IDEResId( RID_PB_NEWLIB ) ) - ,aInsertLibButton( this, IDEResId( RID_PB_APPEND ) ) - ,aExportButton( this, IDEResId( RID_PB_EXPORT ) ) - ,aDelButton( this, IDEResId( RID_PB_DELETE ) ) - ,m_aCurDocument( ScriptDocument::getApplicationScriptDocument() ) - ,m_eCurLocation( LIBRARY_LOCATION_UNKNOWN ) -{ - FreeResource(); - pTabDlg = 0; - - aEditButton.SetClickHdl( LINK( this, LibPage, ButtonHdl ) ); - aNewLibButton.SetClickHdl( LINK( this, LibPage, ButtonHdl ) ); - aPasswordButton.SetClickHdl( LINK( this, LibPage, ButtonHdl ) ); - aExportButton.SetClickHdl( LINK( this, LibPage, ButtonHdl ) ); - aInsertLibButton.SetClickHdl( LINK( this, LibPage, ButtonHdl ) ); - aDelButton.SetClickHdl( LINK( this, LibPage, ButtonHdl ) ); - aCloseButton.SetClickHdl( LINK( this, LibPage, ButtonHdl ) ); - aLibBox.SetSelectHdl( LINK( this, LibPage, TreeListHighlightHdl ) ); - - aBasicsBox.SetSelectHdl( LINK( this, LibPage, BasicSelectHdl ) ); - - aLibBox.SetMode( LIBMODE_MANAGER ); - aLibBox.EnableInplaceEditing( sal_True ); - aLibBox.SetStyle( WB_HSCROLL | WB_BORDER | WB_TABSTOP ); - aCloseButton.GrabFocus(); - - long aTabs[] = { 2, 30, 120 }; - aLibBox.SetTabs( aTabs, MAP_PIXEL ); - - FillListBox(); - aBasicsBox.SelectEntryPos( 0 ); - SetCurLib(); - - CheckButtons(); -} - -//---------------------------------------------------------------------------- - -LibPage::~LibPage() -{ - sal_uInt16 nCount = aBasicsBox.GetEntryCount(); - for ( sal_uInt16 i = 0; i < nCount; ++i ) - { - BasicDocumentEntry* pEntry = (BasicDocumentEntry*)aBasicsBox.GetEntryData( i ); - delete pEntry; - } -} - -//---------------------------------------------------------------------------- - -void LibPage::CheckButtons() -{ - SvLBoxEntry* pCur = aLibBox.GetCurEntry(); - if ( pCur ) - { - String aLibName = aLibBox.GetEntryText( pCur, 0 ); - ::rtl::OUString aOULibName( aLibName ); - Reference< script::XLibraryContainer2 > xModLibContainer( m_aCurDocument.getLibraryContainer( E_SCRIPTS ), UNO_QUERY ); - Reference< script::XLibraryContainer2 > xDlgLibContainer( m_aCurDocument.getLibraryContainer( E_DIALOGS ), UNO_QUERY ); - - if ( m_eCurLocation == LIBRARY_LOCATION_SHARE ) - { - aPasswordButton.Disable(); - aNewLibButton.Disable(); - aInsertLibButton.Disable(); - aDelButton.Disable(); - } - else if ( aLibName.EqualsIgnoreCaseAscii( "Standard" ) ) - { - aPasswordButton.Disable(); - aNewLibButton.Enable(); - aInsertLibButton.Enable(); - aExportButton.Disable(); - aDelButton.Disable(); - if ( !aLibBox.HasFocus() ) - aCloseButton.GrabFocus(); - } - else if ( ( xModLibContainer.is() && xModLibContainer->hasByName( aOULibName ) && xModLibContainer->isLibraryReadOnly( aOULibName ) ) || - ( xDlgLibContainer.is() && xDlgLibContainer->hasByName( aOULibName ) && xDlgLibContainer->isLibraryReadOnly( aOULibName ) ) ) - { - aPasswordButton.Disable(); - aNewLibButton.Enable(); - aInsertLibButton.Enable(); - if ( ( xModLibContainer.is() && xModLibContainer->hasByName( aOULibName ) && xModLibContainer->isLibraryReadOnly( aOULibName ) && !xModLibContainer->isLibraryLink( aOULibName ) ) || - ( xDlgLibContainer.is() && xDlgLibContainer->hasByName( aOULibName ) && xDlgLibContainer->isLibraryReadOnly( aOULibName ) && !xDlgLibContainer->isLibraryLink( aOULibName ) ) ) - aDelButton.Disable(); - else - aDelButton.Enable(); - } - else - { - if ( xModLibContainer.is() && !xModLibContainer->hasByName( aOULibName ) ) - aPasswordButton.Disable(); - else - aPasswordButton.Enable(); - - aNewLibButton.Enable(); - aInsertLibButton.Enable(); - aExportButton.Enable(); - aDelButton.Enable(); - } - } -} - -//---------------------------------------------------------------------------- - -void LibPage::ActivatePage() -{ - SetCurLib(); -} - -//---------------------------------------------------------------------------- - - -void LibPage::DeactivatePage() -{ -} - -//---------------------------------------------------------------------------- - - -IMPL_LINK_INLINE_START( LibPage, TreeListHighlightHdl, SvTreeListBox *, pBox ) -{ - if ( pBox->IsSelected( pBox->GetHdlEntry() ) ) - CheckButtons(); - return 0; -} -IMPL_LINK_INLINE_END( LibPage, TreeListHighlightHdl, SvTreeListBox *, pBox ) - -//---------------------------------------------------------------------------- - -IMPL_LINK_INLINE_START( LibPage, BasicSelectHdl, ListBox *, pBox ) -{ - (void)pBox; - SetCurLib(); - CheckButtons(); - return 0; -} -IMPL_LINK_INLINE_END( LibPage, BasicSelectHdl, ListBox *, pBox ) - -//---------------------------------------------------------------------------- - -IMPL_LINK( LibPage, ButtonHdl, Button *, pButton ) -{ - if ( pButton == &aEditButton ) - { - SfxAllItemSet aArgs( SFX_APP()->GetPool() ); - SfxRequest aRequest( SID_BASICIDE_APPEAR, SFX_CALLMODE_SYNCHRON, aArgs ); - SFX_APP()->ExecuteSlot( aRequest ); - - SfxUsrAnyItem aDocItem( SID_BASICIDE_ARG_DOCUMENT_MODEL, makeAny( m_aCurDocument.getDocumentOrNull() ) ); - SvLBoxEntry* pCurEntry = aLibBox.GetCurEntry(); - DBG_ASSERT( pCurEntry, "Entry?!" ); - String aLibName( aLibBox.GetEntryText( pCurEntry, 0 ) ); - SfxStringItem aLibNameItem( SID_BASICIDE_ARG_LIBNAME, aLibName ); - BasicIDEShell* pIDEShell = IDE_DLL()->GetShell(); - SfxViewFrame* pViewFrame = pIDEShell ? pIDEShell->GetViewFrame() : NULL; - SfxDispatcher* pDispatcher = pViewFrame ? pViewFrame->GetDispatcher() : NULL; - if ( pDispatcher ) - { - pDispatcher->Execute( SID_BASICIDE_LIBSELECTED, - SFX_CALLMODE_ASYNCHRON, &aDocItem, &aLibNameItem, 0L ); - } - EndTabDialog( 1 ); - return 0; - } - else if ( pButton == &aNewLibButton ) - NewLib(); - else if ( pButton == &aInsertLibButton ) - InsertLib(); - else if ( pButton == &aExportButton ) - Export(); - else if ( pButton == &aDelButton ) - DeleteCurrent(); - else if ( pButton == &aCloseButton ) - { - EndTabDialog( 0 ); - return 0; - } - else if ( pButton == &aPasswordButton ) - { - SvLBoxEntry* pCurEntry = aLibBox.GetCurEntry(); - String aLibName( aLibBox.GetEntryText( pCurEntry, 0 ) ); - ::rtl::OUString aOULibName( aLibName ); - - // load module library (if not loaded) - Reference< script::XLibraryContainer > xModLibContainer = m_aCurDocument.getLibraryContainer( E_SCRIPTS ); - if ( xModLibContainer.is() && xModLibContainer->hasByName( aOULibName ) && !xModLibContainer->isLibraryLoaded( aOULibName ) ) - { - BasicIDEShell* pIDEShell = IDE_DLL()->GetShell(); - if ( pIDEShell ) - pIDEShell->GetViewFrame()->GetWindow().EnterWait(); - xModLibContainer->loadLibrary( aOULibName ); - if ( pIDEShell ) - pIDEShell->GetViewFrame()->GetWindow().LeaveWait(); - } - - // load dialog library (if not loaded) - Reference< script::XLibraryContainer > xDlgLibContainer = m_aCurDocument.getLibraryContainer( E_DIALOGS ); - if ( xDlgLibContainer.is() && xDlgLibContainer->hasByName( aOULibName ) && !xDlgLibContainer->isLibraryLoaded( aOULibName ) ) - { - BasicIDEShell* pIDEShell = IDE_DLL()->GetShell(); - if ( pIDEShell ) - pIDEShell->GetViewFrame()->GetWindow().EnterWait(); - xDlgLibContainer->loadLibrary( aOULibName ); - if ( pIDEShell ) - pIDEShell->GetViewFrame()->GetWindow().LeaveWait(); - } - - // check, if library is password protected - if ( xModLibContainer.is() && xModLibContainer->hasByName( aOULibName ) ) - { - Reference< script::XLibraryContainerPassword > xPasswd( xModLibContainer, UNO_QUERY ); - if ( xPasswd.is() ) - { - sal_Bool bProtected = xPasswd->isLibraryPasswordProtected( aOULibName ); - - // change password dialog - SvxPasswordDialog* pDlg = new SvxPasswordDialog( this, sal_True, !bProtected ); - pDlg->SetCheckPasswordHdl( LINK( this, LibPage, CheckPasswordHdl ) ); - - if ( pDlg->Execute() == RET_OK ) - { - sal_Bool bNewProtected = xPasswd->isLibraryPasswordProtected( aOULibName ); - - if ( bNewProtected != bProtected ) - { - sal_uLong nPos = (sal_uLong)aLibBox.GetModel()->GetAbsPos( pCurEntry ); - aLibBox.GetModel()->Remove( pCurEntry ); - ImpInsertLibEntry( aLibName, nPos ); - aLibBox.SetCurEntry( aLibBox.GetEntry( nPos ) ); - } - - BasicIDE::MarkDocumentModified( m_aCurDocument ); - } - delete pDlg; - } - } - } - CheckButtons(); - return 0; -} - -//---------------------------------------------------------------------------- - -IMPL_LINK_INLINE_START( LibPage, CheckPasswordHdl, SvxPasswordDialog *, pDlg ) -{ - long nRet = 0; - - SvLBoxEntry* pCurEntry = aLibBox.GetCurEntry(); - ::rtl::OUString aOULibName( aLibBox.GetEntryText( pCurEntry, 0 ) ); - Reference< script::XLibraryContainerPassword > xPasswd( m_aCurDocument.getLibraryContainer( E_SCRIPTS ), UNO_QUERY ); - - if ( xPasswd.is() ) - { - try - { - ::rtl::OUString aOUOldPassword( pDlg->GetOldPassword() ); - ::rtl::OUString aOUNewPassword( pDlg->GetNewPassword() ); - xPasswd->changeLibraryPassword( aOULibName, aOUOldPassword, aOUNewPassword ); - nRet = 1; - } - catch (...) - { - } - } - - return nRet; -} -IMPL_LINK_INLINE_END( LibPage, CheckPasswordHdl, SvxPasswordDialog *, pDlg ) - -//---------------------------------------------------------------------------- - -void LibPage::NewLib() -{ - createLibImpl( static_cast<Window*>( this ), m_aCurDocument, &aLibBox, NULL); -} - -//---------------------------------------------------------------------------- - -void LibPage::InsertLib() -{ - // file open dialog - Reference< lang::XMultiServiceFactory > xMSF( ::comphelper::getProcessServiceFactory() ); - Reference < XFilePicker > xFP; - if( xMSF.is() ) - { - Sequence <Any> aServiceType(1); - aServiceType[0] <<= TemplateDescription::FILEOPEN_SIMPLE; - xFP = Reference< XFilePicker >( xMSF->createInstanceWithArguments( - ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.ui.dialogs.FilePicker" ) ), aServiceType ), UNO_QUERY ); - } - xFP->setTitle( String( IDEResId( RID_STR_APPENDLIBS ) ) ); - - // filter - ::rtl::OUString aTitle = String( IDEResId( RID_STR_BASIC ) ); - ::rtl::OUString aFilter; - aFilter = ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "*.sbl;*.xlc;*.xlb" ) ); // library files - aFilter += ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( ";*.sdw;*.sxw;*.odt" ) ); // text - aFilter += ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( ";*.vor;*.stw;*.ott" ) ); // text template - aFilter += ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( ";*.sgl;*.sxg;*.odm" ) ); // master document - aFilter += ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( ";*.oth" ) ); // html document template - aFilter += ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( ";*.sdc;*.sxc;*.ods" ) ); // spreadsheet - aFilter += ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( ";*.stc;*.ots" ) ); // spreadsheet template - aFilter += ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( ";*.sda;*.sxd;*.odg" ) ); // drawing - aFilter += ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( ";*.std;*.otg" ) ); // drawing template - aFilter += ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( ";*.sdd;*.sxi;*.odp" ) ); // presentation - aFilter += ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( ";*.sti;*.otp" ) ); // presentation template - aFilter += ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( ";*.sxm;*.odf" ) ); // formula - Reference< XFilterManager > xFltMgr(xFP, UNO_QUERY); - xFltMgr->appendFilter( aTitle, aFilter ); - - // set display directory and filter - String aPath( IDE_DLL()->GetExtraData()->GetAddLibPath() ); - if ( aPath.Len() ) - { - xFP->setDisplayDirectory( aPath ); - } - else - { - // macro path from configuration management - xFP->setDisplayDirectory( SvtPathOptions().GetWorkPath() ); - } - - String aLastFilter( IDE_DLL()->GetExtraData()->GetAddLibFilter() ); - if ( aLastFilter.Len() ) - { - xFltMgr->setCurrentFilter( aLastFilter ); - } - else - { - xFltMgr->setCurrentFilter( String( IDEResId( RID_STR_BASIC ) ) ); - } - - if ( xFP->execute() == RET_OK ) - { - IDE_DLL()->GetExtraData()->SetAddLibPath( xFP->getDisplayDirectory() ); - IDE_DLL()->GetExtraData()->SetAddLibFilter( xFltMgr->getCurrentFilter() ); - - // library containers for import - Reference< script::XLibraryContainer2 > xModLibContImport; - Reference< script::XLibraryContainer2 > xDlgLibContImport; - - // file URLs - Sequence< ::rtl::OUString > aFiles = xFP->getFiles(); - INetURLObject aURLObj( aFiles[0] ); - INetURLObject aModURLObj( aURLObj ); - INetURLObject aDlgURLObj( aURLObj ); - - String aBase = aURLObj.getBase(); - String aModBase = String::CreateFromAscii( "script" ); - String aDlgBase = String::CreateFromAscii( "dialog" ); - - if ( aBase == aModBase || aBase == aDlgBase ) - { - aModURLObj.setBase( aModBase ); - aDlgURLObj.setBase( aDlgBase ); - } - - if ( xMSF.is() ) - { - Reference< XSimpleFileAccess > xSFA( xMSF->createInstance( - ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.ucb.SimpleFileAccess" ) ) ), UNO_QUERY ); - - if ( xSFA.is() ) - { - ::rtl::OUString aModURL( aModURLObj.GetMainURL( INetURLObject::NO_DECODE ) ); - if ( xSFA->exists( aModURL ) ) - { - Sequence <Any> aSeqModURL(1); - aSeqModURL[0] <<= aModURL; - xModLibContImport = Reference< script::XLibraryContainer2 >( xMSF->createInstanceWithArguments( - ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.script.DocumentScriptLibraryContainer" ) ), aSeqModURL ), UNO_QUERY ); - } - - ::rtl::OUString aDlgURL( aDlgURLObj.GetMainURL( INetURLObject::NO_DECODE ) ); - if ( xSFA->exists( aDlgURL ) ) - { - Sequence <Any> aSeqDlgURL(1); - aSeqDlgURL[0] <<= aDlgURL; - xDlgLibContImport = Reference< script::XLibraryContainer2 >( xMSF->createInstanceWithArguments( - ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.script.DocumentDialogLibraryContainer" ) ), aSeqDlgURL ), UNO_QUERY ); - } - } - } - - if ( xModLibContImport.is() || xDlgLibContImport.is() ) - { - LibDialog* pLibDlg = 0; - - Reference< script::XLibraryContainer > xModLibContImp( xModLibContImport, UNO_QUERY ); - Reference< script::XLibraryContainer > xDlgLibContImp( xDlgLibContImport, UNO_QUERY ); - Sequence< ::rtl::OUString > aLibNames = BasicIDE::GetMergedLibraryNames( xModLibContImp, xDlgLibContImp ); - sal_Int32 nLibCount = aLibNames.getLength(); - const ::rtl::OUString* pLibNames = aLibNames.getConstArray(); - for ( sal_Int32 i = 0 ; i < nLibCount ; i++ ) - { - // library import dialog - if ( !pLibDlg ) - { - pLibDlg = new LibDialog( this ); - pLibDlg->SetStorageName( aURLObj.getName() ); - pLibDlg->GetLibBox().SetMode( LIBMODE_CHOOSER ); - } - - // libbox entries - String aLibName( pLibNames[ i ] ); - String aOULibName( aLibName ); - if ( !( ( xModLibContImport.is() && xModLibContImport->hasByName( aOULibName ) && xModLibContImport->isLibraryLink( aOULibName ) ) || - ( xDlgLibContImport.is() && xDlgLibContImport->hasByName( aOULibName ) && xDlgLibContImport->isLibraryLink( aOULibName ) ) ) ) - { - SvLBoxEntry* pEntry = pLibDlg->GetLibBox().DoInsertEntry( aLibName ); - sal_uInt16 nPos = (sal_uInt16) pLibDlg->GetLibBox().GetModel()->GetAbsPos( pEntry ); - pLibDlg->GetLibBox().CheckEntryPos( nPos, sal_True); - } - } - - if ( !pLibDlg ) - InfoBox( this, String( IDEResId( RID_STR_NOLIBINSTORAGE ) ) ).Execute(); - else - { - sal_Bool bChanges = sal_False; - String aExtension( aURLObj.getExtension() ); - String aLibExtension( String::CreateFromAscii( "xlb" ) ); - String aContExtension( String::CreateFromAscii( "xlc" ) ); - - // disable reference checkbox for documents and sbls - if ( aExtension != aLibExtension && aExtension != aContExtension ) - pLibDlg->EnableReference( sal_False ); - - if ( pLibDlg->Execute() ) - { - sal_uLong nNewPos = aLibBox.GetEntryCount(); - sal_Bool bRemove = sal_False; - sal_Bool bReplace = pLibDlg->IsReplace(); - sal_Bool bReference = pLibDlg->IsReference(); - for ( sal_uInt16 nLib = 0; nLib < pLibDlg->GetLibBox().GetEntryCount(); nLib++ ) - { - if ( pLibDlg->GetLibBox().IsChecked( nLib ) ) - { - SvLBoxEntry* pEntry = pLibDlg->GetLibBox().GetEntry( nLib ); - DBG_ASSERT( pEntry, "Entry?!" ); - String aLibName( pLibDlg->GetLibBox().GetEntryText( pEntry, 0 ) ); - ::rtl::OUString aOULibName( aLibName ); - Reference< script::XLibraryContainer2 > xModLibContainer( m_aCurDocument.getLibraryContainer( E_SCRIPTS ), UNO_QUERY ); - Reference< script::XLibraryContainer2 > xDlgLibContainer( m_aCurDocument.getLibraryContainer( E_DIALOGS ), UNO_QUERY ); - - // check, if the library is already existing - if ( ( xModLibContainer.is() && xModLibContainer->hasByName( aOULibName ) ) || - ( xDlgLibContainer.is() && xDlgLibContainer->hasByName( aOULibName ) ) ) - { - if ( bReplace ) - { - // check, if the library is the Standard library - if ( aLibName.EqualsAscii( "Standard" ) ) - { - ErrorBox( this, WB_OK | WB_DEF_OK, String( IDEResId( RID_STR_REPLACESTDLIB ) ) ).Execute(); - continue; - } - - // check, if the library is readonly and not a link - if ( ( xModLibContainer.is() && xModLibContainer->hasByName( aOULibName ) && xModLibContainer->isLibraryReadOnly( aOULibName ) && !xModLibContainer->isLibraryLink( aOULibName ) ) || - ( xDlgLibContainer.is() && xDlgLibContainer->hasByName( aOULibName ) && xDlgLibContainer->isLibraryReadOnly( aOULibName ) && !xDlgLibContainer->isLibraryLink( aOULibName ) ) ) - { - String aErrStr( IDEResId( RID_STR_REPLACELIB ) ); - aErrStr.SearchAndReplace( String( RTL_CONSTASCII_USTRINGPARAM( "XX" ) ), aLibName ); - aErrStr += '\n'; - aErrStr += String( IDEResId( RID_STR_LIBISREADONLY ) ); - ErrorBox( this, WB_OK | WB_DEF_OK, aErrStr ).Execute(); - continue; - } - - // remove existing libraries - bRemove = sal_True; - } - else - { - String aErrStr; - if ( bReference ) - aErrStr = String( IDEResId( RID_STR_REFNOTPOSSIBLE ) ); - else - aErrStr = String( IDEResId( RID_STR_IMPORTNOTPOSSIBLE ) ); - aErrStr.SearchAndReplace( String( RTL_CONSTASCII_USTRINGPARAM( "XX" ) ), aLibName ); - aErrStr += '\n'; - aErrStr += String( IDEResId( RID_STR_SBXNAMEALLREADYUSED ) ); - ErrorBox( this, WB_OK | WB_DEF_OK, aErrStr ).Execute(); - continue; - } - } - - // check, if the library is password protected - sal_Bool bOK = sal_False; - String aPassword; - if ( xModLibContImport.is() && xModLibContImport->hasByName( aOULibName ) ) - { - Reference< script::XLibraryContainerPassword > xPasswd( xModLibContImport, UNO_QUERY ); - if ( xPasswd.is() && xPasswd->isLibraryPasswordProtected( aOULibName ) && !xPasswd->isLibraryPasswordVerified( aOULibName ) && !bReference ) - { - bOK = QueryPassword( xModLibContImp, aLibName, aPassword, sal_True, sal_True ); - - if ( !bOK ) - { - String aErrStr( IDEResId( RID_STR_NOIMPORT ) ); - aErrStr.SearchAndReplace( String( RTL_CONSTASCII_USTRINGPARAM( "XX" ) ), aLibName ); - ErrorBox( this, WB_OK | WB_DEF_OK, aErrStr ).Execute(); - continue; - } - } - } - - // remove existing libraries - if ( bRemove ) - { - // remove listbox entry - SvLBoxEntry* pEntry_ = aLibBox.FindEntry( aLibName ); - if ( pEntry_ ) - aLibBox.SvTreeListBox::GetModel()->Remove( pEntry_ ); - - // remove module library - if ( xModLibContainer.is() && xModLibContainer->hasByName( aOULibName ) ) - xModLibContainer->removeLibrary( aOULibName ); - - // remove dialog library - if ( xDlgLibContainer.is() && xDlgLibContainer->hasByName( aOULibName ) ) - xDlgLibContainer->removeLibrary( aOULibName ); - } - - // copy module library - if ( xModLibContImport.is() && xModLibContImport->hasByName( aOULibName ) && xModLibContainer.is() && !xModLibContainer->hasByName( aOULibName ) ) - { - Reference< container::XNameContainer > xModLib; - if ( bReference ) - { - // storage URL - INetURLObject aModStorageURLObj( aModURLObj ); - if ( aExtension == aContExtension ) - { - sal_Int32 nCount = aModStorageURLObj.getSegmentCount(); - aModStorageURLObj.insertName( aLibName, false, nCount-1 ); - aModStorageURLObj.setExtension( aLibExtension ); - aModStorageURLObj.setFinalSlash(); - } - ::rtl::OUString aModStorageURL( aModStorageURLObj.GetMainURL( INetURLObject::NO_DECODE ) ); - - // create library link - xModLib = Reference< container::XNameContainer >( xModLibContainer->createLibraryLink( aOULibName, aModStorageURL, sal_True ), UNO_QUERY); - } - else - { - // create library - xModLib = xModLibContainer->createLibrary( aOULibName ); - if ( xModLib.is() ) - { - // get import library - Reference< container::XNameContainer > xModLibImport; - Any aElement = xModLibContImport->getByName( aOULibName ); - aElement >>= xModLibImport; - - if ( xModLibImport.is() ) - { - // load library - if ( !xModLibContImport->isLibraryLoaded( aOULibName ) ) - xModLibContImport->loadLibrary( aOULibName ); - - // copy all modules - Sequence< ::rtl::OUString > aModNames = xModLibImport->getElementNames(); - sal_Int32 nModCount = aModNames.getLength(); - const ::rtl::OUString* pModNames = aModNames.getConstArray(); - for ( sal_Int32 i = 0 ; i < nModCount ; i++ ) - { - ::rtl::OUString aOUModName( pModNames[ i ] ); - Any aElement_ = xModLibImport->getByName( aOUModName ); - xModLib->insertByName( aOUModName, aElement_ ); - } - - // set password - if ( bOK ) - { - Reference< script::XLibraryContainerPassword > xPasswd( xModLibContainer, UNO_QUERY ); - if ( xPasswd.is() ) - { - try - { - ::rtl::OUString aOUPassword( aPassword ); - xPasswd->changeLibraryPassword( aOULibName, ::rtl::OUString(), aOUPassword ); - } - catch (...) - { - } - } - } - } - } - } - } - - // copy dialog library - if ( xDlgLibContImport.is() && xDlgLibContImport->hasByName( aOULibName ) && xDlgLibContainer.is() && !xDlgLibContainer->hasByName( aOULibName ) ) - { - Reference< container::XNameContainer > xDlgLib; - if ( bReference ) - { - // storage URL - INetURLObject aDlgStorageURLObj( aDlgURLObj ); - if ( aExtension == aContExtension ) - { - sal_Int32 nCount = aDlgStorageURLObj.getSegmentCount(); - aDlgStorageURLObj.insertName( aLibName, false, nCount - 1 ); - aDlgStorageURLObj.setExtension( aLibExtension ); - aDlgStorageURLObj.setFinalSlash(); - } - ::rtl::OUString aDlgStorageURL( aDlgStorageURLObj.GetMainURL( INetURLObject::NO_DECODE ) ); - - // create library link - xDlgLib = Reference< container::XNameContainer >( xDlgLibContainer->createLibraryLink( aOULibName, aDlgStorageURL, sal_True ), UNO_QUERY); - } - else - { - // create library - xDlgLib = xDlgLibContainer->createLibrary( aOULibName ); - if ( xDlgLib.is() ) - { - // get import library - Reference< container::XNameContainer > xDlgLibImport; - Any aElement = xDlgLibContImport->getByName( aOULibName ); - aElement >>= xDlgLibImport; - - if ( xDlgLibImport.is() ) - { - // load library - if ( !xDlgLibContImport->isLibraryLoaded( aOULibName ) ) - xDlgLibContImport->loadLibrary( aOULibName ); - - // copy all dialogs - Sequence< ::rtl::OUString > aDlgNames = xDlgLibImport->getElementNames(); - sal_Int32 nDlgCount = aDlgNames.getLength(); - const ::rtl::OUString* pDlgNames = aDlgNames.getConstArray(); - for ( sal_Int32 i = 0 ; i < nDlgCount ; i++ ) - { - ::rtl::OUString aOUDlgName( pDlgNames[ i ] ); - Any aElement_ = xDlgLibImport->getByName( aOUDlgName ); - xDlgLib->insertByName( aOUDlgName, aElement_ ); - } - } - } - } - } - - // insert listbox entry - ImpInsertLibEntry( aLibName, aLibBox.GetEntryCount() ); - bChanges = sal_True; - } - } - - SvLBoxEntry* pFirstNew = aLibBox.GetEntry( nNewPos ); - if ( pFirstNew ) - aLibBox.SetCurEntry( pFirstNew ); - } - - delete pLibDlg; - if ( bChanges ) - BasicIDE::MarkDocumentModified( m_aCurDocument ); - } - } - } -} - -//---------------------------------------------------------------------------- - -void LibPage::Export( void ) -{ - SvLBoxEntry* pCurEntry = aLibBox.GetCurEntry(); - String aLibName( aLibBox.GetEntryText( pCurEntry, 0 ) ); - - // Password verification - ::rtl::OUString aOULibName( aLibName ); - Reference< script::XLibraryContainer2 > xModLibContainer( m_aCurDocument.getLibraryContainer( E_SCRIPTS ), UNO_QUERY ); - - if ( xModLibContainer.is() && xModLibContainer->hasByName( aOULibName ) && !xModLibContainer->isLibraryLoaded( aOULibName ) ) - { - sal_Bool bOK = sal_True; - - // check password - Reference< script::XLibraryContainerPassword > xPasswd( xModLibContainer, UNO_QUERY ); - if ( xPasswd.is() && xPasswd->isLibraryPasswordProtected( aOULibName ) && !xPasswd->isLibraryPasswordVerified( aOULibName ) ) - { - String aPassword; - Reference< script::XLibraryContainer > xModLibContainer1( xModLibContainer, UNO_QUERY ); - bOK = QueryPassword( xModLibContainer1, aLibName, aPassword ); - } - if ( !bOK ) - return; - } - - - Window* pWin = static_cast<Window*>( this ); - std::auto_ptr< ExportDialog > xNewDlg( new ExportDialog( pWin ) ); - - if ( xNewDlg->Execute() == RET_OK ) - { - try - { - if( xNewDlg->isExportAsPackage() ) - ExportAsPackage( aLibName ); - else - ExportAsBasic( aLibName ); - } - catch( util::VetoException& ) // user cancled operation - { - } - } -} - -void LibPage::implExportLib( const String& aLibName, const String& aTargetURL, - const Reference< task::XInteractionHandler >& Handler ) -{ - ::rtl::OUString aOULibName( aLibName ); - Reference< script::XLibraryContainerExport > xModLibContainerExport - ( m_aCurDocument.getLibraryContainer( E_SCRIPTS ), UNO_QUERY ); - Reference< script::XLibraryContainerExport > xDlgLibContainerExport - ( m_aCurDocument.getLibraryContainer( E_DIALOGS ), UNO_QUERY ); - if ( xModLibContainerExport.is() ) - xModLibContainerExport->exportLibrary( aOULibName, aTargetURL, Handler ); - - if ( xDlgLibContainerExport.is() ) - xDlgLibContainerExport->exportLibrary( aOULibName, aTargetURL, Handler ); -} - - -//=========================================================================== -// Implementation XCommandEnvironment - -typedef cppu::WeakImplHelper1< XCommandEnvironment > LibCommandEnvironmentHelper; - -class OLibCommandEnvironment : public LibCommandEnvironmentHelper -{ - Reference< task::XInteractionHandler > mxInteraction; - -public: - OLibCommandEnvironment( Reference< task::XInteractionHandler > xInteraction ) - : mxInteraction( xInteraction ) - {} - - // Methods - virtual Reference< task::XInteractionHandler > SAL_CALL getInteractionHandler() - throw(RuntimeException); - virtual Reference< XProgressHandler > SAL_CALL getProgressHandler() - throw(RuntimeException); -}; - -Reference< task::XInteractionHandler > OLibCommandEnvironment::getInteractionHandler() - throw(RuntimeException) -{ - return mxInteraction; -} - -Reference< XProgressHandler > OLibCommandEnvironment::getProgressHandler() - throw(RuntimeException) -{ - Reference< XProgressHandler > xRet; - return xRet; -} - - - -void LibPage::ExportAsPackage( const String& aLibName ) -{ - // file open dialog - Reference< lang::XMultiServiceFactory > xMSF( ::comphelper::getProcessServiceFactory() ); - Reference< task::XInteractionHandler > xHandler; - Reference< XSimpleFileAccess > xSFA; - Reference < XFilePicker > xFP; - if( xMSF.is() ) - { - xHandler = Reference< task::XInteractionHandler >( xMSF->createInstance - ( DEFINE_CONST_UNICODE("com.sun.star.task.InteractionHandler") ), UNO_QUERY ); - - xSFA = Reference< XSimpleFileAccess > ( xMSF->createInstance( - ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.ucb.SimpleFileAccess" ) ) ), UNO_QUERY ); - if( !xSFA.is() ) - { - OSL_FAIL( "No simpleFileAccess" ); - return; - } - - Sequence <Any> aServiceType(1); - aServiceType[0] <<= TemplateDescription::FILESAVE_SIMPLE; - xFP = Reference< XFilePicker >( xMSF->createInstanceWithArguments( - ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.ui.dialogs.FilePicker" ) ), aServiceType ), UNO_QUERY ); - } - xFP->setTitle( String( IDEResId( RID_STR_EXPORTPACKAGE ) ) ); - - // filter - ::rtl::OUString aTitle = String( IDEResId( RID_STR_PACKAGE_BUNDLE ) ); - ::rtl::OUString aFilter; - aFilter = ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "*.oxt" ) ); // library files - Reference< XFilterManager > xFltMgr(xFP, UNO_QUERY); - xFltMgr->appendFilter( aTitle, aFilter ); - - // set display directory and filter - String aPath( IDE_DLL()->GetExtraData()->GetAddLibPath() ); - if ( aPath.Len() ) - { - xFP->setDisplayDirectory( aPath ); - } - else - { - // macro path from configuration management - xFP->setDisplayDirectory( SvtPathOptions().GetWorkPath() ); - } - xFltMgr->setCurrentFilter( aTitle ); - - if ( xFP->execute() == RET_OK ) - { - IDE_DLL()->GetExtraData()->SetAddLibPath( xFP->getDisplayDirectory() ); - - Sequence< ::rtl::OUString > aFiles = xFP->getFiles(); - INetURLObject aURL( aFiles[0] ); - if( !aURL.getExtension().getLength() ) - aURL.setExtension( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "oxt" ) ) ); - - ::rtl::OUString aPackageURL( aURL.GetMainURL( INetURLObject::NO_DECODE ) ); - - String aTmpPath = SvtPathOptions().GetTempPath(); - INetURLObject aInetObj( aTmpPath ); - aInetObj.insertName( aLibName, sal_True, INetURLObject::LAST_SEGMENT, sal_True, INetURLObject::ENCODE_ALL ); - OUString aSourcePath = aInetObj.GetMainURL( INetURLObject::NO_DECODE ); - if( xSFA->exists( aSourcePath ) ) - xSFA->kill( aSourcePath ); - Reference< task::XInteractionHandler > xDummyHandler( new DummyInteractionHandler( xHandler ) ); - implExportLib( aLibName, aTmpPath, xDummyHandler ); - - Reference< XCommandEnvironment > xCmdEnv = - static_cast<XCommandEnvironment*>( new OLibCommandEnvironment( xHandler ) ); - - ::ucbhelper::Content sourceContent( aSourcePath, xCmdEnv ); - - ::rtl::OUStringBuffer buf; - buf.appendAscii( RTL_CONSTASCII_STRINGPARAM("vnd.sun.star.zip://") ); - buf.append( ::rtl::Uri::encode( aPackageURL, - rtl_UriCharClassRegName, - rtl_UriEncodeIgnoreEscapes, - RTL_TEXTENCODING_UTF8 ) ); - buf.append( static_cast<sal_Unicode>('/') ); - OUString destFolder( buf.makeStringAndClear() ); - - if( xSFA->exists( aPackageURL ) ) - xSFA->kill( aPackageURL ); - - ::ucbhelper::Content destFolderContent( destFolder, xCmdEnv ); - destFolderContent.transferContent( - sourceContent, ::ucbhelper::InsertOperation_COPY, - OUString(), NameClash::OVERWRITE ); - - INetURLObject aMetaInfInetObj( aTmpPath ); - aMetaInfInetObj.insertName( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "META-INF" ) ), - sal_True, INetURLObject::LAST_SEGMENT, sal_True, INetURLObject::ENCODE_ALL ); - OUString aMetaInfFolder = aMetaInfInetObj.GetMainURL( INetURLObject::NO_DECODE ); - if( xSFA->exists( aMetaInfFolder ) ) - xSFA->kill( aMetaInfFolder ); - xSFA->createFolder( aMetaInfFolder ); - - ::std::vector< Sequence<beans::PropertyValue> > manifest; - const OUString strMediaType = ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "MediaType" ) ); - const OUString strFullPath = ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "FullPath" ) ); - const OUString strBasicMediaType = ::rtl::OUString - ( RTL_CONSTASCII_USTRINGPARAM( "application/vnd.sun.star.basic-library" ) ); - - Sequence<beans::PropertyValue> attribs( 2 ); - beans::PropertyValue * pattribs = attribs.getArray(); - pattribs[ 0 ].Name = strFullPath; - OUString fullPath = aLibName; - fullPath += ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "/") ); - pattribs[ 0 ].Value <<= fullPath; - pattribs[ 1 ].Name = strMediaType; - pattribs[ 1 ].Value <<= strBasicMediaType; - manifest.push_back( attribs ); - - // write into pipe: - Reference<packages::manifest::XManifestWriter> xManifestWriter( xMSF->createInstance - ( DEFINE_CONST_UNICODE("com.sun.star.packages.manifest.ManifestWriter") ), UNO_QUERY ); - Reference<io::XOutputStream> xPipe( xMSF->createInstance - ( DEFINE_CONST_UNICODE("com.sun.star.io.Pipe") ), UNO_QUERY ); - xManifestWriter->writeManifestSequence( - xPipe, Sequence< Sequence<beans::PropertyValue> >( - &manifest[ 0 ], manifest.size() ) ); - - aMetaInfInetObj.insertName( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "manifest.xml" ) ), - sal_True, INetURLObject::LAST_SEGMENT, sal_True, INetURLObject::ENCODE_ALL ); - - // write buffered pipe data to content: - ::ucbhelper::Content manifestContent( aMetaInfInetObj.GetMainURL( INetURLObject::NO_DECODE ), xCmdEnv ); - manifestContent.writeStream( Reference<io::XInputStream>( xPipe, UNO_QUERY_THROW ), true ); - - ::ucbhelper::Content MetaInfContent( aMetaInfFolder, xCmdEnv ); - destFolderContent.transferContent( - MetaInfContent, ::ucbhelper::InsertOperation_COPY, - OUString(), NameClash::OVERWRITE ); - - if( xSFA->exists( aSourcePath ) ) - xSFA->kill( aSourcePath ); - if( xSFA->exists( aMetaInfFolder ) ) - xSFA->kill( aMetaInfFolder ); - } -} - -void LibPage::ExportAsBasic( const String& aLibName ) -{ - // Folder picker - Reference< lang::XMultiServiceFactory > xMSF( ::comphelper::getProcessServiceFactory() ); - Reference< XFolderPicker > xFolderPicker; - Reference< task::XInteractionHandler > xHandler; - if( xMSF.is() ) - { - xFolderPicker = Reference< XFolderPicker >( xMSF->createInstance( - ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.ui.dialogs.FolderPicker" ) ) ), UNO_QUERY ); - - xHandler = Reference< task::XInteractionHandler >( xMSF->createInstance - ( DEFINE_CONST_UNICODE("com.sun.star.task.InteractionHandler") ), UNO_QUERY ); - } - - if( xFolderPicker.is() ) - { - xFolderPicker->setTitle( String( IDEResId( RID_STR_EXPORTBASIC ) ) ); - - // set display directory and filter - String aPath( IDE_DLL()->GetExtraData()->GetAddLibPath() ); - if( !aPath.Len() ) - aPath = SvtPathOptions().GetWorkPath(); - - // INetURLObject aURL(m_sSavePath, INET_PROT_FILE); - xFolderPicker->setDisplayDirectory( aPath ); - short nRet = xFolderPicker->execute(); - if( nRet == RET_OK ) - { - String aTargetURL = xFolderPicker->getDirectory(); - IDE_DLL()->GetExtraData()->SetAddLibPath( aTargetURL ); - - Reference< task::XInteractionHandler > xDummyHandler( new DummyInteractionHandler( xHandler ) ); - implExportLib( aLibName, aTargetURL, xDummyHandler ); - } - } -} - -//---------------------------------------------------------------------------- - -void LibPage::DeleteCurrent() -{ - SvLBoxEntry* pCurEntry = aLibBox.GetCurEntry(); - String aLibName( aLibBox.GetEntryText( pCurEntry, 0 ) ); - - // check, if library is link - sal_Bool bIsLibraryLink = sal_False; - ::rtl::OUString aOULibName( aLibName ); - Reference< script::XLibraryContainer2 > xModLibContainer( m_aCurDocument.getLibraryContainer( E_SCRIPTS ), UNO_QUERY ); - Reference< script::XLibraryContainer2 > xDlgLibContainer( m_aCurDocument.getLibraryContainer( E_DIALOGS ), UNO_QUERY ); - if ( ( xModLibContainer.is() && xModLibContainer->hasByName( aOULibName ) && xModLibContainer->isLibraryLink( aOULibName ) ) || - ( xDlgLibContainer.is() && xDlgLibContainer->hasByName( aOULibName ) && xDlgLibContainer->isLibraryLink( aOULibName ) ) ) - { - bIsLibraryLink = sal_True; - } - - if ( QueryDelLib( aLibName, bIsLibraryLink, this ) ) - { - // inform BasicIDE - SfxUsrAnyItem aDocItem( SID_BASICIDE_ARG_DOCUMENT_MODEL, makeAny( m_aCurDocument.getDocumentOrNull() ) ); - SfxStringItem aLibNameItem( SID_BASICIDE_ARG_LIBNAME, aLibName ); - BasicIDEShell* pIDEShell = IDE_DLL()->GetShell(); - SfxViewFrame* pViewFrame = pIDEShell ? pIDEShell->GetViewFrame() : NULL; - SfxDispatcher* pDispatcher = pViewFrame ? pViewFrame->GetDispatcher() : NULL; - if( pDispatcher ) - { - pDispatcher->Execute( SID_BASICIDE_LIBREMOVED, - SFX_CALLMODE_SYNCHRON, &aDocItem, &aLibNameItem, 0L ); - } - - // remove library from module and dialog library containers - if ( xModLibContainer.is() && xModLibContainer->hasByName( aOULibName ) ) - xModLibContainer->removeLibrary( aOULibName ); - if ( xDlgLibContainer.is() && xDlgLibContainer->hasByName( aOULibName ) ) - xDlgLibContainer->removeLibrary( aOULibName ); - - ((SvLBox&)aLibBox).GetModel()->Remove( pCurEntry ); - BasicIDE::MarkDocumentModified( m_aCurDocument ); - } -} - -//---------------------------------------------------------------------------- - -void LibPage::EndTabDialog( sal_uInt16 nRet ) -{ - DBG_ASSERT( pTabDlg, "TabDlg nicht gesetzt!" ); - if ( pTabDlg ) - pTabDlg->EndDialog( nRet ); -} - -//---------------------------------------------------------------------------- - -void LibPage::FillListBox() -{ - InsertListBoxEntry( ScriptDocument::getApplicationScriptDocument(), LIBRARY_LOCATION_USER ); - InsertListBoxEntry( ScriptDocument::getApplicationScriptDocument(), LIBRARY_LOCATION_SHARE ); - - ScriptDocuments aDocuments( ScriptDocument::getAllScriptDocuments( ScriptDocument::DocumentsSorted ) ); - for ( ScriptDocuments::const_iterator doc = aDocuments.begin(); - doc != aDocuments.end(); - ++doc - ) - { - InsertListBoxEntry( *doc, LIBRARY_LOCATION_DOCUMENT ); - } -} - -//---------------------------------------------------------------------------- - -void LibPage::InsertListBoxEntry( const ScriptDocument& rDocument, LibraryLocation eLocation ) -{ - String aEntryText( rDocument.getTitle( eLocation ) ); - sal_uInt16 nPos = aBasicsBox.InsertEntry( aEntryText, LISTBOX_APPEND ); - aBasicsBox.SetEntryData( nPos, new BasicDocumentEntry( rDocument, eLocation ) ); -} - -//---------------------------------------------------------------------------- - -void LibPage::SetCurLib() -{ - sal_uInt16 nSelPos = aBasicsBox.GetSelectEntryPos(); - BasicDocumentEntry* pEntry = (BasicDocumentEntry*)aBasicsBox.GetEntryData( nSelPos ); - if ( pEntry ) - { - ScriptDocument aDocument( pEntry->GetDocument() ); - DBG_ASSERT( aDocument.isAlive(), "LibPage::SetCurLib: no document, or document is dead!" ); - if ( !aDocument.isAlive() ) - return; - LibraryLocation eLocation = pEntry->GetLocation(); - if ( aDocument != m_aCurDocument || eLocation != m_eCurLocation ) - { - m_aCurDocument = aDocument; - m_eCurLocation = eLocation; - aLibBox.SetDocument( aDocument ); - aLibBox.Clear(); - - // get a sorted list of library names - Sequence< ::rtl::OUString > aLibNames = aDocument.getLibraryNames(); - sal_Int32 nLibCount = aLibNames.getLength(); - const ::rtl::OUString* pLibNames = aLibNames.getConstArray(); - - for ( sal_Int32 i = 0 ; i < nLibCount ; i++ ) - { - String aLibName( pLibNames[ i ] ); - if ( eLocation == aDocument.getLibraryLocation( aLibName ) ) - ImpInsertLibEntry( aLibName, i ); - } - - SvLBoxEntry* pEntry_ = aLibBox.FindEntry( String::CreateFromAscii( "Standard" ) ); - if ( !pEntry_ ) - pEntry_ = aLibBox.GetEntry( 0 ); - aLibBox.SetCurEntry( pEntry_ ); - } - } -} - -//---------------------------------------------------------------------------- - -SvLBoxEntry* LibPage::ImpInsertLibEntry( const String& rLibName, sal_uLong nPos ) -{ - // check, if library is password protected - sal_Bool bProtected = sal_False; - ::rtl::OUString aOULibName( rLibName ); - Reference< script::XLibraryContainer2 > xModLibContainer( m_aCurDocument.getLibraryContainer( E_SCRIPTS ), UNO_QUERY ); - if ( xModLibContainer.is() && xModLibContainer->hasByName( aOULibName ) ) - { - Reference< script::XLibraryContainerPassword > xPasswd( xModLibContainer, UNO_QUERY ); - if ( xPasswd.is() ) - { - bProtected = xPasswd->isLibraryPasswordProtected( aOULibName ); - } - } - - SvLBoxEntry* pNewEntry = aLibBox.DoInsertEntry( rLibName, nPos ); - pNewEntry->SetUserData( new BasicLibUserData( m_aCurDocument ) ); - - if (bProtected) - { - Image aImage(IDEResId(RID_IMG_LOCKED)); - aLibBox.SetExpandedEntryBmp(pNewEntry, aImage); - aLibBox.SetCollapsedEntryBmp(pNewEntry, aImage); - } - - // check, if library is link - if ( xModLibContainer.is() && xModLibContainer->hasByName( aOULibName ) && xModLibContainer->isLibraryLink( aOULibName ) ) - { - String aLinkURL = xModLibContainer->getLibraryLinkURL( aOULibName ); - aLibBox.SetEntryText( aLinkURL, pNewEntry, 1 ); - } - - return pNewEntry; -} - -//---------------------------------------------------------------------------- - -// Helper function -void createLibImpl( Window* pWin, const ScriptDocument& rDocument, - BasicCheckBox* pLibBox, BasicTreeListBox* pBasicBox ) -{ - OSL_ENSURE( rDocument.isAlive(), "createLibImpl: invalid document!" ); - if ( !rDocument.isAlive() ) - return; - - // create library name - String aLibName; - String aLibStdName( String( RTL_CONSTASCII_USTRINGPARAM( "Library" ) ) ); - //String aLibStdName( IDEResId( RID_STR_STDLIBNAME ) ); - sal_Bool bValid = sal_False; - sal_uInt16 i = 1; - while ( !bValid ) - { - aLibName = aLibStdName; - aLibName += String::CreateFromInt32( i ); - if ( !rDocument.hasLibrary( E_SCRIPTS, aLibName ) && !rDocument.hasLibrary( E_DIALOGS, aLibName ) ) - bValid = sal_True; - i++; - } - - std::auto_ptr< NewObjectDialog > xNewDlg( new NewObjectDialog( pWin, NEWOBJECTMODE_LIB ) ); - xNewDlg->SetObjectName( aLibName ); - - if ( xNewDlg->Execute() ) - { - if ( xNewDlg->GetObjectName().Len() ) - aLibName = xNewDlg->GetObjectName(); - - if ( aLibName.Len() > 30 ) - { - ErrorBox( pWin, WB_OK | WB_DEF_OK, String( IDEResId( RID_STR_LIBNAMETOLONG ) ) ).Execute(); - } - else if ( !BasicIDE::IsValidSbxName( aLibName ) ) - { - ErrorBox( pWin, WB_OK | WB_DEF_OK, - String( IDEResId( RID_STR_BADSBXNAME ) ) ).Execute(); - } - else if ( rDocument.hasLibrary( E_SCRIPTS, aLibName ) || rDocument.hasLibrary( E_DIALOGS, aLibName ) ) - { - ErrorBox( pWin, WB_OK | WB_DEF_OK, - String( IDEResId( RID_STR_SBXNAMEALLREADYUSED2 ) ) ).Execute(); - } - else - { - try - { - // create module and dialog library - Reference< container::XNameContainer > xModLib( rDocument.getOrCreateLibrary( E_SCRIPTS, aLibName ) ); - Reference< container::XNameContainer > xDlgLib( rDocument.getOrCreateLibrary( E_DIALOGS, aLibName ) ); - - if( pLibBox ) - { - SvLBoxEntry* pEntry = pLibBox->DoInsertEntry( aLibName ); - pEntry->SetUserData( new BasicLibUserData( rDocument ) ); - pLibBox->SetCurEntry( pEntry ); - } - - // create a module - String aModName = rDocument.createObjectName( E_SCRIPTS, aLibName ); - ::rtl::OUString sModuleCode; - if ( !rDocument.createModule( aLibName, aModName, sal_True, sModuleCode ) ) - throw Exception(); - - SbxItem aSbxItem( SID_BASICIDE_ARG_SBX, rDocument, aLibName, aModName, BASICIDE_TYPE_MODULE ); - BasicIDEShell* pIDEShell = IDE_DLL()->GetShell(); - SfxViewFrame* pViewFrame = pIDEShell ? pIDEShell->GetViewFrame() : NULL; - SfxDispatcher* pDispatcher = pViewFrame ? pViewFrame->GetDispatcher() : NULL; - if( pDispatcher ) - { - pDispatcher->Execute( SID_BASICIDE_SBXINSERTED, - SFX_CALLMODE_SYNCHRON, &aSbxItem, 0L ); - } - - if( pBasicBox ) - { - SvLBoxEntry* pEntry = pBasicBox->GetCurEntry(); - SvLBoxEntry* pRootEntry = NULL; - while( pEntry ) - { - pRootEntry = pEntry; - pEntry = pBasicBox->GetParent( pEntry ); - } - - sal_uInt16 nMode = pBasicBox->GetMode(); - bool bDlgMode = ( nMode & BROWSEMODE_DIALOGS ) && !( nMode & BROWSEMODE_MODULES ); - sal_uInt16 nId = bDlgMode ? RID_IMG_DLGLIB : RID_IMG_MODLIB; - SvLBoxEntry* pNewLibEntry = pBasicBox->AddEntry( - aLibName, - Image( IDEResId( nId ) ), - pRootEntry, false, - std::auto_ptr< BasicEntry >( new BasicEntry( OBJ_TYPE_LIBRARY ) ) ); - DBG_ASSERT( pNewLibEntry, "InsertEntry fehlgeschlagen!" ); - - if( pNewLibEntry ) - { - SvLBoxEntry* pEntry_ = pBasicBox->AddEntry( - aModName, - Image( IDEResId( RID_IMG_MODULE ) ), - pNewLibEntry, false, - std::auto_ptr< BasicEntry >( new BasicEntry( OBJ_TYPE_MODULE ) ) ); - DBG_ASSERT( pEntry_, "InsertEntry fehlgeschlagen!" ); - pBasicBox->SetCurEntry( pEntry_ ); - pBasicBox->Select( pBasicBox->GetCurEntry() ); // OV-Bug?! - } - } - } - catch ( uno::Exception& ) - { - DBG_UNHANDLED_EXCEPTION(); - } - } - } -} - -//---------------------------------------------------------------------------- - -/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ |