cui/source/dialogs/scriptdlg.cxx

   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 <memory>
  21 #include <utility>
  22
  23 #include <sfx2/objsh.hxx>
  24 #include <vcl/svapp.hxx>
  25 #include <vcl/layout.hxx>
  26 #include <vcl/builderfactory.hxx>
  27 #include <osl/mutex.hxx>
  28
  29 #include <cuires.hrc>
  30 #include "scriptdlg.hrc"
  31 #include "scriptdlg.hxx"
  32 #include <dialmgr.hxx>
  33 #include "selector.hxx"
  34
  35 #include <com/sun/star/uno/XComponentContext.hpp>
  36 #include <com/sun/star/frame/XDesktop.hpp>
  37 #include <com/sun/star/script/provider/XScriptProviderSupplier.hpp>
  38 #include <com/sun/star/script/provider/XScriptProvider.hpp>
  39 #include <com/sun/star/script/browse/BrowseNodeTypes.hpp>
  40 #include <com/sun/star/script/browse/XBrowseNodeFactory.hpp>
  41 #include <com/sun/star/script/browse/BrowseNodeFactoryViewTypes.hpp>
  42 #include <com/sun/star/script/browse/theBrowseNodeFactory.hpp>
  43 #include <com/sun/star/script/provider/ScriptErrorRaisedException.hpp>
  44 #include <com/sun/star/script/provider/ScriptExceptionRaisedException.hpp>
  45 #include <com/sun/star/script/provider/ScriptFrameworkErrorType.hpp>
  46 #include <com/sun/star/frame/Desktop.hpp>
  47 #include <com/sun/star/frame/ModuleManager.hpp>
  48 #include <com/sun/star/script/XInvocation.hpp>
  49 #include <com/sun/star/document/XEmbeddedScripts.hpp>
  50
  51 #include <cppuhelper/implbase1.hxx>
  52 #include <comphelper/documentinfo.hxx>
  53 #include <comphelper/uno3.hxx>
  54 #include <comphelper/processfactory.hxx>
  55 #include <comphelper/broadcasthelper.hxx>
  56 #include <comphelper/propertycontainer.hxx>
  57 #include <comphelper/proparrhlp.hxx>
  58
  59 #include <basic/sbx.hxx>
  60 #include <svtools/imagemgr.hxx>
  61 #include "svtools/treelistentry.hxx"
  62 #include <tools/urlobj.hxx>
  63 #include <vector>
  64 #include <algorithm>
  65 #include <boost/scoped_ptr.hpp>
  66
  67 using namespace ::com::sun::star;
  68 using namespace ::com::sun::star::uno;
  69 using namespace ::com::sun::star::script;
  70 using namespace ::com::sun::star::frame;
  71 using namespace ::com::sun::star::document;
  72
  73 void ShowErrorDialog( const Any& aException )
  74 {
  75     boost::scoped_ptr<SvxScriptErrorDialog> pDlg(new SvxScriptErrorDialog( NULL, aException ));
  76     pDlg->Execute();
  77 }
  78
  79 SFTreeListBox::SFTreeListBox(vcl::Window* pParent)
  80     : SvTreeListBox(pParent)
  81     , m_hdImage(CUI_RES(RID_CUIIMG_HARDDISK))
  82     , m_libImage(CUI_RES(RID_CUIIMG_LIB))
  83     , m_macImage(CUI_RES(RID_CUIIMG_MACRO))
  84     , m_docImage(CUI_RES(RID_CUIIMG_DOC))
  85     , m_sMyMacros(CUI_RESSTR(RID_SVXSTR_MYMACROS))
  86     , m_sProdMacros(CUI_RESSTR(RID_SVXSTR_PRODMACROS))
  87 {
  88     SetSelectionMode( SINGLE_SELECTION );
  89
  90     SetStyle( GetStyle() | WB_CLIPCHILDREN | WB_HSCROLL |
  91                    WB_HASBUTTONS | WB_HASBUTTONSATROOT | WB_HIDESELECTION |
  92                    WB_HASLINES | WB_HASLINESATROOT | WB_TABSTOP );
  93     SetNodeDefaultImages();
  94
  95     nMode = 0xFF;    // everything
  96 }
  97
  98 VCL_BUILDER_FACTORY(SFTreeListBox)
  99
 100 SFTreeListBox::~SFTreeListBox()
 101 {
 102     disposeOnce();
 103 }
 104
 105 void SFTreeListBox::dispose()
 106 {
 107     deleteAllTree();
 108     SvTreeListBox::dispose();
 109 }
 110
 111 void SFTreeListBox::delUserData( SvTreeListEntry* pEntry )
 112 {
 113     if ( pEntry )
 114     {
 115         SFEntry* pUserData = static_cast<SFEntry*>(pEntry->GetUserData());
 116         if ( pUserData )
 117         {
 118             delete pUserData;
 119             // TBD seem to get a Select event on node that is remove ( below )
 120             // so need to be able to detect that this node is not to be
 121             // processed in order to do this, setting userData to NULL ( must
 122             // be a better way to do this )
 123             pUserData = 0;
 124             pEntry->SetUserData( pUserData );
 125         }
 126     }
 127 }
 128
 129 void SFTreeListBox::deleteTree( SvTreeListEntry* pEntry )
 130 {
 131
 132     delUserData( pEntry );
 133     pEntry = FirstChild( pEntry );
 134     while ( pEntry )
 135     {
 136         SvTreeListEntry* pNextEntry = NextSibling( pEntry );
 137         deleteTree( pEntry );
 138         GetModel()->Remove( pEntry );
 139         pEntry = pNextEntry;
 140     }
 141 }
 142
 143 void SFTreeListBox::deleteAllTree()
 144 {
 145     SvTreeListEntry* pEntry =  GetEntry( 0 );
 146
 147     // TBD - below is a candidate for a destroyAllTrees method
 148     if ( pEntry )
 149     {
 150         while ( pEntry )
 151         {
 152             SvTreeListEntry* pNextEntry = NextSibling( pEntry ) ;
 153             deleteTree( pEntry );
 154             GetModel()->Remove( pEntry );
 155             pEntry = pNextEntry;
 156         }
 157     }
 158 }
 159
 160 void SFTreeListBox::Init( const OUString& language  )
 161 {
 162     SetUpdateMode( false );
 163
 164     deleteAllTree();
 165
 166     Reference< browse::XBrowseNode > rootNode;
 167     Reference< XComponentContext > xCtx(
 168         comphelper::getProcessComponentContext() );
 169
 170     Sequence< Reference< browse::XBrowseNode > > children;
 171
 172     OUString userStr("user");
 173     OUString shareStr("share");
 174
 175     try
 176     {
 177         Reference< browse::XBrowseNodeFactory > xFac = browse::theBrowseNodeFactory::get(xCtx);
 178
 179         rootNode.set( xFac->createView(
 180             browse::BrowseNodeFactoryViewTypes::MACROORGANIZER ) );
 181
 182         if (  rootNode.is() && rootNode->hasChildNodes() == sal_True )
 183         {
 184             children = rootNode->getChildNodes();
 185         }
 186     }
 187     catch( Exception& e )
 188     {
 189         OSL_TRACE("Exception getting root browse node from factory: %s",
 190             OUStringToOString(
 191                 e.Message , RTL_TEXTENCODING_ASCII_US ).pData->buffer );
 192         // TODO exception handling
 193     }
 194
 195     Reference<XModel> xDocumentModel;
 196     for ( sal_Int32 n = 0; n < children.getLength(); n++ )
 197     {
 198         bool app = false;
 199         OUString uiName = children[ n ]->getName();
 200         OUString factoryURL;
 201         if ( uiName.equals( userStr ) || uiName.equals( shareStr ) )
 202         {
 203             app = true;
 204             if ( uiName.equals( userStr ) )
 205             {
 206                 uiName = m_sMyMacros;
 207             }
 208             else
 209             {
 210                 uiName = m_sProdMacros;
 211             }
 212         }
 213         else
 214         {
 215             xDocumentModel.set(getDocumentModel(xCtx, uiName ), UNO_QUERY);
 216
 217             if ( xDocumentModel.is() )
 218             {
 219                 Reference< frame::XModuleManager2 > xModuleManager( frame::ModuleManager::create(xCtx) );
 220
 221                 // get the long name of the document:
 222                 Sequence<beans::PropertyValue> moduleDescr;
 223                 try{
 224                     OUString appModule = xModuleManager->identify( xDocumentModel );
 225                     xModuleManager->getByName(appModule) >>= moduleDescr;
 226                 } catch(const uno::Exception&)
 227                     {}
 228
 229                 beans::PropertyValue const * pmoduleDescr =
 230                     moduleDescr.getConstArray();
 231                 for ( sal_Int32 pos = moduleDescr.getLength(); pos--; )
 232                 {
 233                     if ( pmoduleDescr[ pos ].Name == "ooSetupFactoryEmptyDocumentURL" )
 234                     {
 235                         pmoduleDescr[ pos ].Value >>= factoryURL;
 236                         break;
 237                     }
 238                 }
 239             }
 240         }
 241
 242         OUString lang( language );
 243         Reference< browse::XBrowseNode > langEntries =
 244             getLangNodeFromRootNode( children[ n ], lang );
 245
 246         insertEntry( uiName, app ? RID_CUIIMG_HARDDISK : RID_CUIIMG_DOC,
 247             0, true, std::unique_ptr< SFEntry >(new SFEntry( OBJTYPE_SFROOT, langEntries, xDocumentModel )), factoryURL );
 248     }
 249
 250     SetUpdateMode( true );
 251 }
 252
 253 Reference< XInterface  >
 254 SFTreeListBox::getDocumentModel( Reference< XComponentContext >& xCtx, OUString& docName )
 255 {
 256     Reference< XInterface > xModel;
 257     Reference< frame::XDesktop2 > desktop  = frame::Desktop::create(xCtx);
 258
 259     Reference< container::XEnumerationAccess > componentsAccess =
 260         desktop->getComponents();
 261     Reference< container::XEnumeration > components =
 262         componentsAccess->createEnumeration();
 263     while (components->hasMoreElements())
 264     {
 265         Reference< frame::XModel > model(
 266             components->nextElement(), UNO_QUERY );
 267         if ( model.is() )
 268         {
 269             OUString sTdocUrl = ::comphelper::DocumentInfo::getDocumentTitle( model );
 270             if( sTdocUrl.equals( docName ) )
 271             {
 272                 xModel = model;
 273                 break;
 274             }
 275         }
 276     }
 277     return xModel;
 278 }
 279
 280 Reference< browse::XBrowseNode >
 281 SFTreeListBox::getLangNodeFromRootNode( Reference< browse::XBrowseNode >& rootNode, OUString& language )
 282 {
 283     Reference< browse::XBrowseNode > langNode;
 284
 285     try
 286     {
 287         Sequence < Reference< browse::XBrowseNode > > children = rootNode->getChildNodes();
 288         for ( sal_Int32 n = 0; n < children.getLength(); n++ )
 289         {
 290             if ( children[ n ]->getName().equals( language ) )
 291             {
 292                 langNode = children[ n ];
 293                 break;
 294             }
 295         }
 296     }
 297     catch ( Exception& )
 298     {
 299         // if getChildNodes() throws an exception we just return
 300         // the empty Reference
 301     }
 302     return langNode;
 303 }
 304
 305 void SFTreeListBox:: RequestSubEntries( SvTreeListEntry* pRootEntry, Reference< ::com::sun::star::script::browse::XBrowseNode >& node,
 306                                        Reference< XModel >& model )
 307 {
 308     if (! node.is() )
 309     {
 310         return;
 311     }
 312
 313     Sequence< Reference< browse::XBrowseNode > > children;
 314     try
 315     {
 316         children = node->getChildNodes();
 317     }
 318     catch ( Exception& )
 319     {
 320         // if we catch an exception in getChildNodes then no entries are added
 321     }
 322
 323     for ( sal_Int32 n = 0; n < children.getLength(); n++ )
 324     {
 325         OUString name( children[ n ]->getName() );
 326         if (  children[ n ]->getType() !=  browse::BrowseNodeTypes::SCRIPT)
 327         {
 328             insertEntry( name, RID_CUIIMG_LIB, pRootEntry, true, std::unique_ptr< SFEntry >(new SFEntry( OBJTYPE_SCRIPTCONTAINER, children[ n ],model )));
 329         }
 330         else
 331         {
 332             if ( children[ n ]->getType() == browse::BrowseNodeTypes::SCRIPT )
 333             {
 334                 insertEntry( name, RID_CUIIMG_MACRO, pRootEntry, false, std::unique_ptr< SFEntry >(new SFEntry( OBJTYPE_METHOD, children[ n ],model )));
 335
 336             }
 337         }
 338     }
 339 }
 340
 341 bool SFTreeListBox::ExpandingHdl()
 342 {
 343     return true;
 344 }
 345
 346 SvTreeListEntry * SFTreeListBox::insertEntry(
 347     OUString const & rText, sal_uInt16 nBitmap, SvTreeListEntry * pParent,
 348     bool bChildrenOnDemand, std::unique_ptr< SFEntry > && aUserData, const OUString& factoryURL )
 349 {
 350     SvTreeListEntry * p;
 351     if( nBitmap == RID_CUIIMG_DOC && !factoryURL.isEmpty() )
 352     {
 353         Image aImage = SvFileInformationManager::GetFileImage( INetURLObject(factoryURL), false );
 354         p = InsertEntry(
 355             rText, aImage, aImage, pParent, bChildrenOnDemand, TREELIST_APPEND,
 356             aUserData.release()); // XXX possible leak
 357     }
 358     else
 359     {
 360         p = insertEntry( rText, nBitmap, pParent, bChildrenOnDemand, std::move(aUserData) );
 361     }
 362     return p;
 363 }
 364
 365 SvTreeListEntry * SFTreeListBox::insertEntry(
 366     OUString const & rText, sal_uInt16 nBitmap, SvTreeListEntry * pParent,
 367     bool bChildrenOnDemand, std::unique_ptr< SFEntry > && aUserData )
 368 {
 369     Image aImage;
 370     if( nBitmap == RID_CUIIMG_HARDDISK )
 371     {
 372         aImage = m_hdImage;
 373     }
 374     else if( nBitmap == RID_CUIIMG_LIB )
 375     {
 376         aImage = m_libImage;
 377     }
 378     else if( nBitmap == RID_CUIIMG_MACRO )
 379     {
 380         aImage = m_macImage;
 381     }
 382     else if( nBitmap == RID_CUIIMG_DOC )
 383     {
 384         aImage = m_docImage;
 385     }
 386     SvTreeListEntry * p = InsertEntry(
 387         rText, aImage, aImage, pParent, bChildrenOnDemand, TREELIST_APPEND,
 388         aUserData.release()); // XXX possible leak
 389    return p;
 390 }
 391
 392 void SFTreeListBox::RequestingChildren( SvTreeListEntry* pEntry )
 393 {
 394     SFEntry* userData = 0;
 395     if ( !pEntry )
 396     {
 397         return;
 398     }
 399     userData = static_cast<SFEntry*>(pEntry->GetUserData());
 400
 401     Reference< browse::XBrowseNode > node;
 402     Reference< XModel > model;
 403     if ( userData && !userData->isLoaded() )
 404     {
 405         node = userData->GetNode();
 406         model = userData->GetModel();
 407         RequestSubEntries( pEntry, node, model );
 408         userData->setLoaded();
 409     }
 410 }
 411
 412 void SFTreeListBox::ExpandedHdl()
 413 {
 414 }
 415
 416
 417 // CuiInputDialog ------------------------------------------------------------
 418
 419 CuiInputDialog::CuiInputDialog(vcl::Window * pParent, sal_uInt16 nMode )
 420     : ModalDialog(pParent, "NewLibDialog",
 421         "cui/ui/newlibdialog.ui")
 422 {
 423     get(m_pEdit, "entry");
 424     m_pEdit->GrabFocus();
 425
 426     FixedText *pNewLibFT = get<FixedText>("newlibft");
 427
 428     if ( nMode == INPUTMODE_NEWMACRO )
 429     {
 430         pNewLibFT->Hide();
 431         FixedText *pNewMacroFT = get<FixedText>("newmacroft");
 432         pNewMacroFT->Show();
 433         SetText(get<FixedText>("altmacrotitle")->GetText());
 434     }
 435     else if ( nMode == INPUTMODE_RENAME )
 436     {
 437         pNewLibFT->Hide();
 438         FixedText *pRenameFT = get<FixedText>("renameft");
 439         pRenameFT->Show();
 440         SetText(get<FixedText>("altrenametitle")->GetText());
 441     }
 442 }
 443
 444 CuiInputDialog::~CuiInputDialog()
 445 {
 446     disposeOnce();
 447 }
 448
 449 void CuiInputDialog::dispose()
 450 {
 451     m_pEdit.clear();
 452     ModalDialog::dispose();
 453 }
 454
 455
 456 // ScriptOrgDialog ------------------------------------------------------------
 457
 458 SvxScriptOrgDialog::SvxScriptOrgDialog( vcl::Window* pParent, const OUString& language )
 459     : SfxModalDialog(pParent, "ScriptOrganizerDialog",
 460         "cui/ui/scriptorganizer.ui")
 461     , m_sLanguage(language)
 462     , m_delErrStr(CUI_RESSTR(RID_SVXSTR_DELFAILED))
 463     , m_delErrTitleStr(CUI_RESSTR(RID_SVXSTR_DELFAILED_TITLE))
 464     , m_delQueryStr(CUI_RES(RID_SVXSTR_DELQUERY))
 465     , m_delQueryTitleStr(CUI_RESSTR(RID_SVXSTR_DELQUERY_TITLE))
 466     , m_createErrStr(CUI_RESSTR(RID_SVXSTR_CREATEFAILED))
 467     , m_createDupStr(CUI_RESSTR(RID_SVXSTR_CREATEFAILEDDUP))
 468     , m_createErrTitleStr(CUI_RESSTR(RID_SVXSTR_CREATEFAILED_TITLE))
 469     , m_renameErrStr(CUI_RESSTR(RID_SVXSTR_RENAMEFAILED))
 470     , m_renameErrTitleStr(CUI_RESSTR(RID_SVXSTR_RENAMEFAILED_TITLE))
 471 {
 472     get(m_pScriptsBox, "scripts");
 473     get(m_pRunButton, "run");
 474     get(m_pCloseButton, "close");
 475     get(m_pCreateButton, "create");
 476     get(m_pEditButton, "edit");
 477     get(m_pRenameButton, "rename");
 478     get(m_pDelButton, "delete");
 479     // must be a neater way to deal with the strings than as above
 480     // append the language to the dialog title
 481     OUString winTitle( GetText() );
 482     winTitle = winTitle.replaceFirst( "%MACROLANG", m_sLanguage );
 483     SetText( winTitle );
 484
 485     m_pScriptsBox->SetSelectHdl( LINK( this, SvxScriptOrgDialog, ScriptSelectHdl ) );
 486     m_pRunButton->SetClickHdl( LINK( this, SvxScriptOrgDialog, ButtonHdl ) );
 487     m_pCloseButton->SetClickHdl( LINK( this, SvxScriptOrgDialog, ButtonHdl ) );
 488     m_pRenameButton->SetClickHdl( LINK( this, SvxScriptOrgDialog, ButtonHdl ) );
 489     m_pEditButton->SetClickHdl( LINK( this, SvxScriptOrgDialog, ButtonHdl ) );
 490     m_pDelButton->SetClickHdl( LINK( this, SvxScriptOrgDialog, ButtonHdl ) );
 491     m_pCreateButton->SetClickHdl( LINK( this, SvxScriptOrgDialog, ButtonHdl ) );
 492
 493     m_pRunButton->Disable();
 494     m_pRenameButton->Disable();
 495     m_pEditButton->Disable();
 496     m_pDelButton->Disable();
 497     m_pCreateButton->Disable();
 498
 499     m_pScriptsBox->Init( m_sLanguage );
 500     RestorePreviousSelection();
 501 }
 502
 503 SvxScriptOrgDialog::~SvxScriptOrgDialog()
 504 {
 505     disposeOnce();
 506 }
 507
 508 void SvxScriptOrgDialog::dispose()
 509 {
 510     // clear the SelectHdl so that it isn't called during the dtor
 511     m_pScriptsBox->SetSelectHdl( Link<>() );
 512     m_pScriptsBox.clear();
 513     m_pRunButton.clear();
 514     m_pCloseButton.clear();
 515     m_pCreateButton.clear();
 516     m_pEditButton.clear();
 517     m_pRenameButton.clear();
 518     m_pDelButton.clear();
 519     SfxModalDialog::dispose();
 520 };
 521
 522 short SvxScriptOrgDialog::Execute()
 523 {
 524
 525     SfxObjectShell *pDoc = SfxObjectShell::GetFirst();
 526
 527     // force load of MSPs for all documents
 528     while ( pDoc )
 529     {
 530         Reference< provider::XScriptProviderSupplier > xSPS =
 531             Reference< provider::XScriptProviderSupplier >
 532                                         ( pDoc->GetModel(), UNO_QUERY );
 533         if ( xSPS.is() )
 534         {
 535             Reference< provider::XScriptProvider > ScriptProvider =
 536             xSPS->getScriptProvider();
 537         }
 538
 539         pDoc = SfxObjectShell::GetNext(*pDoc);
 540     }
 541
 542     vcl::Window* pPrevDlgParent = Application::GetDefDialogParent();
 543     Application::SetDefDialogParent( this );
 544     short nRet = ModalDialog::Execute();
 545     Application::SetDefDialogParent( pPrevDlgParent );
 546     return nRet;
 547 }
 548
 549 void SvxScriptOrgDialog::CheckButtons( Reference< browse::XBrowseNode >& node )
 550 {
 551     if ( node.is() )
 552     {
 553         if ( node->getType() == browse::BrowseNodeTypes::SCRIPT)
 554         {
 555             m_pRunButton->Enable();
 556         }
 557         else
 558         {
 559             m_pRunButton->Disable();
 560         }
 561         Reference< beans::XPropertySet > xProps( node, UNO_QUERY );
 562
 563         if ( !xProps.is() )
 564         {
 565             m_pEditButton->Disable();
 566             m_pDelButton->Disable();
 567             m_pCreateButton->Disable();
 568             m_pRunButton->Disable();
 569             return;
 570         }
 571
 572         OUString sName("Editable");
 573
 574         if ( getBoolProperty( xProps, sName ) )
 575         {
 576             m_pEditButton->Enable();
 577         }
 578         else
 579         {
 580             m_pEditButton->Disable();
 581         }
 582
 583         sName = "Deletable";
 584
 585         if ( getBoolProperty( xProps, sName ) )
 586         {
 587             m_pDelButton->Enable();
 588         }
 589         else
 590         {
 591             m_pDelButton->Disable();
 592         }
 593
 594         sName = "Creatable";
 595
 596         if ( getBoolProperty( xProps, sName ) )
 597         {
 598             m_pCreateButton->Enable();
 599         }
 600         else
 601         {
 602             m_pCreateButton->Disable();
 603         }
 604
 605         sName = "Renamable";
 606
 607         if ( getBoolProperty( xProps, sName ) )
 608         {
 609             m_pRenameButton->Enable();
 610         }
 611         else
 612         {
 613             m_pRenameButton->Disable();
 614         }
 615     }
 616     else
 617     {
 618         // no node info available, disable all configurable actions
 619         m_pDelButton->Disable();
 620         m_pCreateButton->Disable();
 621         m_pEditButton->Disable();
 622         m_pRunButton->Disable();
 623         m_pRenameButton->Disable();
 624     }
 625 }
 626
 627 IMPL_LINK( SvxScriptOrgDialog, ScriptSelectHdl, SvTreeListBox *, pBox )
 628 {
 629     if ( !pBox->IsSelected( pBox->GetHdlEntry() ) )
 630     {
 631         return 0;
 632     }
 633
 634     SvTreeListEntry* pEntry = pBox->GetHdlEntry();
 635
 636     SFEntry* userData = 0;
 637     if ( !pEntry )
 638     {
 639         return 0;
 640     }
 641     userData = static_cast<SFEntry*>(pEntry->GetUserData());
 642
 643     Reference< browse::XBrowseNode > node;
 644     if ( userData )
 645     {
 646               node = userData->GetNode();
 647         CheckButtons( node );
 648     }
 649
 650     return 0;
 651 }
 652
 653 IMPL_LINK( SvxScriptOrgDialog, ButtonHdl, Button *, pButton )
 654 {
 655     if ( pButton == m_pCloseButton )
 656     {
 657         StoreCurrentSelection();
 658         EndDialog( 0 );
 659     }
 660     if ( pButton == m_pEditButton ||
 661             pButton == m_pCreateButton ||
 662             pButton == m_pDelButton ||
 663             pButton == m_pRunButton ||
 664             pButton == m_pRenameButton )
 665
 666     {
 667         if ( m_pScriptsBox->IsSelected( m_pScriptsBox->GetHdlEntry() ) )
 668         {
 669             SvTreeListEntry* pEntry = m_pScriptsBox->GetHdlEntry();
 670             SFEntry* userData = 0;
 671             if ( !pEntry )
 672             {
 673                 return 0;
 674             }
 675             userData = static_cast<SFEntry*>(pEntry->GetUserData());
 676             if ( userData )
 677             {
 678                 Reference< browse::XBrowseNode > node;
 679                 Reference< XModel > xModel;
 680
 681                 node = userData->GetNode();
 682                 xModel = userData->GetModel();
 683
 684                 if ( !node.is() )
 685                 {
 686                     return 0;
 687                 }
 688
 689                 if ( pButton == m_pRunButton )
 690                 {
 691                     OUString tmpString;
 692                     Reference< beans::XPropertySet > xProp( node, UNO_QUERY );
 693                     Reference< provider::XScriptProvider > mspNode;
 694                     if( !xProp.is() )
 695                     {
 696                         return 0;
 697                     }
 698
 699                     if ( xModel.is() )
 700                     {
 701                         Reference< XEmbeddedScripts >  xEmbeddedScripts( xModel, UNO_QUERY);
 702                         if( !xEmbeddedScripts.is() )
 703                         {
 704                             return 0;
 705                         }
 706
 707                         if (!xEmbeddedScripts->getAllowMacroExecution())
 708                         {
 709                             // Please FIXME: Show a message box if AllowMacroExecution is false
 710                             return 0;
 711                         }
 712                     }
 713
 714
 715                     SvTreeListEntry* pParent = m_pScriptsBox->GetParent( pEntry );
 716                     while ( pParent && !mspNode.is() )
 717                     {
 718                         SFEntry* mspUserData = static_cast<SFEntry*>(pParent->GetUserData());
 719                         mspNode.set( mspUserData->GetNode() , UNO_QUERY );
 720                         pParent = m_pScriptsBox->GetParent( pParent );
 721                     }
 722                     xProp->getPropertyValue("URI") >>= tmpString;
 723                     const OUString scriptURL( tmpString );
 724
 725                     if ( mspNode.is() )
 726                     {
 727                         try
 728                         {
 729                             Reference< provider::XScript > xScript(
 730                             mspNode->getScript( scriptURL ), UNO_QUERY_THROW );
 731
 732                             const Sequence< Any > args(0);
 733                             Any aRet;
 734                             Sequence< sal_Int16 > outIndex;
 735                             Sequence< Any > outArgs( 0 );
 736                             aRet = xScript->invoke( args, outIndex, outArgs );
 737                         }
 738                         catch ( reflection::InvocationTargetException& ite )
 739                         {
 740                             ::com::sun::star::uno::Any a = makeAny(ite);
 741                             ShowErrorDialog(a);
 742                         }
 743                         catch ( provider::ScriptFrameworkErrorException& ite )
 744                         {
 745                             ::com::sun::star::uno::Any a = makeAny(ite);
 746                             ShowErrorDialog(a);
 747                         }
 748                         catch ( RuntimeException& re )
 749                         {
 750                             ::com::sun::star::uno::Any a = makeAny(re);
 751                             ShowErrorDialog(a);
 752                         }
 753                         catch ( Exception& e )
 754                         {
 755                             ::com::sun::star::uno::Any a = makeAny(e);
 756                             ShowErrorDialog(a);
 757                         }
 758                     }
 759                     StoreCurrentSelection();
 760                     EndDialog( 0 );
 761                 }
 762                 else if ( pButton == m_pEditButton )
 763                 {
 764                     Reference< script::XInvocation > xInv( node, UNO_QUERY );
 765                     if ( xInv.is() )
 766                     {
 767                         StoreCurrentSelection();
 768                         EndDialog( 0 );
 769                         Sequence< Any > args(0);
 770                         Sequence< Any > outArgs( 0 );
 771                         Sequence< sal_Int16 > outIndex;
 772                         try
 773                         {
 774                             // ISSUE need code to run script here
 775                             xInv->invoke( "Editable", args, outIndex, outArgs );
 776                         }
 777                         catch( Exception& e )
 778                         {
 779                             OSL_TRACE("Caught exception trying to invoke %s", OUStringToOString( e.Message, RTL_TEXTENCODING_ASCII_US ).pData->buffer );
 780
 781                         }
 782                     }
 783                 }
 784                 else if ( pButton == m_pCreateButton )
 785                 {
 786                     createEntry( pEntry );
 787                 }
 788                 else if ( pButton == m_pDelButton )
 789                 {
 790                     deleteEntry( pEntry );
 791                 }
 792                 else if ( pButton == m_pRenameButton )
 793                 {
 794                     renameEntry( pEntry );
 795                 }
 796             }
 797         }
 798     }
 799     return 0;
 800 }
 801
 802 Reference< browse::XBrowseNode > SvxScriptOrgDialog::getBrowseNode( SvTreeListEntry* pEntry )
 803 {
 804     Reference< browse::XBrowseNode > node;
 805     if ( pEntry )
 806     {
 807         SFEntry* userData = static_cast<SFEntry*>(pEntry->GetUserData());
 808         if ( userData )
 809         {
 810             node = userData->GetNode();
 811         }
 812     }
 813
 814     return node;
 815 }
 816
 817 Reference< XModel > SvxScriptOrgDialog::getModel( SvTreeListEntry* pEntry )
 818 {
 819     Reference< XModel > model;
 820     if ( pEntry )
 821     {
 822         SFEntry* userData = static_cast<SFEntry*>(pEntry->GetUserData());
 823         if ( userData )
 824         {
 825             model = userData->GetModel();
 826         }
 827     }
 828
 829     return model;
 830 }
 831
 832 void SvxScriptOrgDialog::createEntry( SvTreeListEntry* pEntry )
 833 {
 834
 835     Reference< browse::XBrowseNode >  aChildNode;
 836     Reference< browse::XBrowseNode > node = getBrowseNode( pEntry );
 837     Reference< script::XInvocation > xInv( node, UNO_QUERY );
 838
 839     if ( xInv.is() )
 840     {
 841         OUString aNewName;
 842         OUString aNewStdName;
 843         sal_uInt16 nMode = INPUTMODE_NEWLIB;
 844         if( m_pScriptsBox->GetModel()->GetDepth( pEntry ) == 0 )
 845         {
 846             aNewStdName = "Library" ;
 847         }
 848         else
 849         {
 850             aNewStdName = "Macro" ;
 851             nMode = INPUTMODE_NEWMACRO;
 852         }
 853         //do we need L10N for this? ie something like:
 854         //String aNewStdName( ResId( STR_STDMODULENAME ) );
 855         bool bValid = false;
 856         sal_Int32 i = 1;
 857
 858         Sequence< Reference< browse::XBrowseNode > > childNodes;
 859         // no children => ok to create Parcel1 or Script1 without checking
 860         try
 861         {
 862             if( node->hasChildNodes() == sal_False )
 863             {
 864                 aNewName = aNewStdName + OUString::number(i);
 865                 bValid = true;
 866             }
 867             else
 868             {
 869                 childNodes = node->getChildNodes();
 870             }
 871         }
 872         catch ( Exception& )
 873         {
 874             // ignore, will continue on with empty sequence
 875         }
 876
 877         OUString extn;
 878         while ( !bValid )
 879         {
 880             aNewName = aNewStdName + OUString::number(i);
 881             bool bFound = false;
 882             if(childNodes.getLength() > 0 )
 883             {
 884                 OUString nodeName = childNodes[0]->getName();
 885                 sal_Int32 extnPos = nodeName.lastIndexOf( '.' );
 886                 if(extnPos>0)
 887                     extn = nodeName.copy(extnPos);
 888             }
 889             for( sal_Int32 index = 0; index < childNodes.getLength(); index++ )
 890             {
 891                 if (aNewName+extn == childNodes[index]->getName())
 892                 {
 893                     bFound = true;
 894                     break;
 895                 }
 896             }
 897             if( bFound )
 898             {
 899                 i++;
 900             }
 901             else
 902             {
 903                 bValid = true;
 904             }
 905         }
 906
 907         ScopedVclPtrInstance< CuiInputDialog > xNewDlg( static_cast<vcl::Window*>(this), nMode );
 908         xNewDlg->SetObjectName( aNewName );
 909
 910         do
 911         {
 912             if ( xNewDlg->Execute() && !xNewDlg->GetObjectName().isEmpty() )
 913             {
 914                 OUString aUserSuppliedName = xNewDlg->GetObjectName();
 915                 bValid = true;
 916                 for( sal_Int32 index = 0; index < childNodes.getLength(); index++ )
 917                 {
 918                     if (aUserSuppliedName+extn == childNodes[index]->getName())
 919                     {
 920                         bValid = false;
 921                         OUString aError( m_createErrStr );
 922                         aError += m_createDupStr;
 923                         ScopedVclPtrInstance< MessageDialog > aErrorBox(static_cast<vcl::Window*>(this), aError);
 924                         aErrorBox->SetText( m_createErrTitleStr );
 925                         aErrorBox->Execute();
 926                         xNewDlg->SetObjectName( aNewName );
 927                         break;
 928                     }
 929                 }
 930                 if( bValid )
 931                     aNewName = aUserSuppliedName;
 932             }
 933             else
 934             {
 935                 // user hit cancel or hit OK with nothing in the editbox
 936
 937                 return;
 938             }
 939         }
 940         while ( !bValid );
 941
 942         // open up parent node (which ensures it's loaded)
 943         m_pScriptsBox->RequestingChildren( pEntry );
 944
 945         Sequence< Any > args( 1 );
 946         args[ 0 ] <<= aNewName;
 947         Sequence< Any > outArgs( 0 );
 948         Sequence< sal_Int16 > outIndex;
 949         try
 950         {
 951             Any aResult;
 952             aResult = xInv->invoke( "Creatable", args, outIndex, outArgs );
 953             Reference< browse::XBrowseNode > newNode( aResult, UNO_QUERY );
 954             aChildNode = newNode;
 955
 956         }
 957         catch( Exception& e )
 958         {
 959             OSL_TRACE("Caught exception trying to Create %s",
 960                 OUStringToOString(
 961                     e.Message, RTL_TEXTENCODING_ASCII_US ).pData->buffer );
 962         }
 963     }
 964     if ( aChildNode.is() )
 965     {
 966         OUString aChildName = aChildNode->getName();
 967         SvTreeListEntry* pNewEntry = NULL;
 968
 969         Reference<XModel> xDocumentModel = getModel( pEntry );
 970
 971         // ISSUE do we need to remove all entries for parent
 972         // to achieve sort? Just need to determine position
 973         // SvTreeListBox::InsertEntry can take position arg
 974         // -- Basic doesn't do this on create.
 975         // Suppose we could avoid this too. -> created nodes are
 976         // not in alphabetical order
 977         if ( aChildNode->getType() == browse::BrowseNodeTypes::SCRIPT )
 978         {
 979             pNewEntry = m_pScriptsBox->insertEntry( aChildName,
 980                     RID_CUIIMG_MACRO, pEntry, false, std::unique_ptr< SFEntry >(new SFEntry( OBJTYPE_METHOD, aChildNode,xDocumentModel ) ) );
 981         }
 982         else
 983         {
 984             pNewEntry = m_pScriptsBox->insertEntry( aChildName,
 985                 RID_CUIIMG_LIB, pEntry, false, std::unique_ptr< SFEntry >(new SFEntry( OBJTYPE_SCRIPTCONTAINER, aChildNode,xDocumentModel ) ) );
 986
 987             // If the Parent is not loaded then set to
 988             // loaded, this will prevent RequestingChildren ( called
 989             // from vcl via RequestingChildren ) from
 990             // creating new ( duplicate ) children
 991             SFEntry* userData = static_cast<SFEntry*>(pEntry->GetUserData());
 992             if ( userData &&  !userData->isLoaded() )
 993             {
 994                 userData->setLoaded();
 995             }
 996         }
 997         m_pScriptsBox->SetCurEntry( pNewEntry );
 998         m_pScriptsBox->Select( m_pScriptsBox->GetCurEntry() );
 999
1000     }
1001     else
1002     {
1003         //ISSUE L10N & message from exception?
1004         OUString aError( m_createErrStr );
1005         ScopedVclPtrInstance< MessageDialog > aErrorBox(static_cast<vcl::Window*>(this), aError);
1006         aErrorBox->SetText( m_createErrTitleStr );
1007         aErrorBox->Execute();
1008     }
1009 }
1010
1011 void SvxScriptOrgDialog::renameEntry( SvTreeListEntry* pEntry )
1012 {
1013
1014     Reference< browse::XBrowseNode >  aChildNode;
1015     Reference< browse::XBrowseNode > node = getBrowseNode( pEntry );
1016     Reference< script::XInvocation > xInv( node, UNO_QUERY );
1017
1018     if ( xInv.is() )
1019     {
1020         OUString aNewName = node->getName();
1021         sal_Int32 extnPos = aNewName.lastIndexOf( '.' );
1022         OUString extn;
1023         if(extnPos>0)
1024         {
1025             extn = aNewName.copy(extnPos);
1026             aNewName = aNewName.copy(0,extnPos);
1027         }
1028         sal_uInt16 nMode = INPUTMODE_RENAME;
1029
1030         ScopedVclPtrInstance< CuiInputDialog > xNewDlg( static_cast<vcl::Window*>(this), nMode );
1031         xNewDlg->SetObjectName( aNewName );
1032
1033         bool bValid;
1034         do
1035         {
1036             if ( xNewDlg->Execute() && !xNewDlg->GetObjectName().isEmpty() )
1037             {
1038                 OUString aUserSuppliedName = xNewDlg->GetObjectName();
1039                 bValid = true;
1040                 if( bValid )
1041                     aNewName = aUserSuppliedName;
1042             }
1043             else
1044             {
1045                 // user hit cancel or hit OK with nothing in the editbox
1046                 return;
1047             }
1048         }
1049         while ( !bValid );
1050
1051         Sequence< Any > args( 1 );
1052         args[ 0 ] <<= aNewName;
1053         Sequence< Any > outArgs( 0 );
1054         Sequence< sal_Int16 > outIndex;
1055         try
1056         {
1057             Any aResult;
1058             aResult = xInv->invoke( "Renamable", args, outIndex, outArgs );
1059             Reference< browse::XBrowseNode > newNode( aResult, UNO_QUERY );
1060             aChildNode = newNode;
1061
1062         }
1063         catch( Exception& e )
1064         {
1065             OSL_TRACE("Caught exception trying to Rename %s",
1066                 OUStringToOString(
1067                     e.Message, RTL_TEXTENCODING_ASCII_US ).pData->buffer );
1068         }
1069     }
1070     if ( aChildNode.is() )
1071     {
1072         m_pScriptsBox->SetEntryText( pEntry, aChildNode->getName() );
1073         m_pScriptsBox->SetCurEntry( pEntry );
1074         m_pScriptsBox->Select( m_pScriptsBox->GetCurEntry() );
1075
1076     }
1077     else
1078     {
1079         //ISSUE L10N & message from exception?
1080         OUString aError( m_renameErrStr );
1081         ScopedVclPtrInstance< MessageDialog > aErrorBox(static_cast<vcl::Window*>(this), aError);
1082         aErrorBox->SetText( m_renameErrTitleStr );
1083         aErrorBox->Execute();
1084     }
1085 }
1086 void SvxScriptOrgDialog::deleteEntry( SvTreeListEntry* pEntry )
1087 {
1088     bool result = false;
1089     Reference< browse::XBrowseNode > node = getBrowseNode( pEntry );
1090     // ISSUE L10N string & can we centre list?
1091     OUString aQuery = m_delQueryStr + getListOfChildren( node, 0 );
1092     VclPtrInstance< MessageDialog > aQueryBox(static_cast<vcl::Window*>(this), aQuery, VCL_MESSAGE_QUESTION, VCL_BUTTONS_YES_NO);
1093     aQueryBox->SetText( m_delQueryTitleStr );
1094     if ( aQueryBox->Execute() == RET_NO )
1095     {
1096         return;
1097     }
1098
1099     Reference< script::XInvocation > xInv( node, UNO_QUERY );
1100     if ( xInv.is() )
1101     {
1102         Sequence< Any > args( 0 );
1103         Sequence< Any > outArgs( 0 );
1104         Sequence< sal_Int16 > outIndex;
1105         try
1106         {
1107             Any aResult;
1108             aResult = xInv->invoke( "Deletable", args, outIndex, outArgs );
1109             aResult >>= result; // or do we just assume true if no exception ?
1110         }
1111         catch( Exception& e )
1112         {
1113             OSL_TRACE("Caught exception trying to delete %s",
1114                 OUStringToOString(
1115                     e.Message, RTL_TEXTENCODING_ASCII_US ).pData->buffer );
1116         }
1117     }
1118
1119     if ( result )
1120     {
1121         m_pScriptsBox->deleteTree( pEntry );
1122         m_pScriptsBox->GetModel()->Remove( pEntry );
1123     }
1124     else
1125     {
1126         //ISSUE L10N & message from exception?
1127         ScopedVclPtrInstance< MessageDialog > aErrorBox(static_cast<vcl::Window*>(this), m_delErrStr);
1128         aErrorBox->SetText( m_delErrTitleStr );
1129         aErrorBox->Execute();
1130     }
1131
1132 }
1133
1134 bool SvxScriptOrgDialog::getBoolProperty( Reference< beans::XPropertySet >& xProps,
1135                 OUString& propName )
1136 {
1137     bool result = false;
1138     try
1139     {
1140         xProps->getPropertyValue( propName ) >>= result;
1141     }
1142     catch ( Exception& )
1143     {
1144         return result;
1145     }
1146     return result;
1147 }
1148
1149 OUString SvxScriptOrgDialog::getListOfChildren( Reference< browse::XBrowseNode > node, int depth )
1150 {
1151     OUString result = "\n";
1152     for( int i=0;i<=depth;i++ )
1153     {
1154         result += "\t";
1155     }
1156     result += node->getName();
1157
1158     try
1159     {
1160         if ( node->hasChildNodes() == sal_True )
1161         {
1162             Sequence< Reference< browse::XBrowseNode > > children
1163                 = node->getChildNodes();
1164             for ( sal_Int32 n = 0; n < children.getLength(); n++ )
1165             {
1166                 result += getListOfChildren( children[ n ] , depth+1 );
1167             }
1168         }
1169     }
1170     catch ( Exception& )
1171     {
1172         // ignore, will return an empty string
1173     }
1174
1175     return result;
1176 }
1177
1178 Selection_hash SvxScriptOrgDialog::m_lastSelection;
1179
1180 void SvxScriptOrgDialog::StoreCurrentSelection()
1181 {
1182     OUString aDescription;
1183     if ( m_pScriptsBox->IsSelected( m_pScriptsBox->GetHdlEntry() ) )
1184     {
1185         SvTreeListEntry* pEntry = m_pScriptsBox->GetHdlEntry();
1186         while( pEntry )
1187         {
1188             aDescription = m_pScriptsBox->GetEntryText( pEntry ) + aDescription;
1189             pEntry = m_pScriptsBox->GetParent( pEntry );
1190             if ( pEntry )
1191                 aDescription = ";" + aDescription;
1192         }
1193         OUString sDesc( aDescription );
1194         m_lastSelection[ m_sLanguage ] = sDesc;
1195     }
1196 }
1197
1198 void SvxScriptOrgDialog::RestorePreviousSelection()
1199 {
1200     OUString aStoredEntry = m_lastSelection[ m_sLanguage ];
1201     if( aStoredEntry.isEmpty() )
1202         return;
1203     SvTreeListEntry* pEntry = 0;
1204     sal_Int32 nIndex = 0;
1205     while ( nIndex != -1 )
1206     {
1207         OUString aTmp( aStoredEntry.getToken( 0, ';', nIndex ) );
1208         SvTreeListEntry* pTmpEntry = m_pScriptsBox->FirstChild( pEntry );
1209         while ( pTmpEntry )
1210         {
1211             if ( m_pScriptsBox->GetEntryText( pTmpEntry ) == aTmp )
1212             {
1213                 pEntry = pTmpEntry;
1214                 break;
1215             }
1216             pTmpEntry = SvTreeListBox::NextSibling( pTmpEntry );
1217         }
1218         if ( !pTmpEntry )
1219             break;
1220         m_pScriptsBox->RequestingChildren( pEntry );
1221     }
1222     m_pScriptsBox->SetCurEntry( pEntry );
1223 }
1224
1225 OUString ReplaceString(
1226     const OUString& source,
1227     const OUString& token,
1228     const OUString& value )
1229 {
1230     sal_Int32 pos = source.indexOf( token );
1231
1232     if ( pos != -1 && !value.isEmpty() )
1233     {
1234         return source.replaceAt( pos, token.getLength(), value );
1235     }
1236     else
1237     {
1238         return source;
1239     }
1240 }
1241
1242 OUString FormatErrorString(
1243     const OUString& unformatted,
1244     const OUString& language,
1245     const OUString& script,
1246     const OUString& line,
1247     const OUString& type,
1248     const OUString& message )
1249 {
1250     OUString result = unformatted.copy( 0 );
1251
1252     result = ReplaceString(result, "%LANGUAGENAME", language );
1253     result = ReplaceString(result, "%SCRIPTNAME", script );
1254     result = ReplaceString(result, "%LINENUMBER", line );
1255
1256     if ( !type.isEmpty() )
1257     {
1258         result += "\n\n" +
1259                   OUString(CUI_RES(RID_SVXSTR_ERROR_TYPE_LABEL)) +
1260                   " " +
1261                   type;
1262     }
1263
1264     if ( !message.isEmpty() )
1265     {
1266         result += "\n\n" +
1267                   OUString(CUI_RES(RID_SVXSTR_ERROR_MESSAGE_LABEL)) +
1268                   " " +
1269                   message;
1270     }
1271
1272     return result;
1273 }
1274
1275 OUString GetErrorMessage(
1276     const provider::ScriptErrorRaisedException& eScriptError )
1277 {
1278     OUString unformatted = CUI_RES( RID_SVXSTR_ERROR_AT_LINE );
1279
1280     OUString unknown("UNKNOWN");
1281     OUString language = unknown;
1282     OUString script = unknown;
1283     OUString line = unknown;
1284     OUString type = "";
1285     OUString message = eScriptError.Message;
1286
1287         if ( !eScriptError.language.isEmpty() )
1288         {
1289             language = eScriptError.language;
1290         }
1291
1292         if ( !eScriptError.scriptName.isEmpty() )
1293         {
1294             script = eScriptError.scriptName;
1295         }
1296
1297         if ( !eScriptError.Message.isEmpty() )
1298         {
1299             message = eScriptError.Message;
1300         }
1301         if ( eScriptError.lineNum != -1 )
1302         {
1303             line = OUString::number( eScriptError.lineNum );
1304             unformatted = CUI_RES( RID_SVXSTR_ERROR_AT_LINE );
1305         }
1306         else
1307         {
1308             unformatted = CUI_RES( RID_SVXSTR_ERROR_RUNNING );
1309         }
1310
1311     return FormatErrorString(
1312         unformatted, language, script, line, type, message );
1313 }
1314
1315 OUString GetErrorMessage(
1316     const provider::ScriptExceptionRaisedException& eScriptException )
1317 {
1318     OUString unformatted = CUI_RES( RID_SVXSTR_EXCEPTION_AT_LINE );
1319
1320     OUString unknown("UNKNOWN");
1321     OUString language = unknown;
1322     OUString script = unknown;
1323     OUString line = unknown;
1324     OUString type = unknown;
1325     OUString message = eScriptException.Message;
1326
1327     if ( !eScriptException.language.isEmpty() )
1328     {
1329         language = eScriptException.language;
1330     }
1331     if ( !eScriptException.scriptName.isEmpty() )
1332     {
1333         script = eScriptException.scriptName;
1334     }
1335
1336     if ( !eScriptException.Message.isEmpty() )
1337     {
1338         message = eScriptException.Message;
1339     }
1340
1341     if ( eScriptException.lineNum != -1 )
1342     {
1343         line = OUString::number( eScriptException.lineNum );
1344         unformatted = CUI_RES( RID_SVXSTR_EXCEPTION_AT_LINE );
1345     }
1346     else
1347     {
1348         unformatted = CUI_RES( RID_SVXSTR_EXCEPTION_RUNNING );
1349     }
1350
1351     if ( !eScriptException.exceptionType.isEmpty() )
1352     {
1353         type = eScriptException.exceptionType;
1354     }
1355
1356     return FormatErrorString(
1357         unformatted, language, script, line, type, message );
1358
1359 }
1360 OUString GetErrorMessage(
1361     const provider::ScriptFrameworkErrorException& sError )
1362 {
1363     OUString unformatted = CUI_RES( RID_SVXSTR_FRAMEWORK_ERROR_RUNNING );
1364
1365     OUString language("UNKNOWN");
1366
1367     OUString script("UNKNOWN");
1368
1369     OUString message;
1370
1371     if ( !sError.scriptName.isEmpty() )
1372     {
1373         script = sError.scriptName;
1374     }
1375     if ( !sError.language.isEmpty() )
1376     {
1377         language = sError.language;
1378     }
1379     if ( sError.errorType == provider::ScriptFrameworkErrorType::NOTSUPPORTED )
1380     {
1381         message = OUString(
1382             CUI_RES(  RID_SVXSTR_ERROR_LANG_NOT_SUPPORTED ) );
1383         message = ReplaceString(message, "%LANGUAGENAME", language );
1384
1385     }
1386     else
1387     {
1388         message = sError.Message;
1389     }
1390     return FormatErrorString(
1391         unformatted, language, script, OUString(), OUString(), message );
1392 }
1393
1394 OUString GetErrorMessage( const RuntimeException& re )
1395 {
1396     Type t = cppu::UnoType<decltype(re)>::get();
1397     OUString message = t.getTypeName();
1398     message += re.Message;
1399
1400     return message;
1401 }
1402
1403 OUString GetErrorMessage( const Exception& e )
1404 {
1405     Type t = cppu::UnoType<decltype(e)>::get();
1406     OUString message = t.getTypeName();
1407     message += e.Message;
1408
1409     return message;
1410 }
1411
1412 OUString GetErrorMessage( const com::sun::star::uno::Any& aException )
1413 {
1414     if ( aException.getValueType() ==
1415          cppu::UnoType<reflection::InvocationTargetException>::get())
1416     {
1417         reflection::InvocationTargetException ite;
1418         aException >>= ite;
1419         if ( ite.TargetException.getValueType() == cppu::UnoType<provider::ScriptErrorRaisedException>::get())
1420         {
1421             // Error raised by script
1422             provider::ScriptErrorRaisedException scriptError;
1423             ite.TargetException >>= scriptError;
1424             return GetErrorMessage( scriptError );
1425         }
1426         else if ( ite.TargetException.getValueType() == cppu::UnoType<provider::ScriptExceptionRaisedException>::get())
1427         {
1428             // Exception raised by script
1429             provider::ScriptExceptionRaisedException scriptException;
1430             ite.TargetException >>= scriptException;
1431             return GetErrorMessage( scriptException );
1432         }
1433         else
1434         {
1435             // Unknown error, shouldn't happen
1436             // OSL_ASSERT(...)
1437         }
1438
1439     }
1440     else if ( aException.getValueType() == cppu::UnoType<provider::ScriptFrameworkErrorException>::get())
1441     {
1442         // A Script Framework error has occurred
1443         provider::ScriptFrameworkErrorException sfe;
1444         aException >>= sfe;
1445         return GetErrorMessage( sfe );
1446
1447     }
1448     // unknown exception
1449     Exception e;
1450     RuntimeException rte;
1451     if ( aException >>= rte )
1452     {
1453         return GetErrorMessage( rte );
1454     }
1455
1456     aException >>= e;
1457     return GetErrorMessage( e );
1458
1459 }
1460
1461 SvxScriptErrorDialog::SvxScriptErrorDialog(
1462     vcl::Window* , ::com::sun::star::uno::Any aException )
1463     : m_sMessage()
1464 {
1465     SolarMutexGuard aGuard;
1466     m_sMessage = GetErrorMessage( aException );
1467 }
1468
1469 SvxScriptErrorDialog::~SvxScriptErrorDialog()
1470 {
1471 }
1472
1473 short SvxScriptErrorDialog::Execute()
1474 {
1475     // Show Error dialog asynchronously
1476
1477     // Pass a copy of the message to the ShowDialog method as the
1478     // SvxScriptErrorDialog may be deleted before ShowDialog is called
1479     Application::PostUserEvent(
1480         LINK( this, SvxScriptErrorDialog, ShowDialog ),
1481         new OUString( m_sMessage ) );
1482
1483     return 0;
1484 }
1485
1486 IMPL_STATIC_LINK(
1487     SvxScriptErrorDialog, ShowDialog, OUString*, pMessage )
1488 {
1489     OUString message;
1490
1491     if ( pMessage && !pMessage->isEmpty() )
1492     {
1493         message = *pMessage;
1494     }
1495     else
1496     {
1497         message = OUString( CUI_RES( RID_SVXSTR_ERROR_TITLE ) );
1498     }
1499
1500     ScopedVclPtrInstance<MessageDialog> pBox( nullptr, message, VCL_MESSAGE_WARNING );
1501     pBox->SetText( CUI_RES( RID_SVXSTR_ERROR_TITLE ) );
1502     pBox->Execute();
1503
1504     delete pMessage;
1505
1506     return 0;
1507 }
1508
1509 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */