diff options
Diffstat (limited to 'basctl/source/basicide/moduldlg.cxx')
| -rw-r--r-- | basctl/source/basicide/moduldlg.cxx | 1067 |
1 files changed, 0 insertions, 1067 deletions
diff --git a/basctl/source/basicide/moduldlg.cxx b/basctl/source/basicide/moduldlg.cxx deleted file mode 100644 index 977c6dea0..000000000 --- a/basctl/source/basicide/moduldlg.cxx +++ /dev/null @@ -1,1067 +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" - -#include <memory> - -#include <ide_pch.hxx> - - -#include <moduldlg.hrc> -#include <moduldlg.hxx> -#include <basidesh.hrc> -#include <basidesh.hxx> -#include <bastypes.hxx> -#include <baside3.hxx> -#include <basobj.hxx> -#include <baside2.hrc> -#include <sbxitem.hxx> -#include <iderdll.hxx> - -#include <com/sun/star/io/XInputStreamProvider.hpp> -#include <com/sun/star/script/XLibraryContainer2.hpp> -#include <com/sun/star/script/XLibraryContainerPassword.hpp> -#include <com/sun/star/resource/XStringResourceManager.hpp> -#include <com/sun/star/lang/XMultiServiceFactory.hpp> -#include <comphelper/processfactory.hxx> -#include <xmlscript/xmldlg_imexp.hxx> - -#include "localizationmgr.hxx" -#include <basic/sbx.hxx> -#include <tools/diagnose_ex.h> - -using namespace ::com::sun::star; -using namespace ::com::sun::star::uno; -using namespace ::com::sun::star::lang; -using namespace ::com::sun::star::resource; - - -ExtBasicTreeListBox::ExtBasicTreeListBox( Window* pParent, const ResId& rRes ) - : BasicTreeListBox( pParent, rRes ) -{ -} - - - -ExtBasicTreeListBox::~ExtBasicTreeListBox() -{ -} - -sal_Bool ExtBasicTreeListBox::EditingEntry( SvLBoxEntry* pEntry, Selection& ) -{ - sal_Bool bRet = sal_False; - - if ( pEntry ) - { - sal_uInt16 nDepth = GetModel()->GetDepth( pEntry ); - if ( nDepth >= 2 ) - { - BasicEntryDescriptor aDesc( GetEntryDescriptor( pEntry ) ); - ScriptDocument aDocument( aDesc.GetDocument() ); - ::rtl::OUString aOULibName( aDesc.GetLibName() ); - Reference< script::XLibraryContainer2 > xModLibContainer( aDocument.getLibraryContainer( E_SCRIPTS ), UNO_QUERY ); - Reference< script::XLibraryContainer2 > xDlgLibContainer( aDocument.getLibraryContainer( E_DIALOGS ), UNO_QUERY ); - if ( !( ( xModLibContainer.is() && xModLibContainer->hasByName( aOULibName ) && xModLibContainer->isLibraryReadOnly( aOULibName ) ) || - ( xDlgLibContainer.is() && xDlgLibContainer->hasByName( aOULibName ) && xDlgLibContainer->isLibraryReadOnly( aOULibName ) ) ) ) - { - // allow editing only for libraries, which are not readonly - bRet = sal_True; - } - } - } - - return bRet; -} - -sal_Bool ExtBasicTreeListBox::EditedEntry( SvLBoxEntry* pEntry, const String& rNewText ) -{ - sal_Bool bValid = BasicIDE::IsValidSbxName( rNewText ); - if ( !bValid ) - { - ErrorBox( this, WB_OK | WB_DEF_OK, String( IDEResId( RID_STR_BADSBXNAME ) ) ).Execute(); - return sal_False; - } - - String aCurText( GetEntryText( pEntry ) ); - if ( aCurText == rNewText ) - // nothing to do - return sal_True; - - BasicEntryDescriptor aDesc( GetEntryDescriptor( pEntry ) ); - ScriptDocument aDocument( aDesc.GetDocument() ); - DBG_ASSERT( aDocument.isValid(), "ExtBasicTreeListBox::EditedEntry: no document!" ); - if ( !aDocument.isValid() ) - return sal_False; - String aLibName( aDesc.GetLibName() ); - BasicEntryType eType( aDesc.GetType() ); - - bool bSuccess = ( eType == OBJ_TYPE_MODULE ) - ? BasicIDE::RenameModule( this, aDocument, aLibName, aCurText, rNewText ) - : BasicIDE::RenameDialog( this, aDocument, aLibName, aCurText, rNewText ); - - if ( !bSuccess ) - return sal_False; - - BasicIDE::MarkDocumentModified( aDocument ); - - BasicIDEShell* pIDEShell = IDE_DLL()->GetShell(); - SfxViewFrame* pViewFrame = pIDEShell ? pIDEShell->GetViewFrame() : NULL; - SfxDispatcher* pDispatcher = pViewFrame ? pViewFrame->GetDispatcher() : NULL; - if( pDispatcher ) - { - SbxItem aSbxItem( SID_BASICIDE_ARG_SBX, aDocument, aLibName, rNewText, ConvertType( eType ) ); - pDispatcher->Execute( SID_BASICIDE_SBXRENAMED, - SFX_CALLMODE_SYNCHRON, &aSbxItem, 0L ); - } - - // OV-Bug?! - SetEntryText( pEntry, rNewText ); - SetCurEntry( pEntry ); - SetCurEntry( pEntry ); - Select( pEntry, sal_False ); - Select( pEntry ); // damit Handler gerufen wird => Edit updaten - - return sal_True; -} - - -DragDropMode ExtBasicTreeListBox::NotifyStartDrag( TransferDataContainer&, SvLBoxEntry* pEntry ) -{ - DragDropMode nMode_ = SV_DRAGDROP_NONE; - - if ( pEntry ) - { - sal_uInt16 nDepth = GetModel()->GetDepth( pEntry ); - if ( nDepth >= 2 ) - { - nMode_ = SV_DRAGDROP_CTRL_COPY; - BasicEntryDescriptor aDesc( GetEntryDescriptor( pEntry ) ); - ScriptDocument aDocument( aDesc.GetDocument() ); - ::rtl::OUString aOULibName( aDesc.GetLibName() ); - // allow MOVE mode only for libraries, which are not readonly - Reference< script::XLibraryContainer2 > xModLibContainer( aDocument.getLibraryContainer( E_SCRIPTS ), UNO_QUERY ); - Reference< script::XLibraryContainer2 > xDlgLibContainer( aDocument.getLibraryContainer( E_DIALOGS ), UNO_QUERY ); - if ( !( ( xModLibContainer.is() && xModLibContainer->hasByName( aOULibName ) && xModLibContainer->isLibraryReadOnly( aOULibName ) ) || - ( xDlgLibContainer.is() && xDlgLibContainer->hasByName( aOULibName ) && xDlgLibContainer->isLibraryReadOnly( aOULibName ) ) ) ) - { - // Only allow copy for localized libraries - bool bAllowMove = true; - if ( xDlgLibContainer.is() && xDlgLibContainer->hasByName( aOULibName ) ) - { - // Get StringResourceManager - Reference< container::XNameContainer > xDialogLib( aDocument.getLibrary( E_DIALOGS, aOULibName, sal_True ) ); - Reference< XStringResourceManager > xSourceMgr = - LocalizationMgr::getStringResourceFromDialogLibrary( xDialogLib ); - if( xSourceMgr.is() ) - bAllowMove = ( xSourceMgr->getLocales().getLength() == 0 ); - } - if( bAllowMove ) - nMode_ |= SV_DRAGDROP_CTRL_MOVE; - } - } - } - - return nMode_; -} - - -sal_Bool ExtBasicTreeListBox::NotifyAcceptDrop( SvLBoxEntry* pEntry ) -{ - // don't drop on a BasicManager (nDepth == 0) - sal_uInt16 nDepth = pEntry ? GetModel()->GetDepth( pEntry ) : 0; - sal_Bool bValid = nDepth ? sal_True : sal_False; - - // don't drop in the same library - SvLBoxEntry* pSelected = FirstSelected(); - if ( ( nDepth == 1 ) && ( pEntry == GetParent( pSelected ) ) ) - bValid = sal_False; - else if ( ( nDepth == 2 ) && ( GetParent( pEntry ) == GetParent( pSelected ) ) ) - bValid = sal_False; - - // don't drop on a library, which is not loaded, readonly or password protected - // or which already has a module/dialog with this name - if ( bValid && ( nDepth > 0 ) ) - { - // get source module/dialog name - BasicEntryDescriptor aSourceDesc( GetEntryDescriptor( pSelected ) ); - String aSourceName( aSourceDesc.GetName() ); - BasicEntryType eSourceType( aSourceDesc.GetType() ); - - // get target shell and target library name - BasicEntryDescriptor aDestDesc( GetEntryDescriptor( pEntry ) ); - const ScriptDocument& rDestDoc( aDestDesc.GetDocument() ); - String aDestLibName( aDestDesc.GetLibName() ); - ::rtl::OUString aOUDestLibName( aDestLibName ); - - // check if module library is not loaded, readonly or password protected - Reference< script::XLibraryContainer2 > xModLibContainer( rDestDoc.getLibraryContainer( E_SCRIPTS ), UNO_QUERY ); - if ( xModLibContainer.is() && xModLibContainer->hasByName( aOUDestLibName ) ) - { - if ( !xModLibContainer->isLibraryLoaded( aOUDestLibName ) ) - bValid = sal_False; - - if ( xModLibContainer->isLibraryReadOnly( aOUDestLibName ) ) - bValid = sal_False; - - Reference< script::XLibraryContainerPassword > xPasswd( xModLibContainer, UNO_QUERY ); - if ( xPasswd.is() && xPasswd->isLibraryPasswordProtected( aOUDestLibName ) && !xPasswd->isLibraryPasswordVerified( aOUDestLibName ) ) - bValid = sal_False; - } - - // check if dialog library is not loaded or readonly - Reference< script::XLibraryContainer2 > xDlgLibContainer( rDestDoc.getLibraryContainer( E_DIALOGS ), UNO_QUERY ); - if ( xDlgLibContainer.is() && xDlgLibContainer->hasByName( aOUDestLibName ) ) - { - if ( !xDlgLibContainer->isLibraryLoaded( aOUDestLibName ) ) - bValid = sal_False; - - if ( xDlgLibContainer->isLibraryReadOnly( aOUDestLibName ) ) - bValid = sal_False; - } - - // check, if module/dialog with this name is already existing in target library - if ( ( eSourceType == OBJ_TYPE_MODULE && rDestDoc.hasModule( aDestLibName, aSourceName ) ) || - ( eSourceType == OBJ_TYPE_DIALOG && rDestDoc.hasDialog( aDestLibName, aSourceName ) ) ) - { - bValid = sal_False; - } - } - - return bValid; -} - - -sal_Bool ExtBasicTreeListBox::NotifyMoving( SvLBoxEntry* pTarget, SvLBoxEntry* pEntry, - SvLBoxEntry*& rpNewParent, sal_uLong& rNewChildPos ) -{ - return NotifyCopyingMoving( pTarget, pEntry, - rpNewParent, rNewChildPos, sal_True ); -} - - -sal_Bool ExtBasicTreeListBox::NotifyCopying( SvLBoxEntry* pTarget, SvLBoxEntry* pEntry, - SvLBoxEntry*& rpNewParent, sal_uLong& rNewChildPos ) -{ -// return sal_False; // Wie kopiere ich ein SBX ?! - return NotifyCopyingMoving( pTarget, pEntry, - rpNewParent, rNewChildPos, sal_False ); -} - - -void BasicIDEShell::CopyDialogResources( Reference< io::XInputStreamProvider >& io_xISP, - const ScriptDocument& rSourceDoc, const String& rSourceLibName, const ScriptDocument& rDestDoc, - const String& rDestLibName, const String& rDlgName ) -{ - if ( !io_xISP.is() ) - return; - - // Get StringResourceManager - Reference< container::XNameContainer > xSourceDialogLib( rSourceDoc.getLibrary( E_DIALOGS, rSourceLibName, sal_True ) ); - Reference< XStringResourceManager > xSourceMgr = - LocalizationMgr::getStringResourceFromDialogLibrary( xSourceDialogLib ); - if( !xSourceMgr.is() ) - return; - bool bSourceLocalized = ( xSourceMgr->getLocales().getLength() > 0 ); - - Reference< container::XNameContainer > xDestDialogLib( rDestDoc.getLibrary( E_DIALOGS, rDestLibName, sal_True ) ); - Reference< XStringResourceManager > xDestMgr = - LocalizationMgr::getStringResourceFromDialogLibrary( xDestDialogLib ); - if( !xDestMgr.is() ) - return; - bool bDestLocalized = ( xDestMgr->getLocales().getLength() > 0 ); - - if( !bSourceLocalized && !bDestLocalized ) - return; - - // create dialog model - Reference< lang::XMultiServiceFactory > xMSF = ::comphelper::getProcessServiceFactory(); - Reference< container::XNameContainer > xDialogModel = Reference< container::XNameContainer >( xMSF->createInstance - ( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.UnoControlDialogModel" ) ) ), UNO_QUERY ); - Reference< io::XInputStream > xInput( io_xISP->createInputStream() ); - Reference< XComponentContext > xContext; - Reference< beans::XPropertySet > xProps( xMSF, UNO_QUERY ); - OSL_ASSERT( xProps.is() ); - OSL_VERIFY( xProps->getPropertyValue( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("DefaultContext")) ) >>= xContext ); - ::xmlscript::importDialogModel( xInput, xDialogModel, xContext, rSourceDoc.isDocument() ? rSourceDoc.getDocument() : Reference< frame::XModel >() ); - - if( xDialogModel.is() ) - { - if( bSourceLocalized && bDestLocalized ) - { - Reference< resource::XStringResourceResolver > xSourceStringResolver( xSourceMgr, UNO_QUERY ); - LocalizationMgr::copyResourceForDroppedDialog( xDialogModel, rDlgName, xDestMgr, xSourceStringResolver ); - } - else if( bSourceLocalized ) - { - LocalizationMgr::resetResourceForDialog( xDialogModel, xSourceMgr ); - } - else if( bDestLocalized ) - { - LocalizationMgr::setResourceIDsForDialog( xDialogModel, xDestMgr ); - } - io_xISP = ::xmlscript::exportDialogModel( xDialogModel, xContext, rDestDoc.isDocument() ? rDestDoc.getDocument() : Reference< frame::XModel >() ); - } -} - - -sal_Bool ExtBasicTreeListBox::NotifyCopyingMoving( SvLBoxEntry* pTarget, SvLBoxEntry* pEntry, - SvLBoxEntry*& rpNewParent, sal_uLong& rNewChildPos, sal_Bool bMove ) -{ - (void)pEntry; - DBG_ASSERT( pEntry, "Kein Eintrag?" ); // Hier ASS ok, sollte nicht mit - DBG_ASSERT( pTarget, "Kein Ziel?" ); // NULL (ganz vorne) erreicht werden - sal_uInt16 nDepth = GetModel()->GetDepth( pTarget ); - DBG_ASSERT( nDepth, "Tiefe?" ); - if ( nDepth == 1 ) - { - // Target = Basic => Modul/Dialog unter das Basic haengen... - rpNewParent = pTarget; - rNewChildPos = 0; - } - else if ( nDepth >= 2 ) - { - // Target = Modul/Dialog => Modul/Dialog unter das uebergeordnete Basic haengen... - rpNewParent = GetParent( pTarget ); - rNewChildPos = GetModel()->GetRelPos( pTarget ) + 1; - } - - // get target shell and target library name - BasicEntryDescriptor aDestDesc( GetEntryDescriptor( rpNewParent ) ); - const ScriptDocument& rDestDoc( aDestDesc.GetDocument() ); - String aDestLibName( aDestDesc.GetLibName() ); - - // get source shell, library name and module/dialog name - BasicEntryDescriptor aSourceDesc( GetEntryDescriptor( FirstSelected() ) ); - const ScriptDocument rSourceDoc( aSourceDesc.GetDocument() ); - String aSourceLibName( aSourceDesc.GetLibName() ); - String aSourceName( aSourceDesc.GetName() ); - BasicEntryType eType( aSourceDesc.GetType() ); - - // get dispatcher - BasicIDEShell* pIDEShell = IDE_DLL()->GetShell(); - SfxViewFrame* pViewFrame = pIDEShell ? pIDEShell->GetViewFrame() : NULL; - SfxDispatcher* pDispatcher = pViewFrame ? pViewFrame->GetDispatcher() : NULL; - - if ( bMove ) // move - { - // remove source module/dialog window - if ( rSourceDoc != rDestDoc || aSourceLibName != aDestLibName ) - { - if( pDispatcher ) - { - SbxItem aSbxItem( SID_BASICIDE_ARG_SBX, rSourceDoc, aSourceLibName, aSourceName, ConvertType( eType ) ); - pDispatcher->Execute( SID_BASICIDE_SBXDELETED, - SFX_CALLMODE_SYNCHRON, &aSbxItem, 0L ); - } - } - - try - { - if ( eType == OBJ_TYPE_MODULE ) // module - { - // get module - ::rtl::OUString aModule; - if ( rSourceDoc.getModule( aSourceLibName, aSourceName, aModule ) ) - { - // remove module from source library - if ( rSourceDoc.removeModule( aSourceLibName, aSourceName ) ) - { - BasicIDE::MarkDocumentModified( rSourceDoc ); - - // insert module into target library - if ( rDestDoc.insertModule( aDestLibName, aSourceName, aModule ) ) - BasicIDE::MarkDocumentModified( rDestDoc ); - } - } - } - else if ( eType == OBJ_TYPE_DIALOG ) // dialog - { - // get dialog - Reference< io::XInputStreamProvider > xISP; - if ( rSourceDoc.getDialog( aSourceLibName, aSourceName, xISP ) ) - { - BasicIDEShell::CopyDialogResources( xISP, rSourceDoc, - aSourceLibName, rDestDoc, aDestLibName, aSourceName ); - - // remove dialog from source library - if ( BasicIDE::RemoveDialog( rSourceDoc, aSourceLibName, aSourceName ) ) - { - BasicIDE::MarkDocumentModified( rSourceDoc ); - - // insert dialog into target library - if ( rDestDoc.insertDialog( aDestLibName, aSourceName, xISP ) ) - BasicIDE::MarkDocumentModified( rDestDoc ); - } - } - } - } - catch ( uno::Exception& ) - { - DBG_UNHANDLED_EXCEPTION(); - } - } - else // copy - { - try - { - if ( eType == OBJ_TYPE_MODULE ) // module - { - // get module - ::rtl::OUString aModule; - if ( rSourceDoc.getModule( aSourceLibName, aSourceName, aModule ) ) - { - // insert module into target library - if ( rDestDoc.insertModule( aDestLibName, aSourceName, aModule ) ) - BasicIDE::MarkDocumentModified( rDestDoc ); - } - } - else if ( eType == OBJ_TYPE_DIALOG ) // dialog - { - // get dialog - Reference< io::XInputStreamProvider > xISP; - if ( rSourceDoc.getDialog( aSourceLibName, aSourceName, xISP ) ) - { - BasicIDEShell::CopyDialogResources( xISP, rSourceDoc, - aSourceLibName, rDestDoc, aDestLibName, aSourceName ); - - // insert dialog into target library - if ( rDestDoc.insertDialog( aDestLibName, aSourceName, xISP ) ) - BasicIDE::MarkDocumentModified( rDestDoc ); - } - } - } - catch ( const Exception& ) - { - DBG_UNHANDLED_EXCEPTION(); - } - } - - // create target module/dialog window - if ( rSourceDoc != rDestDoc || aSourceLibName != aDestLibName ) - { - if( pDispatcher ) - { - SbxItem aSbxItem( SID_BASICIDE_ARG_SBX, rDestDoc, aDestLibName, aSourceName, ConvertType( eType ) ); - pDispatcher->Execute( SID_BASICIDE_SBXINSERTED, - SFX_CALLMODE_SYNCHRON, &aSbxItem, 0L ); - } - } - - return 2; // Aufklappen... -} - -OrganizeDialog::OrganizeDialog( Window* pParent, sal_Int16 tabId, BasicEntryDescriptor& rDesc ) - :TabDialog( pParent, IDEResId( RID_TD_ORGANIZE ) ) - ,aTabCtrl( this, IDEResId( RID_TC_ORGANIZE ) ) - ,m_aCurEntry( rDesc ) -{ - FreeResource(); - aTabCtrl.SetActivatePageHdl( LINK( this, OrganizeDialog, ActivatePageHdl ) ); - if( tabId == 0 ) - { - aTabCtrl.SetCurPageId( RID_TP_MOD ); - } - else if ( tabId == 1 ) - { - aTabCtrl.SetCurPageId( RID_TP_DLG ); - } - else - { - aTabCtrl.SetCurPageId( RID_TP_LIB ); - } - - ActivatePageHdl( &aTabCtrl ); - - BasicIDEShell* pIDEShell = IDE_DLL()->GetShell(); - SfxViewFrame* pViewFrame = pIDEShell ? pIDEShell->GetViewFrame() : NULL; - SfxDispatcher* pDispatcher = pViewFrame ? pViewFrame->GetDispatcher() : NULL; - if( pDispatcher ) - { - pDispatcher->Execute( SID_BASICIDE_STOREALLMODULESOURCES ); - } -} - -OrganizeDialog::~OrganizeDialog() -{ - for ( sal_uInt16 i = 0; i < aTabCtrl.GetPageCount(); i++ ) - delete aTabCtrl.GetTabPage( aTabCtrl.GetPageId( i ) ); -}; - -short OrganizeDialog::Execute() -{ - Window* pPrevDlgParent = Application::GetDefDialogParent(); - Application::SetDefDialogParent( this ); - short nRet = TabDialog::Execute(); - Application::SetDefDialogParent( pPrevDlgParent ); - return nRet; -} - - -IMPL_LINK( OrganizeDialog, ActivatePageHdl, TabControl *, pTabCtrl ) -{ - sal_uInt16 nId = pTabCtrl->GetCurPageId(); - // Wenn TabPage noch nicht erzeugt wurde, dann erzeugen - if ( !pTabCtrl->GetTabPage( nId ) ) - { - TabPage* pNewTabPage = 0; - switch ( nId ) - { - case RID_TP_MOD: - { - pNewTabPage = new ObjectPage( pTabCtrl, IDEResId( RID_TP_MODULS ), BROWSEMODE_MODULES ); - ((ObjectPage*)pNewTabPage)->SetTabDlg( this ); - ((ObjectPage*)pNewTabPage)->SetCurrentEntry( m_aCurEntry ); - } - break; - case RID_TP_DLG: - { - pNewTabPage = new ObjectPage( pTabCtrl, IDEResId( RID_TP_DLGS ), BROWSEMODE_DIALOGS ); - ((ObjectPage*)pNewTabPage)->SetTabDlg( this ); - ((ObjectPage*)pNewTabPage)->SetCurrentEntry( m_aCurEntry ); - } - break; - case RID_TP_LIB: - { - pNewTabPage = new LibPage( pTabCtrl ); - ((LibPage*)pNewTabPage)->SetTabDlg( this ); - } - break; - default: OSL_FAIL( "PageHdl: Unbekannte ID!" ); - } - DBG_ASSERT( pNewTabPage, "Keine Page!" ); - pTabCtrl->SetTabPage( nId, pNewTabPage ); - } - return 0; -} - -ObjectPage::ObjectPage( Window * pParent, const ResId& rResId, sal_uInt16 nMode ) : - TabPage( pParent, rResId ), - aLibText( this, IDEResId( RID_STR_LIB ) ), - aBasicBox( this, IDEResId( RID_TRLBOX ) ), - aEditButton( this, IDEResId( RID_PB_EDIT ) ), - aCloseButton( this, IDEResId( RID_PB_CLOSE ) ), - aNewModButton( this, IDEResId( RID_PB_NEWMOD ) ), - aNewDlgButton( this, IDEResId( RID_PB_NEWDLG ) ), - aDelButton( this, IDEResId( RID_PB_DELETE ) ) -{ - FreeResource(); - pTabDlg = 0; - - aEditButton.SetClickHdl( LINK( this, ObjectPage, ButtonHdl ) ); - aDelButton.SetClickHdl( LINK( this, ObjectPage, ButtonHdl ) ); - aCloseButton.SetClickHdl( LINK( this, ObjectPage, ButtonHdl ) ); - aBasicBox.SetSelectHdl( LINK( this, ObjectPage, BasicBoxHighlightHdl ) ); - - if( nMode & BROWSEMODE_MODULES ) - { - aNewModButton.SetClickHdl( LINK( this, ObjectPage, ButtonHdl ) ); - aNewDlgButton.Hide(); - } - else if ( nMode & BROWSEMODE_DIALOGS ) - { - aNewDlgButton.SetClickHdl( LINK( this, ObjectPage, ButtonHdl ) ); - aNewModButton.Hide(); - } - - aBasicBox.SetDragDropMode( SV_DRAGDROP_CTRL_MOVE | SV_DRAGDROP_CTRL_COPY ); - aBasicBox.EnableInplaceEditing( sal_True ); - aBasicBox.SetMode( nMode ); - aBasicBox.SetStyle( WB_BORDER | WB_TABSTOP | - WB_HASLINES | WB_HASLINESATROOT | - WB_HASBUTTONS | WB_HASBUTTONSATROOT | - WB_HSCROLL ); - aBasicBox.ScanAllEntries(); - - aEditButton.GrabFocus(); - CheckButtons(); -} - -void ObjectPage::SetCurrentEntry( BasicEntryDescriptor& rDesc ) -{ - aBasicBox.SetCurrentEntry( rDesc ); -} - -void ObjectPage::ActivatePage() -{ - aBasicBox.UpdateEntries(); -} - -void ObjectPage::DeactivatePage() -{ -} - -void ObjectPage::CheckButtons() -{ - // enable/disable edit button - SvLBoxEntry* pCurEntry = aBasicBox.GetCurEntry(); - BasicEntryDescriptor aDesc( aBasicBox.GetEntryDescriptor( pCurEntry ) ); - ScriptDocument aDocument( aDesc.GetDocument() ); - ::rtl::OUString aOULibName( aDesc.GetLibName() ); - String aLibSubName( aDesc.GetLibSubName() ); - sal_Bool bVBAEnabled = aDocument.isInVBAMode(); - sal_uInt16 nMode = aBasicBox.GetMode(); - - sal_uInt16 nDepth = pCurEntry ? aBasicBox.GetModel()->GetDepth( pCurEntry ) : 0; - if ( nDepth >= 2 ) - { - if( bVBAEnabled && ( nMode & BROWSEMODE_MODULES ) && ( nDepth == 2 ) ) - aEditButton.Disable(); - else - aEditButton.Enable(); - } - else - aEditButton.Disable(); - - // enable/disable new module/dialog buttons - LibraryLocation eLocation( aDesc.GetLocation() ); - sal_Bool bReadOnly = sal_False; - if ( nDepth > 0 ) - { - Reference< script::XLibraryContainer2 > xModLibContainer( aDocument.getLibraryContainer( E_SCRIPTS ), UNO_QUERY ); - Reference< script::XLibraryContainer2 > xDlgLibContainer( aDocument.getLibraryContainer( E_DIALOGS ), UNO_QUERY ); - if ( ( xModLibContainer.is() && xModLibContainer->hasByName( aOULibName ) && xModLibContainer->isLibraryReadOnly( aOULibName ) ) || - ( xDlgLibContainer.is() && xDlgLibContainer->hasByName( aOULibName ) && xDlgLibContainer->isLibraryReadOnly( aOULibName ) ) ) - { - bReadOnly = sal_True; - } - } - if ( bReadOnly || eLocation == LIBRARY_LOCATION_SHARE ) - { - aNewModButton.Disable(); - aNewDlgButton.Disable(); - } - else - { - aNewModButton.Enable(); - aNewDlgButton.Enable(); - } - - // enable/disable delete button - if ( nDepth >= 2 && !bReadOnly && eLocation != LIBRARY_LOCATION_SHARE ) - { - if( bVBAEnabled && ( nMode & BROWSEMODE_MODULES ) && ( ( nDepth == 2 ) || aLibSubName.Equals( String( IDEResId( RID_STR_DOCUMENT_OBJECTS ) ) ) ) ) - aDelButton.Disable(); - else - aDelButton.Enable(); - } - else - aDelButton.Disable(); -} - -IMPL_LINK( ObjectPage, BasicBoxHighlightHdl, BasicTreeListBox *, pBox ) -{ - if ( !pBox->IsSelected( pBox->GetHdlEntry() ) ) - return 0; - - CheckButtons(); - return 0; -} - -IMPL_LINK( ObjectPage, ButtonHdl, Button *, pButton ) -{ - if ( pButton == &aEditButton ) - { - SfxAllItemSet aArgs( SFX_APP()->GetPool() ); - SfxRequest aRequest( SID_BASICIDE_APPEAR, SFX_CALLMODE_SYNCHRON, aArgs ); - SFX_APP()->ExecuteSlot( aRequest ); - - BasicIDEShell* pIDEShell = IDE_DLL()->GetShell(); - SfxViewFrame* pViewFrame = pIDEShell ? pIDEShell->GetViewFrame() : NULL; - SfxDispatcher* pDispatcher = pViewFrame ? pViewFrame->GetDispatcher() : NULL; - SvLBoxEntry* pCurEntry = aBasicBox.GetCurEntry(); - DBG_ASSERT( pCurEntry, "Entry?!" ); - if ( aBasicBox.GetModel()->GetDepth( pCurEntry ) >= 2 ) - { - BasicEntryDescriptor aDesc( aBasicBox.GetEntryDescriptor( pCurEntry ) ); - if ( pDispatcher ) - { - String aModName( aDesc.GetName() ); - // extract the module name from the string like "Sheet1 (Example1)" - if( aDesc.GetLibSubName().Equals( String( IDEResId( RID_STR_DOCUMENT_OBJECTS ) ) ) ) - { - sal_uInt16 nIndex = 0; - aModName = aModName.GetToken( 0, ' ', nIndex ); - } - SbxItem aSbxItem( SID_BASICIDE_ARG_SBX, aDesc.GetDocument(), aDesc.GetLibName(), - aModName, aBasicBox.ConvertType( aDesc.GetType() ) ); - pDispatcher->Execute( SID_BASICIDE_SHOWSBX, SFX_CALLMODE_SYNCHRON, &aSbxItem, 0L ); - } - } - else // Nur Lib selektiert - { - DBG_ASSERT( aBasicBox.GetModel()->GetDepth( pCurEntry ) == 1, "Kein LibEntry?!" ); - ScriptDocument aDocument( ScriptDocument::getApplicationScriptDocument() ); - SvLBoxEntry* pParentEntry = aBasicBox.GetParent( pCurEntry ); - if ( pParentEntry ) - { - BasicDocumentEntry* pBasicDocumentEntry = (BasicDocumentEntry*)pParentEntry->GetUserData(); - if ( pBasicDocumentEntry ) - aDocument = pBasicDocumentEntry->GetDocument(); - } - SfxUsrAnyItem aDocItem( SID_BASICIDE_ARG_DOCUMENT_MODEL, makeAny( aDocument.getDocumentOrNull() ) ); - String aLibName( aBasicBox.GetEntryText( pCurEntry ) ); - SfxStringItem aLibNameItem( SID_BASICIDE_ARG_LIBNAME, aLibName ); - if ( pDispatcher ) - { - pDispatcher->Execute( SID_BASICIDE_LIBSELECTED, SFX_CALLMODE_ASYNCHRON, &aDocItem, &aLibNameItem, 0L ); - } - } - EndTabDialog( 1 ); - } - else if ( pButton == &aNewModButton ) - NewModule(); - else if ( pButton == &aNewDlgButton ) - NewDialog(); - else if ( pButton == &aDelButton ) - DeleteCurrent(); - else if ( pButton == &aCloseButton ) - EndTabDialog( 0 ); - - return 0; -} - -bool ObjectPage::GetSelection( ScriptDocument& rDocument, String& rLibName ) -{ - bool bRet = false; - - SvLBoxEntry* pCurEntry = aBasicBox.GetCurEntry(); - BasicEntryDescriptor aDesc( aBasicBox.GetEntryDescriptor( pCurEntry ) ); - rDocument = aDesc.GetDocument(); - rLibName = aDesc.GetLibName(); - if ( !rLibName.Len() ) - rLibName = String::CreateFromAscii( "Standard" ); - - DBG_ASSERT( rDocument.isAlive(), "ObjectPage::GetSelection: no or dead ScriptDocument in the selection!" ); - if ( !rDocument.isAlive() ) - return false; - - // check if the module library is loaded - sal_Bool bOK = sal_True; - ::rtl::OUString aOULibName( rLibName ); - Reference< script::XLibraryContainer > xModLibContainer( rDocument.getLibraryContainer( E_SCRIPTS ) ); - 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; - bOK = QueryPassword( xModLibContainer, rLibName, aPassword ); - } - - // load library - if ( bOK ) - xModLibContainer->loadLibrary( aOULibName ); - } - - // check if the dialog library is loaded - Reference< script::XLibraryContainer > xDlgLibContainer( rDocument.getLibraryContainer( E_DIALOGS ) ); - if ( xDlgLibContainer.is() && xDlgLibContainer->hasByName( aOULibName ) && !xDlgLibContainer->isLibraryLoaded( aOULibName ) ) - { - // load library - if ( bOK ) - xDlgLibContainer->loadLibrary( aOULibName ); - } - - if ( bOK ) - bRet = true; - - return bRet; -} - -void ObjectPage::NewModule() -{ - ScriptDocument aDocument( ScriptDocument::getApplicationScriptDocument() ); - String aLibName; - - if ( GetSelection( aDocument, aLibName ) ) - { - String aModName; - createModImpl( static_cast<Window*>( this ), aDocument, - aBasicBox, aLibName, aModName, true ); - } -} - -void ObjectPage::NewDialog() -{ - ScriptDocument aDocument( ScriptDocument::getApplicationScriptDocument() ); - String aLibName; - - if ( GetSelection( aDocument, aLibName ) ) - { - aDocument.getOrCreateLibrary( E_DIALOGS, aLibName ); - - std::auto_ptr< NewObjectDialog > xNewDlg( - new NewObjectDialog(this, NEWOBJECTMODE_DLG, true)); - xNewDlg->SetObjectName( aDocument.createObjectName( E_DIALOGS, aLibName ) ); - - if (xNewDlg->Execute() != 0) - { - String aDlgName( xNewDlg->GetObjectName() ); - if (aDlgName.Len() == 0) - aDlgName = aDocument.createObjectName( E_DIALOGS, aLibName); - - if ( aDocument.hasDialog( aLibName, aDlgName ) ) - { - ErrorBox( this, WB_OK | WB_DEF_OK, - String( IDEResId( RID_STR_SBXNAMEALLREADYUSED2 ) ) ).Execute(); - } - else - { - Reference< io::XInputStreamProvider > xISP; - if ( !aDocument.createDialog( aLibName, aDlgName, xISP ) ) - return; - - SbxItem aSbxItem( SID_BASICIDE_ARG_SBX, aDocument, aLibName, aDlgName, BASICIDE_TYPE_DIALOG ); - 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 ); - } - LibraryLocation eLocation = aDocument.getLibraryLocation( aLibName ); - SvLBoxEntry* pRootEntry = aBasicBox.FindRootEntry( aDocument, eLocation ); - if ( pRootEntry ) - { - if ( !aBasicBox.IsExpanded( pRootEntry ) ) - aBasicBox.Expand( pRootEntry ); - SvLBoxEntry* pLibEntry = aBasicBox.FindEntry( pRootEntry, aLibName, OBJ_TYPE_LIBRARY ); - DBG_ASSERT( pLibEntry, "Libeintrag nicht gefunden!" ); - if ( pLibEntry ) - { - if ( !aBasicBox.IsExpanded( pLibEntry ) ) - aBasicBox.Expand( pLibEntry ); - SvLBoxEntry* pEntry = aBasicBox.FindEntry( pLibEntry, aDlgName, OBJ_TYPE_DIALOG ); - if ( !pEntry ) - { - pEntry = aBasicBox.AddEntry( - aDlgName, - Image( IDEResId( RID_IMG_DIALOG ) ), - pLibEntry, false, - std::auto_ptr< BasicEntry >( new BasicEntry( OBJ_TYPE_DIALOG ) ) ); - DBG_ASSERT( pEntry, "InsertEntry fehlgeschlagen!" ); - } - aBasicBox.SetCurEntry( pEntry ); - aBasicBox.Select( aBasicBox.GetCurEntry() ); // OV-Bug?! - } - } - } - } - } -} - -void ObjectPage::DeleteCurrent() -{ - SvLBoxEntry* pCurEntry = aBasicBox.GetCurEntry(); - DBG_ASSERT( pCurEntry, "Kein aktueller Eintrag!" ); - BasicEntryDescriptor aDesc( aBasicBox.GetEntryDescriptor( pCurEntry ) ); - ScriptDocument aDocument( aDesc.GetDocument() ); - DBG_ASSERT( aDocument.isAlive(), "ObjectPage::DeleteCurrent: no document!" ); - if ( !aDocument.isAlive() ) - return; - String aLibName( aDesc.GetLibName() ); - String aName( aDesc.GetName() ); - BasicEntryType eType( aDesc.GetType() ); - - if ( ( eType == OBJ_TYPE_MODULE && QueryDelModule( aName, this ) ) || - ( eType == OBJ_TYPE_DIALOG && QueryDelDialog( aName, this ) ) ) - { - aBasicBox.GetModel()->Remove( pCurEntry ); - if ( aBasicBox.GetCurEntry() ) // OV-Bug ? - aBasicBox.Select( aBasicBox.GetCurEntry() ); - BasicIDEShell* pIDEShell = IDE_DLL()->GetShell(); - SfxViewFrame* pViewFrame = pIDEShell ? pIDEShell->GetViewFrame() : NULL; - SfxDispatcher* pDispatcher = pViewFrame ? pViewFrame->GetDispatcher() : NULL; - if( pDispatcher ) - { - SbxItem aSbxItem( SID_BASICIDE_ARG_SBX, aDocument, aLibName, aName, aBasicBox.ConvertType( eType ) ); - pDispatcher->Execute( SID_BASICIDE_SBXDELETED, - SFX_CALLMODE_SYNCHRON, &aSbxItem, 0L ); - } - - try - { - bool bSuccess = false; - if ( eType == OBJ_TYPE_MODULE ) - bSuccess = aDocument.removeModule( aLibName, aName ); - else if ( eType == OBJ_TYPE_DIALOG ) - bSuccess = BasicIDE::RemoveDialog( aDocument, aLibName, aName ); - - if ( bSuccess ) - BasicIDE::MarkDocumentModified( aDocument ); - } - catch ( container::NoSuchElementException& ) - { - DBG_UNHANDLED_EXCEPTION(); - } - } -} - - - -void ObjectPage::EndTabDialog( sal_uInt16 nRet ) -{ - DBG_ASSERT( pTabDlg, "TabDlg nicht gesetzt!" ); - if ( pTabDlg ) - pTabDlg->EndDialog( nRet ); -} - - -LibDialog::LibDialog( Window* pParent ) - : ModalDialog( pParent, IDEResId( RID_DLG_LIBS ) ), - aOKButton( this, IDEResId( RID_PB_OK ) ), - aCancelButton( this, IDEResId( RID_PB_CANCEL ) ), - aStorageName( this, IDEResId( RID_FT_STORAGENAME ) ), - aLibBox( this, IDEResId( RID_CTRL_LIBS ) ), - aFixedLine( this, IDEResId( RID_FL_OPTIONS ) ), - aReferenceBox( this, IDEResId( RID_CB_REF ) ), - aReplaceBox( this, IDEResId( RID_CB_REPL ) ) -{ - SetText( String( IDEResId( RID_STR_APPENDLIBS ) ) ); - FreeResource(); -} - - -LibDialog::~LibDialog() -{ -} - -void LibDialog::SetStorageName( const String& rName ) -{ - String aName( IDEResId( RID_STR_FILENAME ) ); - aName += rName; - aStorageName.SetText( aName ); -} - -// Helper function -SbModule* createModImpl( Window* pWin, const ScriptDocument& rDocument, - BasicTreeListBox& rBasicBox, const String& rLibName, String aModName, bool bMain ) -{ - OSL_ENSURE( rDocument.isAlive(), "createModImpl: invalid document!" ); - if ( !rDocument.isAlive() ) - return NULL; - - SbModule* pModule = NULL; - - String aLibName( rLibName ); - if ( !aLibName.Len() ) - aLibName = String::CreateFromAscii( "Standard" ); - rDocument.getOrCreateLibrary( E_SCRIPTS, aLibName ); - if ( !aModName.Len() ) - aModName = rDocument.createObjectName( E_SCRIPTS, aLibName ); - - std::auto_ptr< NewObjectDialog > xNewDlg( - new NewObjectDialog( pWin, NEWOBJECTMODE_MOD, true ) ); - xNewDlg->SetObjectName( aModName ); - - if (xNewDlg->Execute() != 0) - { - if ( xNewDlg->GetObjectName().Len() ) - aModName = xNewDlg->GetObjectName(); - - try - { - ::rtl::OUString sModuleCode; - // the module has existed - if( rDocument.hasModule( aLibName, aModName ) ) - return NULL; - rDocument.createModule( aLibName, aModName, bMain, sModuleCode ); - BasicManager* pBasMgr = rDocument.getBasicManager(); - StarBASIC* pBasic = pBasMgr? pBasMgr->GetLib( aLibName ) : 0; - if ( pBasic ) - pModule = pBasic->FindModule( aModName ); - 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 ); - } - LibraryLocation eLocation = rDocument.getLibraryLocation( aLibName ); - SvLBoxEntry* pRootEntry = rBasicBox.FindRootEntry( rDocument, eLocation ); - if ( pRootEntry ) - { - if ( !rBasicBox.IsExpanded( pRootEntry ) ) - rBasicBox.Expand( pRootEntry ); - SvLBoxEntry* pLibEntry = rBasicBox.FindEntry( pRootEntry, aLibName, OBJ_TYPE_LIBRARY ); - DBG_ASSERT( pLibEntry, "Libeintrag nicht gefunden!" ); - if ( pLibEntry ) - { - if ( !rBasicBox.IsExpanded( pLibEntry ) ) - rBasicBox.Expand( pLibEntry ); - SvLBoxEntry* pSubRootEntry = pLibEntry; - if( pBasic && rDocument.isInVBAMode() ) - { - // add the new module in the "Modules" entry - SvLBoxEntry* pLibSubEntry = rBasicBox.FindEntry( pLibEntry, String( IDEResId( RID_STR_NORMAL_MODULES ) ) , OBJ_TYPE_NORMAL_MODULES ); - if( pLibSubEntry ) - { - if( !rBasicBox.IsExpanded( pLibSubEntry ) ) - rBasicBox.Expand( pLibSubEntry ); - pSubRootEntry = pLibSubEntry; - } - } - - SvLBoxEntry* pEntry = rBasicBox.FindEntry( pSubRootEntry, aModName, OBJ_TYPE_MODULE ); - if ( !pEntry ) - { - pEntry = rBasicBox.AddEntry( - aModName, - Image( IDEResId( RID_IMG_MODULE ) ), - pSubRootEntry, false, - std::auto_ptr< BasicEntry >( new BasicEntry( OBJ_TYPE_MODULE ) ) ); - DBG_ASSERT( pEntry, "InsertEntry fehlgeschlagen!" ); - } - rBasicBox.SetCurEntry( pEntry ); - rBasicBox.Select( rBasicBox.GetCurEntry() ); // OV-Bug?! - } - } - } - catch ( container::ElementExistException& ) - { - ErrorBox( pWin, WB_OK | WB_DEF_OK, - String( IDEResId( RID_STR_SBXNAMEALLREADYUSED2 ) ) ).Execute(); - } - catch ( container::NoSuchElementException& ) - { - DBG_UNHANDLED_EXCEPTION(); - } - } - return pModule; -} - - - - -/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ |