basctl/source/basicide/moduldlg.cxx

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