LCOV - code coverage report
Current view: top level - libreoffice/basctl/source/basicide - moduldlg.cxx (source / functions) Hit Total Coverage
Test: libreoffice_filtered.info Lines: 0 516 0.0 %
Date: 2012-12-27 Functions: 0 36 0.0 %
Legend: Lines: hit not hit

          Line data    Source code
       1             : /* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
       2             : /*
       3             :  * This file is part of the LibreOffice project.
       4             :  *
       5             :  * This Source Code Form is subject to the terms of the Mozilla Public
       6             :  * License, v. 2.0. If a copy of the MPL was not distributed with this
       7             :  * file, You can obtain one at http://mozilla.org/MPL/2.0/.
       8             :  *
       9             :  * This file incorporates work covered by the following license notice:
      10             :  *
      11             :  *   Licensed to the Apache Software Foundation (ASF) under one or more
      12             :  *   contributor license agreements. See the NOTICE file distributed
      13             :  *   with this work for additional information regarding copyright
      14             :  *   ownership. The ASF licenses this file to you under the Apache
      15             :  *   License, Version 2.0 (the "License"); you may not use this file
      16             :  *   except in compliance with the License. You may obtain a copy of
      17             :  *   the License at http://www.apache.org/licenses/LICENSE-2.0 .
      18             :  */
      19             : 
      20             : #include "baside2.hrc"
      21             : #include "basidesh.hrc"
      22             : #include "moduldlg.hrc"
      23             : 
      24             : #include "moduldlg.hxx"
      25             : #include "localizationmgr.hxx"
      26             : #include "basidesh.hxx"
      27             : #include "baside3.hxx"
      28             : #include "iderdll.hxx"
      29             : 
      30             : #include <basic/basmgr.hxx>
      31             : #include <com/sun/star/script/XLibraryContainerPassword.hpp>
      32             : #include <comphelper/processfactory.hxx>
      33             : #include <sfx2/app.hxx>
      34             : #include <sfx2/dispatch.hxx>
      35             : #include <sfx2/request.hxx>
      36             : #include <sfx2/viewfrm.hxx>
      37             : #include <svl/itemset.hxx>
      38             : #include <svl/stritem.hxx>
      39             : #include <vcl/msgbox.hxx>
      40             : #include <tools/diagnose_ex.h>
      41             : #include <xmlscript/xmldlg_imexp.hxx>
      42             : #include "svtools/treelistentry.hxx"
      43             : 
      44             : namespace basctl
      45             : {
      46             : 
      47             : using namespace ::com::sun::star;
      48             : using namespace ::com::sun::star::uno;
      49             : using namespace ::com::sun::star::resource;
      50             : 
      51             : //
      52             : // ExtTreeListBox
      53             : // ==============
      54             : //
      55             : 
      56           0 : ExtTreeListBox::ExtTreeListBox (Window* pParent, ResId const& rRes) :
      57           0 :     TreeListBox( pParent, rRes )
      58           0 : { }
      59             : 
      60           0 : ExtTreeListBox::~ExtTreeListBox ()
      61           0 : { }
      62             : 
      63           0 : sal_Bool ExtTreeListBox::EditingEntry( SvTreeListEntry* pEntry, Selection& )
      64             : {
      65           0 :     bool bRet = false;
      66             : 
      67           0 :     if ( pEntry )
      68             :     {
      69           0 :         sal_uInt16 nDepth = GetModel()->GetDepth( pEntry );
      70           0 :         if ( nDepth >= 2 )
      71             :         {
      72           0 :             EntryDescriptor aDesc = GetEntryDescriptor(pEntry);
      73           0 :             ScriptDocument aDocument( aDesc.GetDocument() );
      74           0 :             OUString aLibName( aDesc.GetLibName() );
      75           0 :             Reference< script::XLibraryContainer2 > xModLibContainer( aDocument.getLibraryContainer( E_SCRIPTS ), UNO_QUERY );
      76           0 :             Reference< script::XLibraryContainer2 > xDlgLibContainer( aDocument.getLibraryContainer( E_DIALOGS ), UNO_QUERY );
      77           0 :             if ( !( ( xModLibContainer.is() && xModLibContainer->hasByName( aLibName ) && xModLibContainer->isLibraryReadOnly( aLibName ) ) ||
      78           0 :                     ( xDlgLibContainer.is() && xDlgLibContainer->hasByName( aLibName ) && xDlgLibContainer->isLibraryReadOnly( aLibName ) ) ) )
      79             :             {
      80             :                 // allow editing only for libraries, which are not readonly
      81           0 :                 bRet = true;
      82           0 :             }
      83             :         }
      84             :     }
      85             : 
      86           0 :     return bRet;
      87             : }
      88             : 
      89           0 : sal_Bool ExtTreeListBox::EditedEntry( SvTreeListEntry* pEntry, const OUString& rNewText )
      90             : {
      91           0 :     if ( !IsValidSbxName(rNewText) )
      92             :     {
      93           0 :         ErrorBox( this, WB_OK | WB_DEF_OK, IDE_RESSTR(RID_STR_BADSBXNAME) ).Execute();
      94           0 :         return false;
      95             :     }
      96             : 
      97           0 :     OUString aCurText( GetEntryText( pEntry ) );
      98           0 :     if ( aCurText == rNewText )
      99             :         // nothing to do
     100           0 :         return true;
     101             : 
     102           0 :     EntryDescriptor aDesc = GetEntryDescriptor(pEntry);
     103           0 :     ScriptDocument aDocument( aDesc.GetDocument() );
     104             :     DBG_ASSERT( aDocument.isValid(), "ExtTreeListBox::EditedEntry: no document!" );
     105           0 :     if ( !aDocument.isValid() )
     106           0 :         return false;
     107           0 :     OUString aLibName( aDesc.GetLibName() );
     108           0 :     EntryType eType = aDesc.GetType();
     109             : 
     110             :     bool bSuccess = eType == OBJ_TYPE_MODULE ?
     111           0 :         RenameModule(this, aDocument, aLibName, aCurText, rNewText) :
     112           0 :         RenameDialog(this, aDocument, aLibName, aCurText, rNewText);
     113             : 
     114           0 :     if ( !bSuccess )
     115           0 :         return false;
     116             : 
     117           0 :     MarkDocumentModified( aDocument );
     118             : 
     119           0 :     if (SfxDispatcher* pDispatcher = GetDispatcher())
     120             :     {
     121           0 :         SbxItem aSbxItem( SID_BASICIDE_ARG_SBX, aDocument, aLibName, rNewText, ConvertType( eType ) );
     122             :         pDispatcher->Execute( SID_BASICIDE_SBXRENAMED,
     123           0 :                                 SFX_CALLMODE_SYNCHRON, &aSbxItem, 0L );
     124             :     }
     125             : 
     126             :     // OV-Bug?!
     127           0 :     SetEntryText( pEntry, rNewText );
     128           0 :     SetCurEntry( pEntry );
     129           0 :     SetCurEntry( pEntry );
     130           0 :     Select( pEntry, false );
     131           0 :     Select( pEntry );       // so that handler is called => update edit
     132             : 
     133           0 :     return true;
     134             : }
     135             : 
     136             : 
     137           0 : DragDropMode ExtTreeListBox::NotifyStartDrag( TransferDataContainer&, SvTreeListEntry* pEntry )
     138             : {
     139           0 :     DragDropMode nMode_ = SV_DRAGDROP_NONE;
     140             : 
     141           0 :     if ( pEntry )
     142             :     {
     143           0 :         sal_uInt16 nDepth = GetModel()->GetDepth( pEntry );
     144           0 :         if ( nDepth >= 2 )
     145             :         {
     146           0 :             nMode_ = SV_DRAGDROP_CTRL_COPY;
     147           0 :             EntryDescriptor aDesc = GetEntryDescriptor(pEntry);
     148           0 :             ScriptDocument aDocument( aDesc.GetDocument() );
     149           0 :             OUString aLibName( aDesc.GetLibName() );
     150             :             // allow MOVE mode only for libraries, which are not readonly
     151           0 :             Reference< script::XLibraryContainer2 > xModLibContainer( aDocument.getLibraryContainer( E_SCRIPTS ), UNO_QUERY );
     152           0 :             Reference< script::XLibraryContainer2 > xDlgLibContainer( aDocument.getLibraryContainer( E_DIALOGS ), UNO_QUERY );
     153           0 :             if ( !( ( xModLibContainer.is() && xModLibContainer->hasByName( aLibName ) && xModLibContainer->isLibraryReadOnly( aLibName ) ) ||
     154           0 :                     ( xDlgLibContainer.is() && xDlgLibContainer->hasByName( aLibName ) && xDlgLibContainer->isLibraryReadOnly( aLibName ) ) ) )
     155             :             {
     156             :                 // Only allow copy for localized libraries
     157           0 :                 bool bAllowMove = true;
     158           0 :                 if ( xDlgLibContainer.is() && xDlgLibContainer->hasByName( aLibName ) )
     159             :                 {
     160             :                     // Get StringResourceManager
     161           0 :                     Reference< container::XNameContainer > xDialogLib( aDocument.getLibrary( E_DIALOGS, aLibName, true ) );
     162             :                     Reference< XStringResourceManager > xSourceMgr =
     163           0 :                         LocalizationMgr::getStringResourceFromDialogLibrary( xDialogLib );
     164           0 :                     if( xSourceMgr.is() )
     165           0 :                         bAllowMove = ( xSourceMgr->getLocales().getLength() == 0 );
     166             :                 }
     167           0 :                 if( bAllowMove )
     168           0 :                     nMode_ |= SV_DRAGDROP_CTRL_MOVE;
     169           0 :             }
     170             :         }
     171             :     }
     172             : 
     173           0 :     return nMode_;
     174             : }
     175             : 
     176             : 
     177           0 : sal_Bool ExtTreeListBox::NotifyAcceptDrop( SvTreeListEntry* pEntry )
     178             : {
     179             :     // don't drop on a BasicManager (nDepth == 0)
     180           0 :     sal_uInt16 nDepth = pEntry ? GetModel()->GetDepth( pEntry ) : 0;
     181           0 :     bool bValid = nDepth != 0;
     182             : 
     183             :     // don't drop in the same library
     184           0 :     SvTreeListEntry* pSelected = FirstSelected();
     185           0 :     if ( ( nDepth == 1 ) && ( pEntry == GetParent( pSelected ) ) )
     186           0 :         bValid = false;
     187           0 :     else if ( ( nDepth == 2 ) && ( GetParent( pEntry ) == GetParent( pSelected ) ) )
     188           0 :         bValid = false;
     189             : 
     190             :     // don't drop on a library, which is not loaded, readonly or password protected
     191             :     // or which already has a module/dialog with this name
     192           0 :     if ( bValid && ( nDepth > 0 ) )
     193             :     {
     194             :         // get source module/dialog name
     195           0 :         EntryDescriptor aSourceDesc = GetEntryDescriptor(pSelected);
     196           0 :         OUString aSourceName = aSourceDesc.GetName();
     197           0 :         EntryType eSourceType = aSourceDesc.GetType();
     198             : 
     199             :         // get target shell and target library name
     200           0 :         EntryDescriptor aDestDesc = GetEntryDescriptor(pEntry);
     201           0 :         ScriptDocument const& rDestDoc = aDestDesc.GetDocument();
     202           0 :         OUString aDestLibName = aDestDesc.GetLibName();
     203             : 
     204             :         // check if module library is not loaded, readonly or password protected
     205           0 :         Reference< script::XLibraryContainer2 > xModLibContainer( rDestDoc.getLibraryContainer( E_SCRIPTS ), UNO_QUERY );
     206           0 :         if ( xModLibContainer.is() && xModLibContainer->hasByName( aDestLibName ) )
     207             :         {
     208           0 :             if ( !xModLibContainer->isLibraryLoaded( aDestLibName ) )
     209           0 :                 bValid = false;
     210             : 
     211           0 :             if ( xModLibContainer->isLibraryReadOnly( aDestLibName ) )
     212           0 :                 bValid = false;
     213             : 
     214           0 :             Reference< script::XLibraryContainerPassword > xPasswd( xModLibContainer, UNO_QUERY );
     215           0 :             if ( xPasswd.is() && xPasswd->isLibraryPasswordProtected( aDestLibName ) && !xPasswd->isLibraryPasswordVerified( aDestLibName ) )
     216           0 :                 bValid = false;
     217             :         }
     218             : 
     219             :         // check if dialog library is not loaded or readonly
     220           0 :         Reference< script::XLibraryContainer2 > xDlgLibContainer( rDestDoc.getLibraryContainer( E_DIALOGS ), UNO_QUERY );
     221           0 :         if ( xDlgLibContainer.is() && xDlgLibContainer->hasByName( aDestLibName ) )
     222             :         {
     223           0 :             if ( !xDlgLibContainer->isLibraryLoaded( aDestLibName ) )
     224           0 :                 bValid = false;
     225             : 
     226           0 :             if ( xDlgLibContainer->isLibraryReadOnly( aDestLibName ) )
     227           0 :                 bValid = false;
     228             :         }
     229             : 
     230             :         // check, if module/dialog with this name is already existing in target library
     231           0 :         if ( ( eSourceType == OBJ_TYPE_MODULE && rDestDoc.hasModule( aDestLibName, aSourceName ) ) ||
     232           0 :             ( eSourceType == OBJ_TYPE_DIALOG && rDestDoc.hasDialog( aDestLibName, aSourceName ) ) )
     233             :         {
     234           0 :             bValid = false;
     235           0 :         }
     236             :     }
     237             : 
     238           0 :     return bValid;
     239             : }
     240             : 
     241           0 : sal_Bool ExtTreeListBox::NotifyMoving( SvTreeListEntry* pTarget, SvTreeListEntry* pEntry,
     242             :                         SvTreeListEntry*& rpNewParent, sal_uLong& rNewChildPos )
     243             : {
     244             :     return NotifyCopyingMoving( pTarget, pEntry,
     245           0 :                                     rpNewParent, rNewChildPos, true );
     246             : }
     247             : 
     248           0 : sal_Bool ExtTreeListBox::NotifyCopying( SvTreeListEntry* pTarget, SvTreeListEntry* pEntry,
     249             :                         SvTreeListEntry*& rpNewParent, sal_uLong& rNewChildPos )
     250             : {
     251             : //  return false;   // how do I copy an SBX?!
     252             :     return NotifyCopyingMoving( pTarget, pEntry,
     253           0 :                                     rpNewParent, rNewChildPos, false );
     254             : }
     255             : 
     256           0 : void Shell::CopyDialogResources(
     257             :     Reference< io::XInputStreamProvider >& io_xISP,
     258             :     ScriptDocument const& rSourceDoc,
     259             :     OUString const& rSourceLibName,
     260             :     ScriptDocument const& rDestDoc,
     261             :     OUString const& rDestLibName,
     262             :     OUString const& rDlgName
     263             : )
     264             : {
     265           0 :     if ( !io_xISP.is() )
     266             :         return;
     267             : 
     268             :     // Get StringResourceManager
     269           0 :     Reference< container::XNameContainer > xSourceDialogLib( rSourceDoc.getLibrary( E_DIALOGS, rSourceLibName, true ) );
     270             :     Reference< XStringResourceManager > xSourceMgr =
     271           0 :         LocalizationMgr::getStringResourceFromDialogLibrary( xSourceDialogLib );
     272           0 :     if( !xSourceMgr.is() )
     273             :         return;
     274           0 :     bool bSourceLocalized = ( xSourceMgr->getLocales().getLength() > 0 );
     275             : 
     276           0 :     Reference< container::XNameContainer > xDestDialogLib( rDestDoc.getLibrary( E_DIALOGS, rDestLibName, true ) );
     277             :     Reference< XStringResourceManager > xDestMgr =
     278           0 :         LocalizationMgr::getStringResourceFromDialogLibrary( xDestDialogLib );
     279           0 :     if( !xDestMgr.is() )
     280             :         return;
     281           0 :     bool bDestLocalized = ( xDestMgr->getLocales().getLength() > 0 );
     282             : 
     283           0 :     if( !bSourceLocalized && !bDestLocalized )
     284             :         return;
     285             : 
     286             :     // create dialog model
     287           0 :     Reference< lang::XMultiServiceFactory > xMSF = ::comphelper::getProcessServiceFactory();
     288           0 :     Reference< container::XNameContainer > xDialogModel = Reference< container::XNameContainer >( xMSF->createInstance
     289           0 :         ( "com.sun.star.awt.UnoControlDialogModel" ), UNO_QUERY );
     290           0 :     Reference< io::XInputStream > xInput( io_xISP->createInputStream() );
     291             :     Reference< XComponentContext > xContext(
     292           0 :         comphelper::getComponentContext( xMSF ) );
     293           0 :     ::xmlscript::importDialogModel( xInput, xDialogModel, xContext, rSourceDoc.isDocument() ? rSourceDoc.getDocument() : Reference< frame::XModel >() );
     294             : 
     295           0 :     if( xDialogModel.is() )
     296             :     {
     297           0 :         if( bSourceLocalized && bDestLocalized )
     298             :         {
     299           0 :             Reference< resource::XStringResourceResolver > xSourceStringResolver( xSourceMgr, UNO_QUERY );
     300           0 :             LocalizationMgr::copyResourceForDroppedDialog( xDialogModel, rDlgName, xDestMgr, xSourceStringResolver );
     301             :         }
     302           0 :         else if( bSourceLocalized )
     303             :         {
     304           0 :             LocalizationMgr::resetResourceForDialog( xDialogModel, xSourceMgr );
     305             :         }
     306           0 :         else if( bDestLocalized )
     307             :         {
     308           0 :             LocalizationMgr::setResourceIDsForDialog( xDialogModel, xDestMgr );
     309             :         }
     310           0 :         io_xISP = ::xmlscript::exportDialogModel( xDialogModel, xContext, rDestDoc.isDocument() ? rDestDoc.getDocument() : Reference< frame::XModel >() );
     311           0 :     }
     312             : }
     313             : 
     314             : 
     315           0 : sal_Bool ExtTreeListBox::NotifyCopyingMoving( SvTreeListEntry* pTarget, SvTreeListEntry* pEntry,
     316             :                         SvTreeListEntry*& rpNewParent, sal_uLong& rNewChildPos, sal_Bool bMove )
     317             : {
     318             :     (void)pEntry;
     319             :     DBG_ASSERT( pEntry, "Kein Eintrag?" );  // ASS is ok here, should not be reached
     320             :     DBG_ASSERT( pTarget, "Kein Ziel?" );    // with NULL (right at the beginning)
     321           0 :     sal_uInt16 nDepth = GetModel()->GetDepth( pTarget );
     322             :     DBG_ASSERT( nDepth, "Tiefe?" );
     323           0 :     if ( nDepth == 1 )
     324             :     {
     325             :         // Target = Basic => put module/dialog under the Basic
     326           0 :         rpNewParent = pTarget;
     327           0 :         rNewChildPos = 0;
     328             :     }
     329           0 :     else if ( nDepth >= 2 )
     330             :     {
     331             :         // Target = module/dialog => put module/dialog under the superordinate Basic
     332           0 :         rpNewParent = GetParent( pTarget );
     333           0 :         rNewChildPos = GetModel()->GetRelPos( pTarget ) + 1;
     334             :     }
     335             : 
     336             :     // get target shell and target library name
     337           0 :     EntryDescriptor aDestDesc = GetEntryDescriptor(rpNewParent);
     338           0 :     const ScriptDocument& rDestDoc( aDestDesc.GetDocument() );
     339           0 :     OUString aDestLibName( aDestDesc.GetLibName() );
     340             : 
     341             :     // get source shell, library name and module/dialog name
     342           0 :     EntryDescriptor aSourceDesc = GetEntryDescriptor(FirstSelected());
     343           0 :     const ScriptDocument rSourceDoc( aSourceDesc.GetDocument() );
     344           0 :     OUString aSourceLibName( aSourceDesc.GetLibName() );
     345           0 :     OUString aSourceName( aSourceDesc.GetName() );
     346           0 :     EntryType eType = aSourceDesc.GetType();
     347             : 
     348             :     // get dispatcher
     349           0 :     SfxDispatcher* pDispatcher = GetDispatcher();
     350             : 
     351           0 :     if ( bMove )    // move
     352             :     {
     353             :         // remove source module/dialog window
     354           0 :         if ( rSourceDoc != rDestDoc || aSourceLibName != aDestLibName )
     355             :         {
     356           0 :             if( pDispatcher )
     357             :             {
     358           0 :                 SbxItem aSbxItem( SID_BASICIDE_ARG_SBX, rSourceDoc, aSourceLibName, aSourceName, ConvertType( eType ) );
     359             :                 pDispatcher->Execute( SID_BASICIDE_SBXDELETED,
     360           0 :                                       SFX_CALLMODE_SYNCHRON, &aSbxItem, 0L );
     361             :             }
     362             :         }
     363             : 
     364             :         try
     365             :         {
     366           0 :             if ( eType == OBJ_TYPE_MODULE ) // module
     367             :             {
     368             :                 // get module
     369           0 :                 OUString aModule;
     370           0 :                 if ( rSourceDoc.getModule( aSourceLibName, aSourceName, aModule ) )
     371             :                 {
     372             :                     // remove module from source library
     373           0 :                     if ( rSourceDoc.removeModule( aSourceLibName, aSourceName ) )
     374             :                     {
     375           0 :                         MarkDocumentModified( rSourceDoc );
     376             : 
     377             :                         // insert module into target library
     378           0 :                         if ( rDestDoc.insertModule( aDestLibName, aSourceName, aModule ) )
     379           0 :                             MarkDocumentModified( rDestDoc );
     380             :                     }
     381           0 :                 }
     382             :             }
     383           0 :             else if ( eType == OBJ_TYPE_DIALOG )    // dialog
     384             :             {
     385             :                 // get dialog
     386           0 :                 Reference< io::XInputStreamProvider > xISP;
     387           0 :                 if ( rSourceDoc.getDialog( aSourceLibName, aSourceName, xISP ) )
     388             :                 {
     389             :                     Shell::CopyDialogResources( xISP, rSourceDoc,
     390           0 :                         aSourceLibName, rDestDoc, aDestLibName, aSourceName );
     391             : 
     392             :                     // remove dialog from source library
     393           0 :                     if (RemoveDialog(rSourceDoc, aSourceLibName, aSourceName))
     394             :                     {
     395           0 :                         MarkDocumentModified(rSourceDoc);
     396             : 
     397             :                         // insert dialog into target library
     398           0 :                         if ( rDestDoc.insertDialog( aDestLibName, aSourceName, xISP ) )
     399           0 :                             MarkDocumentModified(rDestDoc);
     400             :                     }
     401           0 :                 }
     402             :             }
     403             :         }
     404           0 :         catch (const uno::Exception& )
     405             :         {
     406             :             DBG_UNHANDLED_EXCEPTION();
     407             :         }
     408             :     }
     409             :     else    // copy
     410             :     {
     411             :         try
     412             :         {
     413           0 :             if ( eType == OBJ_TYPE_MODULE ) // module
     414             :             {
     415             :                 // get module
     416           0 :                 OUString aModule;
     417           0 :                 if ( rSourceDoc.getModule( aSourceLibName, aSourceName, aModule ) )
     418             :                 {
     419             :                     // insert module into target library
     420           0 :                     if ( rDestDoc.insertModule( aDestLibName, aSourceName, aModule ) )
     421           0 :                         MarkDocumentModified( rDestDoc );
     422           0 :                 }
     423             :             }
     424           0 :             else if ( eType == OBJ_TYPE_DIALOG )    // dialog
     425             :             {
     426             :                 // get dialog
     427           0 :                 Reference< io::XInputStreamProvider > xISP;
     428           0 :                 if ( rSourceDoc.getDialog( aSourceLibName, aSourceName, xISP ) )
     429             :                 {
     430             :                     Shell::CopyDialogResources( xISP, rSourceDoc,
     431           0 :                         aSourceLibName, rDestDoc, aDestLibName, aSourceName );
     432             : 
     433             :                     // insert dialog into target library
     434           0 :                     if ( rDestDoc.insertDialog( aDestLibName, aSourceName, xISP ) )
     435           0 :                         MarkDocumentModified( rDestDoc );
     436           0 :                 }
     437             :             }
     438             :         }
     439           0 :         catch ( const Exception& )
     440             :         {
     441             :             DBG_UNHANDLED_EXCEPTION();
     442             :         }
     443             :     }
     444             : 
     445             :     // create target module/dialog window
     446           0 :     if ( rSourceDoc != rDestDoc || aSourceLibName != aDestLibName )
     447             :     {
     448           0 :         if( pDispatcher )
     449             :         {
     450           0 :             SbxItem aSbxItem( SID_BASICIDE_ARG_SBX, rDestDoc, aDestLibName, aSourceName, ConvertType( eType ) );
     451             :             pDispatcher->Execute( SID_BASICIDE_SBXINSERTED,
     452           0 :                                   SFX_CALLMODE_SYNCHRON, &aSbxItem, 0L );
     453             :         }
     454             :     }
     455             : 
     456           0 :     return 2;   // open...
     457             : }
     458             : 
     459             : //
     460             : // OrganizeDialog
     461             : // ==============
     462             : //
     463             : 
     464           0 : OrganizeDialog::OrganizeDialog( Window* pParent, sal_Int16 tabId, EntryDescriptor& rDesc )
     465             :     :TabDialog( pParent, IDEResId( RID_TD_ORGANIZE ) )
     466             :     ,aTabCtrl( this, IDEResId( RID_TC_ORGANIZE ) )
     467           0 :     ,m_aCurEntry( rDesc )
     468             : {
     469           0 :     FreeResource();
     470           0 :     aTabCtrl.SetActivatePageHdl( LINK( this, OrganizeDialog, ActivatePageHdl ) );
     471           0 :     if( tabId == 0 )
     472             :     {
     473           0 :         aTabCtrl.SetCurPageId( RID_TP_MOD );
     474             :     }
     475           0 :     else if ( tabId == 1 )
     476             :     {
     477           0 :         aTabCtrl.SetCurPageId( RID_TP_DLG );
     478             :     }
     479             :     else
     480             :     {
     481           0 :         aTabCtrl.SetCurPageId( RID_TP_LIB );
     482             :     }
     483             : 
     484           0 :     ActivatePageHdl( &aTabCtrl );
     485             : 
     486           0 :     if (SfxDispatcher* pDispatcher = GetDispatcher())
     487           0 :         pDispatcher->Execute( SID_BASICIDE_STOREALLMODULESOURCES );
     488           0 : }
     489             : 
     490           0 : OrganizeDialog::~OrganizeDialog()
     491             : {
     492           0 :     for ( sal_uInt16 i = 0; i < aTabCtrl.GetPageCount(); i++ )
     493           0 :         delete aTabCtrl.GetTabPage( aTabCtrl.GetPageId( i ) );
     494           0 : };
     495             : 
     496           0 : short OrganizeDialog::Execute()
     497             : {
     498           0 :     Window* pPrevDlgParent = Application::GetDefDialogParent();
     499           0 :     Application::SetDefDialogParent( this );
     500           0 :     short nRet = TabDialog::Execute();
     501           0 :     Application::SetDefDialogParent( pPrevDlgParent );
     502           0 :     return nRet;
     503             : }
     504             : 
     505             : 
     506           0 : IMPL_LINK( OrganizeDialog, ActivatePageHdl, TabControl *, pTabCtrl )
     507             : {
     508           0 :     sal_uInt16 nId = pTabCtrl->GetCurPageId();
     509             : 
     510           0 :     if ( !pTabCtrl->GetTabPage( nId ) )
     511             :     {
     512           0 :         TabPage* pNewTabPage = 0;
     513           0 :         switch ( nId )
     514             :         {
     515             :             case RID_TP_MOD:
     516             :             {
     517           0 :                 ObjectPage* pObjectPage = new ObjectPage(pTabCtrl, IDEResId(RID_TP_MODULS), BROWSEMODE_MODULES);
     518           0 :                 pNewTabPage = pObjectPage;
     519           0 :                 pObjectPage->SetTabDlg(this);
     520           0 :                 pObjectPage->SetCurrentEntry(m_aCurEntry);
     521             :             }
     522           0 :             break;
     523             :             case RID_TP_DLG:
     524             :             {
     525           0 :                 ObjectPage* pObjectPage = new ObjectPage( pTabCtrl, IDEResId( RID_TP_DLGS ), BROWSEMODE_DIALOGS );
     526           0 :                 pNewTabPage = pObjectPage;
     527           0 :                 pObjectPage->SetTabDlg(this);
     528           0 :                 pObjectPage->SetCurrentEntry(m_aCurEntry);
     529             :             }
     530           0 :             break;
     531             :             case RID_TP_LIB:
     532             :             {
     533           0 :                 LibPage* pLibPage = new LibPage( pTabCtrl );
     534           0 :                 pNewTabPage = pLibPage;
     535           0 :                 pLibPage->SetTabDlg( this );
     536             :             }
     537           0 :             break;
     538             :             default:    OSL_FAIL( "PageHdl: Unbekannte ID!" );
     539             :         }
     540             :         DBG_ASSERT( pNewTabPage, "Keine Page!" );
     541           0 :         pTabCtrl->SetTabPage( nId, pNewTabPage );
     542             :     }
     543           0 :     return 0;
     544             : }
     545             : 
     546             : //
     547             : // ObjectPage
     548             : // ==========
     549             : //
     550             : 
     551           0 : ObjectPage::ObjectPage( Window * pParent, const ResId& rResId, sal_uInt16 nMode ) :
     552             :         TabPage(        pParent, rResId ),
     553             :         aLibText(       this,   IDEResId( RID_STR_LIB ) ),
     554             :         aBasicBox(      this,   IDEResId( RID_TRLBOX ) ),
     555             :         aEditButton(    this,   IDEResId( RID_PB_EDIT ) ),
     556             :         aCloseButton(   this,   IDEResId( RID_PB_CLOSE ) ),
     557             :         aNewModButton(  this,   IDEResId( RID_PB_NEWMOD ) ),
     558             :         aNewDlgButton(  this,   IDEResId( RID_PB_NEWDLG ) ),
     559           0 :         aDelButton(     this,   IDEResId( RID_PB_DELETE ) )
     560             : {
     561           0 :     FreeResource();
     562           0 :     pTabDlg = 0;
     563             : 
     564           0 :     aEditButton.SetClickHdl( LINK( this, ObjectPage, ButtonHdl ) );
     565           0 :     aDelButton.SetClickHdl( LINK( this, ObjectPage, ButtonHdl ) );
     566           0 :     aCloseButton.SetClickHdl( LINK( this, ObjectPage, ButtonHdl ) );
     567           0 :     aBasicBox.SetSelectHdl( LINK( this, ObjectPage, BasicBoxHighlightHdl ) );
     568             : 
     569           0 :     if( nMode & BROWSEMODE_MODULES )
     570             :     {
     571           0 :         aNewModButton.SetClickHdl( LINK( this, ObjectPage, ButtonHdl ) );
     572           0 :         aNewDlgButton.Hide();
     573             :     }
     574           0 :     else if ( nMode & BROWSEMODE_DIALOGS )
     575             :     {
     576           0 :         aNewDlgButton.SetClickHdl( LINK( this, ObjectPage, ButtonHdl ) );
     577           0 :         aNewModButton.Hide();
     578             :     }
     579             : 
     580           0 :     aBasicBox.SetDragDropMode( SV_DRAGDROP_CTRL_MOVE | SV_DRAGDROP_CTRL_COPY );
     581           0 :     aBasicBox.EnableInplaceEditing(true);
     582           0 :     aBasicBox.SetMode( nMode );
     583             :     aBasicBox.SetStyle( WB_BORDER | WB_TABSTOP |
     584             :                         WB_HASLINES | WB_HASLINESATROOT |
     585             :                         WB_HASBUTTONS | WB_HASBUTTONSATROOT |
     586           0 :                         WB_HSCROLL );
     587           0 :     aBasicBox.ScanAllEntries();
     588             : 
     589           0 :     aEditButton.GrabFocus();
     590           0 :     CheckButtons();
     591           0 : }
     592             : 
     593           0 : void ObjectPage::SetCurrentEntry (EntryDescriptor& rDesc)
     594             : {
     595           0 :     aBasicBox.SetCurrentEntry( rDesc );
     596           0 : }
     597             : 
     598           0 : void ObjectPage::ActivatePage()
     599             : {
     600           0 :     aBasicBox.UpdateEntries();
     601           0 : }
     602             : 
     603           0 : void ObjectPage::DeactivatePage()
     604             : {
     605           0 : }
     606             : 
     607           0 : void ObjectPage::CheckButtons()
     608             : {
     609             :     // enable/disable edit button
     610           0 :     SvTreeListEntry* pCurEntry = aBasicBox.GetCurEntry();
     611           0 :     EntryDescriptor aDesc = aBasicBox.GetEntryDescriptor(pCurEntry);
     612           0 :     ScriptDocument aDocument( aDesc.GetDocument() );
     613           0 :     OUString aLibName( aDesc.GetLibName() );
     614           0 :     OUString aLibSubName( aDesc.GetLibSubName() );
     615           0 :     bool bVBAEnabled = aDocument.isInVBAMode();
     616           0 :     sal_uInt16 nMode = aBasicBox.GetMode();
     617             : 
     618           0 :     sal_uInt16 nDepth = pCurEntry ? aBasicBox.GetModel()->GetDepth( pCurEntry ) : 0;
     619           0 :     if ( nDepth >= 2 )
     620             :     {
     621           0 :         if( bVBAEnabled && ( nMode & BROWSEMODE_MODULES ) && ( nDepth == 2 ) )
     622           0 :             aEditButton.Disable();
     623             :         else
     624           0 :         aEditButton.Enable();
     625             :     }
     626             :     else
     627           0 :         aEditButton.Disable();
     628             : 
     629             :     // enable/disable new module/dialog buttons
     630           0 :     LibraryLocation eLocation( aDesc.GetLocation() );
     631           0 :     bool bReadOnly = false;
     632           0 :     if ( nDepth > 0 )
     633             :     {
     634           0 :         Reference< script::XLibraryContainer2 > xModLibContainer( aDocument.getLibraryContainer( E_SCRIPTS ), UNO_QUERY );
     635           0 :         Reference< script::XLibraryContainer2 > xDlgLibContainer( aDocument.getLibraryContainer( E_DIALOGS ), UNO_QUERY );
     636           0 :         if ( ( xModLibContainer.is() && xModLibContainer->hasByName( aLibName ) && xModLibContainer->isLibraryReadOnly( aLibName ) ) ||
     637           0 :              ( xDlgLibContainer.is() && xDlgLibContainer->hasByName( aLibName ) && xDlgLibContainer->isLibraryReadOnly( aLibName ) ) )
     638             :         {
     639           0 :             bReadOnly = true;
     640           0 :         }
     641             :     }
     642           0 :     if ( bReadOnly || eLocation == LIBRARY_LOCATION_SHARE )
     643             :     {
     644           0 :         aNewModButton.Disable();
     645           0 :         aNewDlgButton.Disable();
     646             :     }
     647             :     else
     648             :     {
     649           0 :         aNewModButton.Enable();
     650           0 :         aNewDlgButton.Enable();
     651             :     }
     652             : 
     653             :     // enable/disable delete button
     654           0 :     if ( nDepth >= 2 && !bReadOnly && eLocation != LIBRARY_LOCATION_SHARE )
     655             :     {
     656           0 :         if( bVBAEnabled && ( nMode & BROWSEMODE_MODULES ) && ( ( nDepth == 2 ) || aLibSubName == IDE_RESSTR(RID_STR_DOCUMENT_OBJECTS) ) )
     657           0 :             aDelButton.Disable();
     658             :         else
     659           0 :         aDelButton.Enable();
     660             :     }
     661             :     else
     662           0 :         aDelButton.Disable();
     663           0 : }
     664             : 
     665           0 : IMPL_LINK( ObjectPage, BasicBoxHighlightHdl, TreeListBox *, pBox )
     666             : {
     667           0 :     if ( !pBox->IsSelected( pBox->GetHdlEntry() ) )
     668           0 :         return 0;
     669             : 
     670           0 :     CheckButtons();
     671           0 :     return 0;
     672             : }
     673             : 
     674           0 : IMPL_LINK( ObjectPage, ButtonHdl, Button *, pButton )
     675             : {
     676           0 :     if ( pButton == &aEditButton )
     677             :     {
     678           0 :         SfxAllItemSet aArgs( SFX_APP()->GetPool() );
     679           0 :         SfxRequest aRequest( SID_BASICIDE_APPEAR, SFX_CALLMODE_SYNCHRON, aArgs );
     680           0 :         SFX_APP()->ExecuteSlot( aRequest );
     681             : 
     682           0 :         SfxDispatcher* pDispatcher = GetDispatcher();
     683           0 :         SvTreeListEntry* pCurEntry = aBasicBox.GetCurEntry();
     684             :         DBG_ASSERT( pCurEntry, "Entry?!" );
     685           0 :         if ( aBasicBox.GetModel()->GetDepth( pCurEntry ) >= 2 )
     686             :         {
     687           0 :             EntryDescriptor aDesc = aBasicBox.GetEntryDescriptor(pCurEntry);
     688           0 :             if ( pDispatcher )
     689             :             {
     690           0 :                 OUString aModName( aDesc.GetName() );
     691             :                 // extract the module name from the string like "Sheet1 (Example1)"
     692           0 :                 if( aDesc.GetLibSubName() == IDE_RESSTR(RID_STR_DOCUMENT_OBJECTS) )
     693             :                 {
     694           0 :                     sal_Int32 nIndex = 0;
     695           0 :                     aModName = aModName.getToken( 0, ' ', nIndex );
     696             :                 }
     697           0 :                 SbxItem aSbxItem( SID_BASICIDE_ARG_SBX, aDesc.GetDocument(), aDesc.GetLibName(),
     698           0 :                                   aModName, aBasicBox.ConvertType( aDesc.GetType() ) );
     699           0 :                 pDispatcher->Execute( SID_BASICIDE_SHOWSBX, SFX_CALLMODE_SYNCHRON, &aSbxItem, 0L );
     700           0 :             }
     701             :         }
     702             :         else    // Nur Lib selektiert
     703             :         {
     704             :             DBG_ASSERT( aBasicBox.GetModel()->GetDepth( pCurEntry ) == 1, "Kein LibEntry?!" );
     705           0 :             ScriptDocument aDocument( ScriptDocument::getApplicationScriptDocument() );
     706           0 :             SvTreeListEntry* pParentEntry = aBasicBox.GetParent( pCurEntry );
     707           0 :             if ( pParentEntry )
     708             :             {
     709           0 :                 DocumentEntry* pDocumentEntry = (DocumentEntry*)pParentEntry->GetUserData();
     710           0 :                 if (pDocumentEntry)
     711           0 :                     aDocument = pDocumentEntry->GetDocument();
     712             :             }
     713           0 :             SfxUsrAnyItem aDocItem( SID_BASICIDE_ARG_DOCUMENT_MODEL, makeAny( aDocument.getDocumentOrNull() ) );
     714           0 :             OUString aLibName( aBasicBox.GetEntryText( pCurEntry ) );
     715           0 :             SfxStringItem aLibNameItem( SID_BASICIDE_ARG_LIBNAME, aLibName );
     716           0 :             if ( pDispatcher )
     717             :             {
     718           0 :                 pDispatcher->Execute( SID_BASICIDE_LIBSELECTED, SFX_CALLMODE_ASYNCHRON, &aDocItem, &aLibNameItem, 0L );
     719           0 :             }
     720             :         }
     721           0 :         EndTabDialog( 1 );
     722             :     }
     723           0 :     else if ( pButton == &aNewModButton )
     724           0 :         NewModule();
     725           0 :     else if ( pButton == &aNewDlgButton )
     726           0 :         NewDialog();
     727           0 :     else if ( pButton == &aDelButton )
     728           0 :         DeleteCurrent();
     729           0 :     else if ( pButton == &aCloseButton )
     730           0 :         EndTabDialog( 0 );
     731             : 
     732           0 :     return 0;
     733             : }
     734             : 
     735           0 : bool ObjectPage::GetSelection( ScriptDocument& rDocument, OUString& rLibName )
     736             : {
     737           0 :     bool bRet = false;
     738             : 
     739           0 :     SvTreeListEntry* pCurEntry = aBasicBox.GetCurEntry();
     740           0 :     EntryDescriptor aDesc = aBasicBox.GetEntryDescriptor(pCurEntry);
     741           0 :     rDocument = aDesc.GetDocument();
     742           0 :     rLibName = aDesc.GetLibName();
     743           0 :     if ( rLibName.isEmpty() )
     744           0 :         rLibName = "Standard" ;
     745             : 
     746             :     DBG_ASSERT( rDocument.isAlive(), "ObjectPage::GetSelection: no or dead ScriptDocument in the selection!" );
     747           0 :     if ( !rDocument.isAlive() )
     748           0 :         return false;
     749             : 
     750             :     // check if the module library is loaded
     751           0 :     bool bOK = true;
     752           0 :     OUString aLibName( rLibName );
     753           0 :     Reference< script::XLibraryContainer > xModLibContainer( rDocument.getLibraryContainer( E_SCRIPTS  ) );
     754           0 :     if ( xModLibContainer.is() && xModLibContainer->hasByName( aLibName ) && !xModLibContainer->isLibraryLoaded( aLibName ) )
     755             :     {
     756             :         // check password
     757           0 :         Reference< script::XLibraryContainerPassword > xPasswd( xModLibContainer, UNO_QUERY );
     758           0 :         if ( xPasswd.is() && xPasswd->isLibraryPasswordProtected( aLibName ) && !xPasswd->isLibraryPasswordVerified( aLibName ) )
     759             :         {
     760           0 :             OUString aPassword;
     761           0 :             bOK = QueryPassword( xModLibContainer, rLibName, aPassword );
     762             :         }
     763             : 
     764             :         // load library
     765           0 :         if ( bOK )
     766           0 :             xModLibContainer->loadLibrary( aLibName );
     767             :     }
     768             : 
     769             :     // check if the dialog library is loaded
     770           0 :     Reference< script::XLibraryContainer > xDlgLibContainer( rDocument.getLibraryContainer( E_DIALOGS ) );
     771           0 :     if ( xDlgLibContainer.is() && xDlgLibContainer->hasByName( aLibName ) && !xDlgLibContainer->isLibraryLoaded( aLibName ) )
     772             :     {
     773             :         // load library
     774           0 :         if ( bOK )
     775           0 :             xDlgLibContainer->loadLibrary( aLibName );
     776             :     }
     777             : 
     778           0 :     if ( bOK )
     779           0 :         bRet = true;
     780             : 
     781           0 :     return bRet;
     782             : }
     783             : 
     784           0 : void ObjectPage::NewModule()
     785             : {
     786           0 :     ScriptDocument aDocument( ScriptDocument::getApplicationScriptDocument() );
     787           0 :     OUString aLibName;
     788             : 
     789           0 :     if ( GetSelection( aDocument, aLibName ) )
     790             :     {
     791           0 :         OUString aModName;
     792             :         createModImpl( static_cast<Window*>( this ), aDocument,
     793           0 :                     aBasicBox, aLibName, aModName, true );
     794           0 :     }
     795           0 : }
     796             : 
     797           0 : void ObjectPage::NewDialog()
     798             : {
     799           0 :     ScriptDocument aDocument( ScriptDocument::getApplicationScriptDocument() );
     800           0 :     OUString aLibName;
     801             : 
     802           0 :     if ( GetSelection( aDocument, aLibName ) )
     803             :     {
     804           0 :         aDocument.getOrCreateLibrary( E_DIALOGS, aLibName );
     805             : 
     806           0 :         NewObjectDialog aNewDlg(this, ObjectMode::Dialog, true);
     807           0 :         aNewDlg.SetObjectName( aDocument.createObjectName( E_DIALOGS, aLibName ) );
     808             : 
     809           0 :         if (aNewDlg.Execute() != 0)
     810             :         {
     811           0 :             OUString aDlgName = aNewDlg.GetObjectName();
     812           0 :             if (aDlgName.isEmpty())
     813           0 :                 aDlgName = aDocument.createObjectName( E_DIALOGS, aLibName);
     814             : 
     815           0 :             if ( aDocument.hasDialog( aLibName, aDlgName ) )
     816             :             {
     817             :                 ErrorBox( this, WB_OK | WB_DEF_OK,
     818           0 :                           IDE_RESSTR(RID_STR_SBXNAMEALLREADYUSED2) ).Execute();
     819             :             }
     820             :             else
     821             :             {
     822           0 :                 Reference< io::XInputStreamProvider > xISP;
     823           0 :                 if ( !aDocument.createDialog( aLibName, aDlgName, xISP ) )
     824           0 :                     return;
     825             : 
     826           0 :                 SbxItem aSbxItem( SID_BASICIDE_ARG_SBX, aDocument, aLibName, aDlgName, TYPE_DIALOG );
     827           0 :                 if (SfxDispatcher* pDispatcher = GetDispatcher())
     828             :                     pDispatcher->Execute( SID_BASICIDE_SBXINSERTED,
     829           0 :                                             SFX_CALLMODE_SYNCHRON, &aSbxItem, 0L );
     830           0 :                 LibraryLocation eLocation = aDocument.getLibraryLocation( aLibName );
     831           0 :                 SvTreeListEntry* pRootEntry = aBasicBox.FindRootEntry( aDocument, eLocation );
     832           0 :                 if ( pRootEntry )
     833             :                 {
     834           0 :                     if ( !aBasicBox.IsExpanded( pRootEntry ) )
     835           0 :                         aBasicBox.Expand( pRootEntry );
     836           0 :                     SvTreeListEntry* pLibEntry = aBasicBox.FindEntry( pRootEntry, aLibName, OBJ_TYPE_LIBRARY );
     837             :                     DBG_ASSERT( pLibEntry, "Libeintrag nicht gefunden!" );
     838           0 :                     if ( pLibEntry )
     839             :                     {
     840           0 :                         if ( !aBasicBox.IsExpanded( pLibEntry ) )
     841           0 :                             aBasicBox.Expand( pLibEntry );
     842           0 :                         SvTreeListEntry* pEntry = aBasicBox.FindEntry( pLibEntry, aDlgName, OBJ_TYPE_DIALOG );
     843           0 :                         if ( !pEntry )
     844             :                         {
     845             :                             SAL_WNODEPRECATED_DECLARATIONS_PUSH
     846             :                             pEntry = aBasicBox.AddEntry(
     847             :                                 aDlgName,
     848             :                                 Image( IDEResId( RID_IMG_DIALOG ) ),
     849             :                                 pLibEntry, false,
     850           0 :                                 std::auto_ptr<Entry>(new Entry(OBJ_TYPE_DIALOG))
     851           0 :                             );
     852             :                             SAL_WNODEPRECATED_DECLARATIONS_POP
     853             :                             DBG_ASSERT( pEntry, "InsertEntry fehlgeschlagen!" );
     854             :                         }
     855           0 :                         aBasicBox.SetCurEntry( pEntry );
     856           0 :                         aBasicBox.Select( aBasicBox.GetCurEntry() );        // OV-Bug?!
     857             :                     }
     858           0 :                 }
     859           0 :             }
     860           0 :         }
     861           0 :     }
     862             : }
     863             : 
     864           0 : void ObjectPage::DeleteCurrent()
     865             : {
     866           0 :     SvTreeListEntry* pCurEntry = aBasicBox.GetCurEntry();
     867             :     DBG_ASSERT( pCurEntry, "Kein aktueller Eintrag!" );
     868           0 :     EntryDescriptor aDesc( aBasicBox.GetEntryDescriptor( pCurEntry ) );
     869           0 :     ScriptDocument aDocument( aDesc.GetDocument() );
     870             :     DBG_ASSERT( aDocument.isAlive(), "ObjectPage::DeleteCurrent: no document!" );
     871           0 :     if ( !aDocument.isAlive() )
     872           0 :         return;
     873           0 :     OUString aLibName( aDesc.GetLibName() );
     874           0 :     OUString aName( aDesc.GetName() );
     875           0 :     EntryType eType = aDesc.GetType();
     876             : 
     877           0 :     if ( ( eType == OBJ_TYPE_MODULE && QueryDelModule( aName, this ) ) ||
     878           0 :          ( eType == OBJ_TYPE_DIALOG && QueryDelDialog( aName, this ) ) )
     879             :     {
     880           0 :         aBasicBox.GetModel()->Remove( pCurEntry );
     881           0 :         if ( aBasicBox.GetCurEntry() )  // OV-Bug ?
     882           0 :             aBasicBox.Select( aBasicBox.GetCurEntry() );
     883           0 :         if (SfxDispatcher* pDispatcher = GetDispatcher())
     884             :         {
     885           0 :             SbxItem aSbxItem( SID_BASICIDE_ARG_SBX, aDocument, aLibName, aName, aBasicBox.ConvertType( eType ) );
     886             :             pDispatcher->Execute( SID_BASICIDE_SBXDELETED,
     887           0 :                                   SFX_CALLMODE_SYNCHRON, &aSbxItem, 0L );
     888             :         }
     889             : 
     890             :         try
     891             :         {
     892           0 :             bool bSuccess = false;
     893           0 :             if ( eType == OBJ_TYPE_MODULE )
     894           0 :                 bSuccess = aDocument.removeModule( aLibName, aName );
     895           0 :             else if ( eType == OBJ_TYPE_DIALOG )
     896           0 :                 bSuccess = RemoveDialog( aDocument, aLibName, aName );
     897             : 
     898           0 :             if ( bSuccess )
     899           0 :                 MarkDocumentModified( aDocument );
     900             :         }
     901           0 :         catch (const container::NoSuchElementException& )
     902             :         {
     903             :             DBG_UNHANDLED_EXCEPTION();
     904             :         }
     905           0 :     }
     906             : }
     907             : 
     908             : 
     909             : 
     910           0 : void ObjectPage::EndTabDialog( sal_uInt16 nRet )
     911             : {
     912             :     DBG_ASSERT( pTabDlg, "TabDlg nicht gesetzt!" );
     913           0 :     if ( pTabDlg )
     914           0 :         pTabDlg->EndDialog( nRet );
     915           0 : }
     916             : 
     917             : 
     918           0 : LibDialog::LibDialog( Window* pParent )
     919             :     : ModalDialog( pParent, IDEResId( RID_DLG_LIBS ) ),
     920             :         aOKButton(      this, IDEResId( RID_PB_OK ) ),
     921             :         aCancelButton(  this, IDEResId( RID_PB_CANCEL ) ),
     922             :         aStorageName(   this, IDEResId( RID_FT_STORAGENAME ) ),
     923             :         aLibBox(        this, IDEResId( RID_CTRL_LIBS ) ),
     924             :         aFixedLine(     this, IDEResId( RID_FL_OPTIONS ) ),
     925             :         aReferenceBox(  this, IDEResId( RID_CB_REF ) ),
     926           0 :         aReplaceBox(    this, IDEResId( RID_CB_REPL ) )
     927             : {
     928           0 :     SetText( IDE_RESSTR(RID_STR_APPENDLIBS) );
     929           0 :     FreeResource();
     930           0 : }
     931             : 
     932             : 
     933           0 : LibDialog::~LibDialog()
     934             : {
     935           0 : }
     936             : 
     937           0 : void LibDialog::SetStorageName( const OUString& rName )
     938             : {
     939           0 :     OUString aName( IDE_RESSTR(RID_STR_FILENAME) );
     940           0 :     aName += rName;
     941           0 :     aStorageName.SetText( aName );
     942           0 : }
     943             : 
     944             : // Helper function
     945           0 : SbModule* createModImpl( Window* pWin, const ScriptDocument& rDocument,
     946             :     TreeListBox& rBasicBox, const OUString& rLibName, OUString aModName, bool bMain )
     947             : {
     948             :     OSL_ENSURE( rDocument.isAlive(), "createModImpl: invalid document!" );
     949           0 :     if ( !rDocument.isAlive() )
     950           0 :         return NULL;
     951             : 
     952           0 :     SbModule* pModule = NULL;
     953             : 
     954           0 :     OUString aLibName( rLibName );
     955           0 :     if ( aLibName.isEmpty() )
     956           0 :         aLibName = "Standard" ;
     957           0 :     rDocument.getOrCreateLibrary( E_SCRIPTS, aLibName );
     958           0 :     if ( aModName.isEmpty() )
     959           0 :         aModName = rDocument.createObjectName( E_SCRIPTS, aLibName );
     960             : 
     961           0 :     NewObjectDialog aNewDlg(pWin, ObjectMode::Module, true);
     962           0 :     aNewDlg.SetObjectName( aModName );
     963             : 
     964           0 :     if (aNewDlg.Execute() != 0)
     965             :     {
     966           0 :         if (aNewDlg.GetObjectName().Len() )
     967           0 :             aModName = aNewDlg.GetObjectName();
     968             : 
     969             :         try
     970             :         {
     971           0 :             OUString sModuleCode;
     972             :             // the module has existed
     973           0 :             if( rDocument.hasModule( aLibName, aModName ) )
     974           0 :                 return NULL;
     975           0 :             rDocument.createModule( aLibName, aModName, bMain, sModuleCode );
     976           0 :             BasicManager* pBasMgr = rDocument.getBasicManager();
     977           0 :             StarBASIC* pBasic = pBasMgr? pBasMgr->GetLib( aLibName ) : 0;
     978           0 :                 if ( pBasic )
     979           0 :                     pModule = pBasic->FindModule( aModName );
     980           0 :                 SbxItem aSbxItem( SID_BASICIDE_ARG_SBX, rDocument, aLibName, aModName, TYPE_MODULE );
     981           0 :             if (SfxDispatcher* pDispatcher = GetDispatcher())
     982             :                 pDispatcher->Execute( SID_BASICIDE_SBXINSERTED,
     983           0 :                                       SFX_CALLMODE_SYNCHRON, &aSbxItem, 0L );
     984           0 :             LibraryLocation eLocation = rDocument.getLibraryLocation( aLibName );
     985           0 :             SvTreeListEntry* pRootEntry = rBasicBox.FindRootEntry( rDocument, eLocation );
     986           0 :             if ( pRootEntry )
     987             :             {
     988           0 :                 if ( !rBasicBox.IsExpanded( pRootEntry ) )
     989           0 :                     rBasicBox.Expand( pRootEntry );
     990           0 :                 SvTreeListEntry* pLibEntry = rBasicBox.FindEntry( pRootEntry, aLibName, OBJ_TYPE_LIBRARY );
     991             :                 DBG_ASSERT( pLibEntry, "Libeintrag nicht gefunden!" );
     992           0 :                 if ( pLibEntry )
     993             :                 {
     994           0 :                     if ( !rBasicBox.IsExpanded( pLibEntry ) )
     995           0 :                         rBasicBox.Expand( pLibEntry );
     996           0 :                     SvTreeListEntry* pSubRootEntry = pLibEntry;
     997           0 :                     if( pBasic && rDocument.isInVBAMode() )
     998             :                     {
     999             :                         // add the new module in the "Modules" entry
    1000           0 :                         SvTreeListEntry* pLibSubEntry = rBasicBox.FindEntry( pLibEntry, IDE_RESSTR(RID_STR_NORMAL_MODULES) , OBJ_TYPE_NORMAL_MODULES );
    1001           0 :                         if( pLibSubEntry )
    1002             :                         {
    1003           0 :                             if( !rBasicBox.IsExpanded( pLibSubEntry ) )
    1004           0 :                                 rBasicBox.Expand( pLibSubEntry );
    1005           0 :                             pSubRootEntry = pLibSubEntry;
    1006             :                         }
    1007             :                     }
    1008             : 
    1009           0 :                     SvTreeListEntry* pEntry = rBasicBox.FindEntry( pSubRootEntry, aModName, OBJ_TYPE_MODULE );
    1010           0 :                     if ( !pEntry )
    1011             :                     {
    1012             :                         SAL_WNODEPRECATED_DECLARATIONS_PUSH
    1013             :                         pEntry = rBasicBox.AddEntry(
    1014             :                             aModName,
    1015             :                             Image( IDEResId( RID_IMG_MODULE ) ),
    1016             :                             pSubRootEntry, false,
    1017           0 :                             std::auto_ptr<Entry>(new Entry(OBJ_TYPE_MODULE))
    1018           0 :                         );
    1019             :                         SAL_WNODEPRECATED_DECLARATIONS_POP
    1020             :                         DBG_ASSERT( pEntry, "InsertEntry fehlgeschlagen!" );
    1021             :                     }
    1022           0 :                     rBasicBox.SetCurEntry( pEntry );
    1023           0 :                     rBasicBox.Select( rBasicBox.GetCurEntry() );        // OV-Bug?!
    1024             :                 }
    1025           0 :             }
    1026             :         }
    1027           0 :         catch (const container::ElementExistException& )
    1028             :         {
    1029             :             ErrorBox( pWin, WB_OK | WB_DEF_OK,
    1030           0 :                       IDE_RESSTR(RID_STR_SBXNAMEALLREADYUSED2) ).Execute();
    1031             :         }
    1032           0 :         catch (const container::NoSuchElementException& )
    1033             :         {
    1034             :             DBG_UNHANDLED_EXCEPTION();
    1035             :         }
    1036             :     }
    1037           0 :     return pModule;
    1038             : }
    1039             : 
    1040             : 
    1041             : } // namespace basctl
    1042             : 
    1043             : /* vim:set shiftwidth=4 softtabstop=4 expandtab: */

Generated by: LCOV version 1.10