diff options
Diffstat (limited to 'cui/source/dialogs/scriptdlg.cxx')
| -rw-r--r-- | cui/source/dialogs/scriptdlg.cxx | 1575 |
1 files changed, 0 insertions, 1575 deletions
diff --git a/cui/source/dialogs/scriptdlg.cxx b/cui/source/dialogs/scriptdlg.cxx deleted file mode 100644 index 182e5bb02..000000000 --- a/cui/source/dialogs/scriptdlg.cxx +++ /dev/null @@ -1,1575 +0,0 @@ -/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ -/********************************************************************** - * - * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. - * - * Copyright 2000, 2010 Oracle and/or its affiliates. - * - * OpenOffice.org - a multi-platform office productivity suite - * - * This file is part of OpenOffice.org. - * - * OpenOffice.org is free software: you can redistribute it and/or modify - * it under the terms of the GNU Lesser General Public License version 3 - * only, as published by the Free Software Foundation. - * - * OpenOffice.org is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - * GNU Lesser General Public License version 3 for more details - * (a copy is included in the LICENSE file that accompanied this code). - * - * You should have received a copy of the GNU Lesser General Public License - * version 3 along with OpenOffice.org. If not, see - * <http://www.openoffice.org/license.html> - * for a copy of the LGPLv3 License. - * - ************************************************************************/ - -#include <memory> - -#include <sfx2/objsh.hxx> -#include <vcl/svapp.hxx> -#include <vcl/msgbox.hxx> -#include <osl/mutex.hxx> - -#include <cuires.hrc> -#include "scriptdlg.hrc" -#include "scriptdlg.hxx" -#include <dialmgr.hxx> -#include "selector.hxx" - -#include <com/sun/star/uno/XComponentContext.hpp> -#include <com/sun/star/frame/XDesktop.hpp> -#include <com/sun/star/script/provider/XScriptProviderSupplier.hpp> -#include <com/sun/star/script/provider/XScriptProvider.hpp> -#include <com/sun/star/script/browse/BrowseNodeTypes.hpp> -#include <com/sun/star/script/browse/XBrowseNodeFactory.hpp> -#include <com/sun/star/script/browse/BrowseNodeFactoryViewTypes.hpp> -#include <com/sun/star/script/provider/ScriptErrorRaisedException.hpp> -#include <com/sun/star/script/provider/ScriptExceptionRaisedException.hpp> -#include <com/sun/star/script/provider/ScriptFrameworkErrorType.hpp> -#include <com/sun/star/frame/XModuleManager.hpp> -#include <com/sun/star/script/XInvocation.hpp> -#include <com/sun/star/document/XEmbeddedScripts.hpp> - -#include <cppuhelper/implbase1.hxx> -#include <comphelper/documentinfo.hxx> -#include <comphelper/uno3.hxx> -#include <comphelper/processfactory.hxx> -#include <comphelper/broadcasthelper.hxx> -#include <comphelper/propertycontainer.hxx> -#include <comphelper/proparrhlp.hxx> - -#include <basic/sbx.hxx> -#include <svtools/imagemgr.hxx> -#include <tools/urlobj.hxx> -#include <vector> -#include <algorithm> - -using namespace ::com::sun::star; -using namespace ::com::sun::star::uno; -using namespace ::com::sun::star::script; -using namespace ::com::sun::star::frame; -using namespace ::com::sun::star::document; - -void ShowErrorDialog( const Any& aException ) -{ - SvxScriptErrorDialog* pDlg = new SvxScriptErrorDialog( NULL, aException ); - pDlg->Execute(); - delete pDlg; -} - -SFTreeListBox::SFTreeListBox( Window* pParent, const ResId& rResId ) : - SvTreeListBox( pParent, ResId( rResId.GetId(),*rResId.GetResMgr() ) ), - m_hdImage(ResId(IMG_HARDDISK,*rResId.GetResMgr())), - m_libImage(ResId(IMG_LIB,*rResId.GetResMgr())), - m_macImage(ResId(IMG_MACRO,*rResId.GetResMgr())), - m_docImage(ResId(IMG_DOCUMENT,*rResId.GetResMgr())), - m_sMyMacros(String(ResId(STR_MYMACROS,*rResId.GetResMgr()))), - m_sProdMacros(String(ResId(STR_PRODMACROS,*rResId.GetResMgr()))) -{ - FreeResource(); - SetSelectionMode( SINGLE_SELECTION ); - - SetStyle( GetStyle() | WB_CLIPCHILDREN | WB_HSCROLL | - WB_HASBUTTONS | WB_HASBUTTONSATROOT | WB_HIDESELECTION | - WB_HASLINES | WB_HASLINESATROOT ); - SetNodeDefaultImages(); - - nMode = 0xFF; // Alles -} - -SFTreeListBox::~SFTreeListBox() -{ - deleteAllTree(); -} - -void SFTreeListBox::delUserData( SvLBoxEntry* pEntry ) -{ - if ( pEntry ) - { - - String text = GetEntryText( pEntry ); - SFEntry* pUserData = (SFEntry*)pEntry->GetUserData(); - if ( pUserData ) - { - delete pUserData; - // TBD seem to get a Select event on node that is remove ( below ) - // so need to be able to detect that this node is not to be - // processed in order to do this, setting userData to NULL ( must - // be a better way to do this ) - pUserData = 0; - pEntry->SetUserData( pUserData ); - } - } -} - -void SFTreeListBox::deleteTree( SvLBoxEntry* pEntry ) -{ - - delUserData( pEntry ); - pEntry = FirstChild( pEntry ); - while ( pEntry ) - { - SvLBoxEntry* pNextEntry = NextSibling( pEntry ); - deleteTree( pEntry ); - GetModel()->Remove( pEntry ); - pEntry = pNextEntry; - } -} - -void SFTreeListBox::deleteAllTree() -{ - SvLBoxEntry* pEntry = GetEntry( 0 ); - - // TBD - below is a candidate for a destroyAllTrees method - if ( pEntry ) - { - while ( pEntry ) - { - String text = GetEntryText( pEntry ); - SvLBoxEntry* pNextEntry = NextSibling( pEntry ) ; - deleteTree( pEntry ); - GetModel()->Remove( pEntry ); - pEntry = pNextEntry; - } - } -} - -void SFTreeListBox::Init( const ::rtl::OUString& language ) -{ - SetUpdateMode( sal_False ); - - deleteAllTree(); - - Reference< browse::XBrowseNode > rootNode; - Reference< XComponentContext > xCtx; - - Sequence< Reference< browse::XBrowseNode > > children; - - ::rtl::OUString userStr( RTL_CONSTASCII_USTRINGPARAM("user") ); - ::rtl::OUString shareStr( RTL_CONSTASCII_USTRINGPARAM("share") ); - - ::rtl::OUString singleton( RTL_CONSTASCII_USTRINGPARAM("/singletons/com.sun.star.script.browse.theBrowseNodeFactory" ) ); - - try - { - Reference < beans::XPropertySet > xProps( - ::comphelper::getProcessServiceFactory(), UNO_QUERY_THROW ); - - xCtx.set( xProps->getPropertyValue( rtl::OUString( - RTL_CONSTASCII_USTRINGPARAM("DefaultContext" ))), UNO_QUERY_THROW ); - - Reference< browse::XBrowseNodeFactory > xFac( - xCtx->getValueByName( singleton ), UNO_QUERY_THROW ); - - rootNode.set( xFac->createView( - browse::BrowseNodeFactoryViewTypes::MACROORGANIZER ) ); - - if ( rootNode.is() && rootNode->hasChildNodes() == sal_True ) - { - children = rootNode->getChildNodes(); - } - } - catch( Exception& e ) - { - OSL_TRACE("Exception getting root browse node from factory: %s", - ::rtl::OUStringToOString( - e.Message , RTL_TEXTENCODING_ASCII_US ).pData->buffer ); - // TODO exception handling - } - - Reference<XModel> xDocumentModel; - for ( sal_Int32 n = 0; n < children.getLength(); n++ ) - { - bool app = false; - ::rtl::OUString uiName = children[ n ]->getName(); - ::rtl::OUString factoryURL; - if ( uiName.equals( userStr ) || uiName.equals( shareStr ) ) - { - app = true; - if ( uiName.equals( userStr ) ) - { - uiName = m_sMyMacros; - } - else - { - uiName = m_sProdMacros; - } - } - else - { - xDocumentModel.set(getDocumentModel(xCtx, uiName ), UNO_QUERY); - - if ( xDocumentModel.is() ) - { - Reference< ::com::sun::star::frame::XModuleManager > - xModuleManager( xCtx->getServiceManager()->createInstanceWithContext( - ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("com.sun.star.frame.ModuleManager") ), xCtx ), - UNO_QUERY_THROW ); - - Reference<container::XNameAccess> xModuleConfig( - xModuleManager, UNO_QUERY_THROW ); - // get the long name of the document: - Sequence<beans::PropertyValue> moduleDescr; - try{ - ::rtl::OUString appModule = xModuleManager->identify( xDocumentModel ); - xModuleConfig->getByName(appModule) >>= moduleDescr; - } catch(const uno::Exception&) - {} - - beans::PropertyValue const * pmoduleDescr = - moduleDescr.getConstArray(); - for ( sal_Int32 pos = moduleDescr.getLength(); pos--; ) - { - if (pmoduleDescr[ pos ].Name.equalsAsciiL( - RTL_CONSTASCII_STRINGPARAM( - "ooSetupFactoryEmptyDocumentURL") )) - { - pmoduleDescr[ pos ].Value >>= factoryURL; - break; - } - } - } - } - - ::rtl::OUString lang( language ); - Reference< browse::XBrowseNode > langEntries = - getLangNodeFromRootNode( children[ n ], lang ); - - insertEntry( uiName, app ? IMG_HARDDISK : IMG_DOCUMENT, - 0, true, std::auto_ptr< SFEntry >(new SFEntry( OBJTYPE_SFROOT, langEntries, xDocumentModel )), factoryURL ); - } - - SetUpdateMode( sal_True ); -} - -Reference< XInterface > -SFTreeListBox::getDocumentModel( Reference< XComponentContext >& xCtx, ::rtl::OUString& docName ) -{ - Reference< XInterface > xModel; - Reference< lang::XMultiComponentFactory > mcf = - xCtx->getServiceManager(); - Reference< frame::XDesktop > desktop ( - mcf->createInstanceWithContext( - ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("com.sun.star.frame.Desktop") ), xCtx ), - UNO_QUERY ); - - Reference< container::XEnumerationAccess > componentsAccess = - desktop->getComponents(); - Reference< container::XEnumeration > components = - componentsAccess->createEnumeration(); - while (components->hasMoreElements()) - { - Reference< frame::XModel > model( - components->nextElement(), UNO_QUERY ); - if ( model.is() ) - { - ::rtl::OUString sTdocUrl = ::comphelper::DocumentInfo::getDocumentTitle( model ); - if( sTdocUrl.equals( docName ) ) - { - xModel = model; - break; - } - } - } - return xModel; -} - -Reference< browse::XBrowseNode > -SFTreeListBox::getLangNodeFromRootNode( Reference< browse::XBrowseNode >& rootNode, ::rtl::OUString& language ) -{ - Reference< browse::XBrowseNode > langNode; - - try - { - Sequence < Reference< browse::XBrowseNode > > children = rootNode->getChildNodes(); - for ( sal_Int32 n = 0; n < children.getLength(); n++ ) - { - if ( children[ n ]->getName().equals( language ) ) - { - langNode = children[ n ]; - break; - } - } - } - catch ( Exception& ) - { - // if getChildNodes() throws an exception we just return - // the empty Reference - } - return langNode; -} - -void SFTreeListBox:: RequestSubEntries( SvLBoxEntry* pRootEntry, Reference< ::com::sun::star::script::browse::XBrowseNode >& node, - Reference< XModel >& model ) -{ - if (! node.is() ) - { - return; - } - - Sequence< Reference< browse::XBrowseNode > > children; - try - { - children = node->getChildNodes(); - } - catch ( Exception& ) - { - // if we catch an exception in getChildNodes then no entries are added - } - - for ( sal_Int32 n = 0; n < children.getLength(); n++ ) - { - ::rtl::OUString name( children[ n ]->getName() ); - if ( children[ n ]->getType() != browse::BrowseNodeTypes::SCRIPT) - { - insertEntry( name, IMG_LIB, pRootEntry, true, std::auto_ptr< SFEntry >(new SFEntry( OBJTYPE_SCRIPTCONTAINER, children[ n ],model ))); - } - else - { - if ( children[ n ]->getType() == browse::BrowseNodeTypes::SCRIPT ) - { - insertEntry( name, IMG_MACRO, pRootEntry, false, std::auto_ptr< SFEntry >(new SFEntry( OBJTYPE_METHOD, children[ n ],model ))); - - } - } - } -} - -long SFTreeListBox::ExpandingHdl() -{ - return sal_True; -} - -void SFTreeListBox::ExpandAllTrees() -{ -} - -SvLBoxEntry * SFTreeListBox::insertEntry( - String const & rText, sal_uInt16 nBitmap, SvLBoxEntry * pParent, - bool bChildrenOnDemand, std::auto_ptr< SFEntry > aUserData, ::rtl::OUString factoryURL ) -{ - SvLBoxEntry * p; - if( nBitmap == IMG_DOCUMENT && factoryURL.getLength() > 0 ) - { - Image aImage = SvFileInformationManager::GetFileImage( INetURLObject(factoryURL), false ); - p = InsertEntry( - rText, aImage, aImage, pParent, bChildrenOnDemand, LIST_APPEND, - aUserData.release()); // XXX possible leak - } - else - { - p = insertEntry( rText, nBitmap, pParent, bChildrenOnDemand, aUserData ); - } - return p; -} - -SvLBoxEntry * SFTreeListBox::insertEntry( - String const & rText, sal_uInt16 nBitmap, SvLBoxEntry * pParent, - bool bChildrenOnDemand, std::auto_ptr< SFEntry > aUserData ) -{ - Image aImage; - if( nBitmap == IMG_HARDDISK ) - { - aImage = m_hdImage; - } - else if( nBitmap == IMG_LIB ) - { - aImage = m_libImage; - } - else if( nBitmap == IMG_MACRO ) - { - aImage = m_macImage; - } - else if( nBitmap == IMG_DOCUMENT ) - { - aImage = m_docImage; - } - SvLBoxEntry * p = InsertEntry( - rText, aImage, aImage, pParent, bChildrenOnDemand, LIST_APPEND, - aUserData.release()); // XXX possible leak - return p; -} - -void SFTreeListBox::RequestingChilds( SvLBoxEntry* pEntry ) -{ - SFEntry* userData = 0; - if ( !pEntry ) - { - return; - } - userData = (SFEntry*)pEntry->GetUserData(); - - Reference< browse::XBrowseNode > node; - Reference< XModel > model; - if ( userData && !userData->isLoaded() ) - { - node = userData->GetNode(); - model = userData->GetModel(); - RequestSubEntries( pEntry, node, model ); - userData->setLoaded(); - } -} - -void SFTreeListBox::ExpandedHdl() -{ -} - -// ---------------------------------------------------------------------------- -// InputDialog ------------------------------------------------------------ -// ---------------------------------------------------------------------------- -InputDialog::InputDialog(Window * pParent, sal_uInt16 nMode ) - : ModalDialog( pParent, CUI_RES( RID_DLG_NEWLIB ) ), - aText( this, CUI_RES( FT_NEWLIB ) ), - aEdit( this, CUI_RES( ED_LIBNAME ) ), - aOKButton( this, CUI_RES( PB_OK ) ), - aCancelButton( this, CUI_RES( PB_CANCEL ) ) -{ - aEdit.GrabFocus(); - if ( nMode == INPUTMODE_NEWLIB ) - { - SetText( String( CUI_RES( STR_NEWLIB ) ) ); - } - else if ( nMode == INPUTMODE_NEWMACRO ) - { - SetText( String( CUI_RES( STR_NEWMACRO ) ) ); - aText.SetText( String( CUI_RES( STR_FT_NEWMACRO ) ) ); - } - else if ( nMode == INPUTMODE_RENAME ) - { - SetText( String( CUI_RES( STR_RENAME ) ) ); - aText.SetText( String( CUI_RES( STR_FT_RENAME ) ) ); - } - FreeResource(); - - // some resizing so that the text fits - Point point, newPoint; - Size siz, newSiz; - long gap; - - sal_uInt16 style = TEXT_DRAW_MULTILINE | TEXT_DRAW_TOP | - TEXT_DRAW_LEFT | TEXT_DRAW_WORDBREAK; - - // get dimensions of dialog instructions control - point = aText.GetPosPixel(); - siz = aText.GetSizePixel(); - - // get dimensions occupied by text in the control - Rectangle rect = - GetTextRect( Rectangle( point, siz ), aText.GetText(), style ); - newSiz = rect.GetSize(); - - // the gap is the difference between the text width and its control width - gap = siz.Height() - newSiz.Height(); - - //resize the text field - newSiz = Size( siz.Width(), siz.Height() - gap ); - aText.SetSizePixel( newSiz ); - - //move the OK & cancel buttons - point = aEdit.GetPosPixel(); - newPoint = Point( point.X(), point.Y() - gap ); - aEdit.SetPosPixel( newPoint ); - -} - -InputDialog::~InputDialog() -{ -} -// ---------------------------------------------------------------------------- -// ScriptOrgDialog ------------------------------------------------------------ -// ---------------------------------------------------------------------------- -SvxScriptOrgDialog::SvxScriptOrgDialog( Window* pParent, ::rtl::OUString language ) - : SfxModalDialog( pParent, CUI_RES( RID_DLG_SCRIPTORGANIZER ) ), - aScriptsTxt( this, CUI_RES( SF_TXT_SCRIPTS ) ), - aScriptsBox( this, CUI_RES( SF_CTRL_SCRIPTSBOX ) ), - aRunButton( this, CUI_RES( SF_PB_RUN ) ), - aCloseButton( this, CUI_RES( SF_PB_CLOSE ) ), - aCreateButton( this, CUI_RES( SF_PB_CREATE ) ), - aEditButton( this, CUI_RES( SF_PB_EDIT ) ), - aRenameButton(this, CUI_RES( SF_PB_RENAME ) ), - aDelButton( this, CUI_RES( SF_PB_DEL ) ), - aHelpButton( this, CUI_RES( SF_PB_HELP ) ), - m_sLanguage( language ), - m_delErrStr( CUI_RES( RID_SVXSTR_DELFAILED ) ), - m_delErrTitleStr( CUI_RES( RID_SVXSTR_DELFAILED_TITLE ) ), - m_delQueryStr( CUI_RES( RID_SVXSTR_DELQUERY ) ), - m_delQueryTitleStr( CUI_RES( RID_SVXSTR_DELQUERY_TITLE ) ) , - m_createErrStr( CUI_RES ( RID_SVXSTR_CREATEFAILED ) ), - m_createDupStr( CUI_RES ( RID_SVXSTR_CREATEFAILEDDUP ) ), - m_createErrTitleStr( CUI_RES( RID_SVXSTR_CREATEFAILED_TITLE ) ), - m_renameErrStr( CUI_RES ( RID_SVXSTR_RENAMEFAILED ) ), - m_renameErrTitleStr( CUI_RES( RID_SVXSTR_RENAMEFAILED_TITLE ) ) -{ - - // must be a neater way to deal with the strings than as above - // append the language to the dialog title - String winTitle( GetText() ); - winTitle.SearchAndReplace( String::CreateFromAscii( "%MACROLANG" ), language.pData->buffer ); - SetText( winTitle ); - - aScriptsBox.SetSelectHdl( LINK( this, SvxScriptOrgDialog, ScriptSelectHdl ) ); - aRunButton.SetClickHdl( LINK( this, SvxScriptOrgDialog, ButtonHdl ) ); - aCloseButton.SetClickHdl( LINK( this, SvxScriptOrgDialog, ButtonHdl ) ); - aRenameButton.SetClickHdl( LINK( this, SvxScriptOrgDialog, ButtonHdl ) ); - aEditButton.SetClickHdl( LINK( this, SvxScriptOrgDialog, ButtonHdl ) ); - aDelButton.SetClickHdl( LINK( this, SvxScriptOrgDialog, ButtonHdl ) ); - aCreateButton.SetClickHdl( LINK( this, SvxScriptOrgDialog, ButtonHdl ) ); - - aRunButton.Disable(); - aRenameButton.Disable(); - aEditButton.Disable(); - aDelButton.Disable(); - aCreateButton.Disable(); - - aScriptsBox.Init( m_sLanguage ); - RestorePreviousSelection(); - FreeResource(); -} - -SvxScriptOrgDialog::~SvxScriptOrgDialog() -{ - // clear the SelectHdl so that it isn't called during the dtor - aScriptsBox.SetSelectHdl( Link() ); -}; - -short SvxScriptOrgDialog::Execute() -{ - - SfxObjectShell *pDoc = SfxObjectShell::GetFirst(); - - // force load of MSPs for all documents - while ( pDoc ) - { - Reference< provider::XScriptProviderSupplier > xSPS = - Reference< provider::XScriptProviderSupplier > - ( pDoc->GetModel(), UNO_QUERY ); - if ( xSPS.is() ) - { - Reference< provider::XScriptProvider > ScriptProvider = - xSPS->getScriptProvider(); - } - - pDoc = SfxObjectShell::GetNext(*pDoc); - } - aScriptsBox.ExpandAllTrees(); - - Window* pPrevDlgParent = Application::GetDefDialogParent(); - Application::SetDefDialogParent( this ); - short nRet = ModalDialog::Execute(); - Application::SetDefDialogParent( pPrevDlgParent ); - return nRet; -} - -void SvxScriptOrgDialog::CheckButtons( Reference< browse::XBrowseNode >& node ) -{ - if ( node.is() ) - { - if ( node->getType() == browse::BrowseNodeTypes::SCRIPT) - { - aRunButton.Enable(); - } - else - { - aRunButton.Disable(); - } - Reference< beans::XPropertySet > xProps( node, UNO_QUERY ); - - if ( !xProps.is() ) - { - aEditButton.Disable(); - aDelButton.Disable(); - aCreateButton.Disable(); - aRunButton.Disable(); - return; - } - - ::rtl::OUString sName; - sName = String::CreateFromAscii("Editable") ; - - if ( getBoolProperty( xProps, sName ) ) - { - aEditButton.Enable(); - } - else - { - aEditButton.Disable(); - } - - sName = String::CreateFromAscii("Deletable") ; - - if ( getBoolProperty( xProps, sName ) ) - { - aDelButton.Enable(); - } - else - { - aDelButton.Disable(); - } - - sName = String::CreateFromAscii("Creatable") ; - - if ( getBoolProperty( xProps, sName ) ) - { - aCreateButton.Enable(); - } - else - { - aCreateButton.Disable(); - } - - sName = String::CreateFromAscii("Renamable") ; - - if ( getBoolProperty( xProps, sName ) ) - { - aRenameButton.Enable(); - } - else - { - aRenameButton.Disable(); - } - } - else - { - // no node info available, disable all configurable actions - aDelButton.Disable(); - aCreateButton.Disable(); - aEditButton.Disable(); - aRunButton.Disable(); - aRenameButton.Disable(); - } -} - -IMPL_LINK_INLINE_START( SvxScriptOrgDialog, MacroDoubleClickHdl, SvTreeListBox *, EMPTYARG ) -{ - return 0; -} - -IMPL_LINK_INLINE_END( SvxScriptOrgDialog, MacroDoubleClickHdl, SvTreeListBox *, EMPTYARG ) - -IMPL_LINK( SvxScriptOrgDialog, ScriptSelectHdl, SvTreeListBox *, pBox ) -{ - if ( !pBox->IsSelected( pBox->GetHdlEntry() ) ) - { - return 0; - } - - SvLBoxEntry* pEntry = pBox->GetHdlEntry(); - - SFEntry* userData = 0; - if ( !pEntry ) - { - return 0; - } - userData = (SFEntry*)pEntry->GetUserData(); - - Reference< browse::XBrowseNode > node; - if ( userData ) - { - node = userData->GetNode(); - CheckButtons( node ); - } - - return 0; -} - -IMPL_LINK( SvxScriptOrgDialog, ButtonHdl, Button *, pButton ) -{ - if ( pButton == &aCloseButton ) - { - StoreCurrentSelection(); - EndDialog( 0 ); - } - if ( pButton == &aEditButton || - pButton == &aCreateButton || - pButton == &aDelButton || - pButton == &aRunButton || - pButton == &aRenameButton ) - - { - if ( aScriptsBox.IsSelected( aScriptsBox.GetHdlEntry() ) ) - { - SvLBoxEntry* pEntry = aScriptsBox.GetHdlEntry(); - SFEntry* userData = 0; - if ( !pEntry ) - { - return 0; - } - userData = (SFEntry*)pEntry->GetUserData(); - if ( userData ) - { - Reference< browse::XBrowseNode > node; - Reference< XModel > xModel; - - node = userData->GetNode(); - xModel = userData->GetModel(); - - if ( !node.is() ) - { - return 0; - } - - if ( pButton == &aRunButton ) - { - ::rtl::OUString tmpString; - Reference< beans::XPropertySet > xProp( node, UNO_QUERY ); - Reference< provider::XScriptProvider > mspNode; - if( !xProp.is() ) - { - return 0; - } - - if ( xModel.is() ) - { - Reference< XEmbeddedScripts > xEmbeddedScripts( xModel, UNO_QUERY); - if( !xEmbeddedScripts.is() ) - { - return 0; - } - - if (!xEmbeddedScripts->getAllowMacroExecution()) - { - // Please FIXME: Show a message box if AllowMacroExecution is false - return 0; - } - } - - - SvLBoxEntry* pParent = aScriptsBox.GetParent( pEntry ); - while ( pParent && !mspNode.is() ) - { - SFEntry* mspUserData = (SFEntry*)pParent->GetUserData(); - mspNode.set( mspUserData->GetNode() , UNO_QUERY ); - pParent = aScriptsBox.GetParent( pParent ); - } - xProp->getPropertyValue( String::CreateFromAscii("URI" ) ) >>= tmpString; - const String scriptURL( tmpString ); - - if ( mspNode.is() ) - { - try - { - Reference< provider::XScript > xScript( - mspNode->getScript( scriptURL ), UNO_QUERY_THROW ); - - const Sequence< Any > args(0); - Any aRet; - Sequence< sal_Int16 > outIndex; - Sequence< Any > outArgs( 0 ); - aRet = xScript->invoke( args, outIndex, outArgs ); - } - catch ( reflection::InvocationTargetException& ite ) - { - ::com::sun::star::uno::Any a = makeAny(ite); - ShowErrorDialog(a); - } - catch ( provider::ScriptFrameworkErrorException& ite ) - { - ::com::sun::star::uno::Any a = makeAny(ite); - ShowErrorDialog(a); - } - catch ( RuntimeException& re ) - { - ::com::sun::star::uno::Any a = makeAny(re); - ShowErrorDialog(a); - } - catch ( Exception& e ) - { - ::com::sun::star::uno::Any a = makeAny(e); - ShowErrorDialog(a); - } - } - StoreCurrentSelection(); - EndDialog( 0 ); - } - else if ( pButton == &aEditButton ) - { - Reference< script::XInvocation > xInv( node, UNO_QUERY ); - if ( xInv.is() ) - { - StoreCurrentSelection(); - EndDialog( 0 ); - Sequence< Any > args(0); - Sequence< Any > outArgs( 0 ); - Sequence< sal_Int16 > outIndex; - try - { - // ISSUE need code to run script here - xInv->invoke( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("Editable" ) ), args, outIndex, outArgs ); - } - catch( Exception& e ) - { - OSL_TRACE("Caught exception trying to invoke %s", ::rtl::OUStringToOString( e.Message, RTL_TEXTENCODING_ASCII_US ).pData->buffer ); - - } - } - } - else if ( pButton == &aCreateButton ) - { - createEntry( pEntry ); - } - else if ( pButton == &aDelButton ) - { - deleteEntry( pEntry ); - } - else if ( pButton == &aRenameButton ) - { - renameEntry( pEntry ); - } - } - } - } - return 0; -} - -Reference< browse::XBrowseNode > SvxScriptOrgDialog::getBrowseNode( SvLBoxEntry* pEntry ) -{ - Reference< browse::XBrowseNode > node; - if ( pEntry ) - { - SFEntry* userData = (SFEntry*)pEntry->GetUserData(); - if ( userData ) - { - node = userData->GetNode(); - } - } - - return node; -} - -Reference< XModel > SvxScriptOrgDialog::getModel( SvLBoxEntry* pEntry ) -{ - Reference< XModel > model; - if ( pEntry ) - { - SFEntry* userData = (SFEntry*)pEntry->GetUserData(); - if ( userData ) - { - model = userData->GetModel(); - } - } - - return model; -} - -void SvxScriptOrgDialog::createEntry( SvLBoxEntry* pEntry ) -{ - - Reference< browse::XBrowseNode > aChildNode; - Reference< browse::XBrowseNode > node = getBrowseNode( pEntry ); - Reference< script::XInvocation > xInv( node, UNO_QUERY ); - - if ( xInv.is() ) - { - ::rtl::OUString aNewName; - ::rtl::OUString aNewStdName; - sal_uInt16 nMode = INPUTMODE_NEWLIB; - if( aScriptsBox.GetModel()->GetDepth( pEntry ) == 0 ) - { - aNewStdName = ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("Library") ) ; - } - else - { - aNewStdName = ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("Macro") ) ; - nMode = INPUTMODE_NEWMACRO; - } - //do we need L10N for this? ie somethng like: - //String aNewStdName( ResId( STR_STDMODULENAME ) ); - sal_Bool bValid = sal_False; - sal_uInt16 i = 1; - - Sequence< Reference< browse::XBrowseNode > > childNodes; - // no children => ok to create Parcel1 or Script1 without checking - try - { - if( node->hasChildNodes() == sal_False ) - { - aNewName = aNewStdName; - aNewName += String::CreateFromInt32( i ); - bValid = sal_True; - } - else - { - childNodes = node->getChildNodes(); - } - } - catch ( Exception& ) - { - // ignore, will continue on with empty sequence - } - - ::rtl::OUString extn; - while ( !bValid ) - { - aNewName = aNewStdName; - aNewName += String::CreateFromInt32( i ); - sal_Bool bFound = sal_False; - if(childNodes.getLength() > 0 ) - { - ::rtl::OUString nodeName = childNodes[0]->getName(); - sal_Int32 extnPos = nodeName.lastIndexOf( '.' ); - if(extnPos>0) - extn = nodeName.copy(extnPos); - } - for( sal_Int32 index = 0; index < childNodes.getLength(); index++ ) - { - if ( (aNewName+extn).equals( childNodes[index]->getName() ) ) - { - bFound = sal_True; - break; - } - } - if( bFound ) - { - i++; - } - else - { - bValid = sal_True; - } - } - - std::auto_ptr< InputDialog > xNewDlg( new InputDialog( static_cast<Window*>(this), nMode ) ); - xNewDlg->SetObjectName( aNewName ); - - do - { - if ( xNewDlg->Execute() && xNewDlg->GetObjectName().Len() ) - { - ::rtl::OUString aUserSuppliedName = xNewDlg->GetObjectName(); - bValid = sal_True; - for( sal_Int32 index = 0; index < childNodes.getLength(); index++ ) - { - if ( (aUserSuppliedName+extn).equals( childNodes[index]->getName() ) ) - { - bValid = sal_False; - String aError( m_createErrStr ); - aError.Append( m_createDupStr ); - ErrorBox aErrorBox( static_cast<Window*>(this), WB_OK | RET_OK, aError ); - aErrorBox.SetText( m_createErrTitleStr ); - aErrorBox.Execute(); - xNewDlg->SetObjectName( aNewName ); - break; - } - } - if( bValid ) - aNewName = aUserSuppliedName; - } - else - { - // user hit cancel or hit OK with nothing in the editbox - - return; - } - } - while ( !bValid ); - - // open up parent node (which ensures it's loaded) - aScriptsBox.RequestingChilds( pEntry ); - - Sequence< Any > args( 1 ); - args[ 0 ] <<= aNewName; - Sequence< Any > outArgs( 0 ); - Sequence< sal_Int16 > outIndex; - try - { - Any aResult; - aResult = xInv->invoke( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("Creatable") ), args, outIndex, outArgs ); - Reference< browse::XBrowseNode > newNode( aResult, UNO_QUERY ); - aChildNode = newNode; - - } - catch( Exception& e ) - { - OSL_TRACE("Caught exception trying to Create %s", - ::rtl::OUStringToOString( - e.Message, RTL_TEXTENCODING_ASCII_US ).pData->buffer ); - } - } - if ( aChildNode.is() ) - { - String aChildName = aChildNode->getName(); - SvLBoxEntry* pNewEntry = NULL; - - - ::rtl::OUString name( aChildName ); - Reference<XModel> xDocumentModel = getModel( pEntry ); - - // ISSUE do we need to remove all entries for parent - // to achieve sort? Just need to determine position - // SvTreeListBox::InsertEntry can take position arg - // -- Basic doesn't do this on create. - // Suppose we could avoid this too. -> created nodes are - // not in alphabetical order - if ( aChildNode->getType() == browse::BrowseNodeTypes::SCRIPT ) - { - pNewEntry = aScriptsBox.insertEntry( aChildName, - IMG_MACRO, pEntry, false, std::auto_ptr< SFEntry >(new SFEntry( OBJTYPE_METHOD, aChildNode,xDocumentModel ) ) ); - - } - else - { - pNewEntry = aScriptsBox.insertEntry( aChildName, - IMG_LIB, pEntry, false, std::auto_ptr< SFEntry >(new SFEntry( OBJTYPE_SCRIPTCONTAINER, aChildNode,xDocumentModel ) ) ); - // If the Parent is not loaded then set to - // loaded, this will prevent RequestingChilds ( called - // from vcl via RequestingChilds ) from - // creating new ( duplicate ) children - SFEntry* userData = (SFEntry*)pEntry->GetUserData(); - if ( userData && !userData->isLoaded() ) - { - userData->setLoaded(); - } - } - aScriptsBox.SetCurEntry( pNewEntry ); - aScriptsBox.Select( aScriptsBox.GetCurEntry() ); - - } - else - { - //ISSUE L10N & message from exception? - String aError( m_createErrStr ); - ErrorBox aErrorBox( static_cast<Window*>(this), WB_OK | RET_OK, aError ); - aErrorBox.SetText( m_createErrTitleStr ); - aErrorBox.Execute(); - } -} - -void SvxScriptOrgDialog::renameEntry( SvLBoxEntry* pEntry ) -{ - - Reference< browse::XBrowseNode > aChildNode; - Reference< browse::XBrowseNode > node = getBrowseNode( pEntry ); - Reference< script::XInvocation > xInv( node, UNO_QUERY ); - - if ( xInv.is() ) - { - ::rtl::OUString aNewName = node->getName(); - sal_Int32 extnPos = aNewName.lastIndexOf( '.' ); - ::rtl::OUString extn; - if(extnPos>0) - { - extn = aNewName.copy(extnPos); - aNewName = aNewName.copy(0,extnPos); - } - sal_uInt16 nMode = INPUTMODE_RENAME; - - std::auto_ptr< InputDialog > xNewDlg( new InputDialog( static_cast<Window*>(this), nMode ) ); - xNewDlg->SetObjectName( aNewName ); - - sal_Bool bValid; - do - { - if ( xNewDlg->Execute() && xNewDlg->GetObjectName().Len() ) - { - ::rtl::OUString aUserSuppliedName = xNewDlg->GetObjectName(); - bValid = sal_True; - if( bValid ) - aNewName = aUserSuppliedName; - } - else - { - // user hit cancel or hit OK with nothing in the editbox - return; - } - } - while ( !bValid ); - - Sequence< Any > args( 1 ); - args[ 0 ] <<= aNewName; - Sequence< Any > outArgs( 0 ); - Sequence< sal_Int16 > outIndex; - try - { - Any aResult; - aResult = xInv->invoke( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("Renamable") ), args, outIndex, outArgs ); - Reference< browse::XBrowseNode > newNode( aResult, UNO_QUERY ); - aChildNode = newNode; - - } - catch( Exception& e ) - { - OSL_TRACE("Caught exception trying to Rename %s", - ::rtl::OUStringToOString( - e.Message, RTL_TEXTENCODING_ASCII_US ).pData->buffer ); - } - } - if ( aChildNode.is() ) - { - aScriptsBox.SetEntryText( pEntry, aChildNode->getName() ); - aScriptsBox.SetCurEntry( pEntry ); - aScriptsBox.Select( aScriptsBox.GetCurEntry() ); - - } - else - { - //ISSUE L10N & message from exception? - String aError( m_renameErrStr ); - ErrorBox aErrorBox( static_cast<Window*>(this), WB_OK | RET_OK, aError ); - aErrorBox.SetText( m_renameErrTitleStr ); - aErrorBox.Execute(); - } -} -void SvxScriptOrgDialog::deleteEntry( SvLBoxEntry* pEntry ) -{ - sal_Bool result = sal_False; - Reference< browse::XBrowseNode > node = getBrowseNode( pEntry ); - // ISSUE L10N string & can we centre list? - String aQuery( m_delQueryStr ); - aQuery.Append( getListOfChildren( node, 0 ) ); - QueryBox aQueryBox( static_cast<Window*>(this), WB_YES_NO | WB_DEF_YES, aQuery ); - aQueryBox.SetText( m_delQueryTitleStr ); - if ( aQueryBox.Execute() == RET_NO ) - { - return; - } - - Reference< script::XInvocation > xInv( node, UNO_QUERY ); - if ( xInv.is() ) - { - Sequence< Any > args( 0 ); - Sequence< Any > outArgs( 0 ); - Sequence< sal_Int16 > outIndex; - try - { - Any aResult; - aResult = xInv->invoke( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("Deletable") ), args, outIndex, outArgs ); - aResult >>= result; // or do we just assume true if no exception ? - } - catch( Exception& e ) - { - OSL_TRACE("Caught exception trying to delete %s", - ::rtl::OUStringToOString( - e.Message, RTL_TEXTENCODING_ASCII_US ).pData->buffer ); - } - } - - if ( result == sal_True ) - { - aScriptsBox.deleteTree( pEntry ); - aScriptsBox.GetModel()->Remove( pEntry ); - } - else - { - //ISSUE L10N & message from exception? - ErrorBox aErrorBox( static_cast<Window*>(this), WB_OK | RET_OK, m_delErrStr ); - aErrorBox.SetText( m_delErrTitleStr ); - aErrorBox.Execute(); - } - -} - -sal_Bool SvxScriptOrgDialog::getBoolProperty( Reference< beans::XPropertySet >& xProps, - ::rtl::OUString& propName ) -{ - sal_Bool result = false; - try - { - sal_Bool bTemp = sal_False; - xProps->getPropertyValue( propName ) >>= bTemp; - result = ( bTemp == sal_True ); - } - catch ( Exception& ) - { - return result; - } - return result; -} - -String SvxScriptOrgDialog::getListOfChildren( Reference< browse::XBrowseNode > node, int depth ) -{ - String result; - result.Append( String::CreateFromAscii( "\n" ) ); - for( int i=0;i<=depth;i++ ) - { - result.Append( String::CreateFromAscii( "\t" ) ); - } - result.Append( String( node->getName() ) ); - - try - { - if ( node->hasChildNodes() == sal_True ) - { - Sequence< Reference< browse::XBrowseNode > > children - = node->getChildNodes(); - for ( sal_Int32 n = 0; n < children.getLength(); n++ ) - { - result.Append( getListOfChildren( children[ n ] , depth+1 ) ); - } - } - } - catch ( Exception& ) - { - // ignore, will return an empty string - } - - return result; -} - -Selection_hash SvxScriptOrgDialog::m_lastSelection; - -void SvxScriptOrgDialog::StoreCurrentSelection() -{ - String aDescription; - if ( aScriptsBox.IsSelected( aScriptsBox.GetHdlEntry() ) ) - { - SvLBoxEntry* pEntry = aScriptsBox.GetHdlEntry(); - while( pEntry ) - { - aDescription.Insert( aScriptsBox.GetEntryText( pEntry ), 0 ); - pEntry = aScriptsBox.GetParent( pEntry ); - if ( pEntry ) - aDescription.Insert( ';', 0 ); - } - ::rtl::OUString sDesc( aDescription ); - m_lastSelection[ m_sLanguage ] = sDesc; - } -} - -void SvxScriptOrgDialog::RestorePreviousSelection() -{ - String aStoredEntry = String( m_lastSelection[ m_sLanguage ] ); - if( aStoredEntry.Len() <= 0 ) - return; - SvLBoxEntry* pEntry = 0; - sal_uInt16 nIndex = 0; - while ( nIndex != STRING_NOTFOUND ) - { - String aTmp( aStoredEntry.GetToken( 0, ';', nIndex ) ); - SvLBoxEntry* pTmpEntry = aScriptsBox.FirstChild( pEntry ); - ::rtl::OUString debugStr(aTmp); - while ( pTmpEntry ) - { - debugStr = ::rtl::OUString(aScriptsBox.GetEntryText( pTmpEntry )); - if ( aScriptsBox.GetEntryText( pTmpEntry ) == aTmp ) - { - pEntry = pTmpEntry; - break; - } - pTmpEntry = aScriptsBox.NextSibling( pTmpEntry ); - } - if ( !pTmpEntry ) - break; - aScriptsBox.RequestingChilds( pEntry ); - } - aScriptsBox.SetCurEntry( pEntry ); -} - -::rtl::OUString ReplaceString( - const ::rtl::OUString& source, - const ::rtl::OUString& token, - const ::rtl::OUString& value ) -{ - sal_Int32 pos = source.indexOf( token ); - - if ( pos != -1 && value.getLength() != 0 ) - { - return source.replaceAt( pos, token.getLength(), value ); - } - else - { - return source; - } -} - -::rtl::OUString FormatErrorString( - const ::rtl::OUString& unformatted, - const ::rtl::OUString& language, - const ::rtl::OUString& script, - const ::rtl::OUString& line, - const ::rtl::OUString& type, - const ::rtl::OUString& message ) -{ - ::rtl::OUString result = unformatted.copy( 0 ); - - result = ReplaceString( - result, ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("%LANGUAGENAME") ), language ); - result = ReplaceString( - result, ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("%SCRIPTNAME") ), script ); - result = ReplaceString( - result, ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("%LINENUMBER") ), line ); - - if ( type.getLength() != 0 ) - { - result += ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("\n\n") ); - result += ::rtl::OUString(String(CUI_RES(RID_SVXSTR_ERROR_TYPE_LABEL))); - result += ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM(" ") ); - result += type; - } - - if ( message.getLength() != 0 ) - { - result += ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("\n\n") ); - result += ::rtl::OUString(String(CUI_RES(RID_SVXSTR_ERROR_MESSAGE_LABEL))); - result += ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM(" ") ); - result += message; - } - - return result; -} - -::rtl::OUString GetErrorMessage( - const provider::ScriptErrorRaisedException& eScriptError ) -{ - ::rtl::OUString unformatted = String( CUI_RES( RID_SVXSTR_ERROR_AT_LINE ) ); - - ::rtl::OUString unknown( RTL_CONSTASCII_USTRINGPARAM("UNKNOWN") ); - ::rtl::OUString language = unknown; - ::rtl::OUString script = unknown; - ::rtl::OUString line = unknown; - ::rtl::OUString type = ::rtl::OUString(); - ::rtl::OUString message = eScriptError.Message; - - if ( eScriptError.language.getLength() != 0 ) - { - language = eScriptError.language; - } - - if ( eScriptError.scriptName.getLength() != 0 ) - { - script = eScriptError.scriptName; - } - - if ( eScriptError.Message.getLength() != 0 ) - { - message = eScriptError.Message; - } - if ( eScriptError.lineNum != -1 ) - { - line = ::rtl::OUString::valueOf( eScriptError.lineNum ); - unformatted = String( - CUI_RES( RID_SVXSTR_ERROR_AT_LINE ) ); - } - else - { - unformatted = String( - CUI_RES( RID_SVXSTR_ERROR_RUNNING ) ); - } - - return FormatErrorString( - unformatted, language, script, line, type, message ); -} - -::rtl::OUString GetErrorMessage( - const provider::ScriptExceptionRaisedException& eScriptException ) -{ - ::rtl::OUString unformatted = - String( CUI_RES( RID_SVXSTR_EXCEPTION_AT_LINE ) ); - - ::rtl::OUString unknown( RTL_CONSTASCII_USTRINGPARAM("UNKNOWN") ); - ::rtl::OUString language = unknown; - ::rtl::OUString script = unknown; - ::rtl::OUString line = unknown; - ::rtl::OUString type = unknown; - ::rtl::OUString message = eScriptException.Message; - - if ( eScriptException.language.getLength() != 0 ) - { - language = eScriptException.language; - } - if ( eScriptException.scriptName.getLength() != 0 ) - { - script = eScriptException.scriptName; - } - - if ( eScriptException.Message.getLength() != 0 ) - { - message = eScriptException.Message; - } - - if ( eScriptException.lineNum != -1 ) - { - line = ::rtl::OUString::valueOf( eScriptException.lineNum ); - unformatted = String( - CUI_RES( RID_SVXSTR_EXCEPTION_AT_LINE ) ); - } - else - { - unformatted = String( - CUI_RES( RID_SVXSTR_EXCEPTION_RUNNING ) ); - } - - if ( eScriptException.exceptionType.getLength() != 0 ) - { - type = eScriptException.exceptionType; - } - - return FormatErrorString( - unformatted, language, script, line, type, message ); - -} -::rtl::OUString GetErrorMessage( - const provider::ScriptFrameworkErrorException& sError ) -{ - ::rtl::OUString unformatted = String( - CUI_RES( RID_SVXSTR_FRAMEWORK_ERROR_RUNNING ) ); - - ::rtl::OUString language( RTL_CONSTASCII_USTRINGPARAM("UNKNOWN") ); - - ::rtl::OUString script( RTL_CONSTASCII_USTRINGPARAM("UNKNOWN") ); - - ::rtl::OUString message; - - if ( sError.scriptName.getLength() > 0 ) - { - script = sError.scriptName; - } - if ( sError.language.getLength() > 0 ) - { - language = sError.language; - } - if ( sError.errorType == provider::ScriptFrameworkErrorType::NOTSUPPORTED ) - { - message = String( - CUI_RES( RID_SVXSTR_ERROR_LANG_NOT_SUPPORTED ) ); - message = ReplaceString( - message, ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("%LANGUAGENAME") ), language ); - - } - else - { - message = sError.Message; - } - return FormatErrorString( - unformatted, language, script, ::rtl::OUString(), ::rtl::OUString(), message ); -} - -::rtl::OUString GetErrorMessage( const RuntimeException& re ) -{ - Type t = ::getCppuType( &re ); - ::rtl::OUString message = t.getTypeName(); - message += re.Message; - - return message; -} - -::rtl::OUString GetErrorMessage( const Exception& e ) -{ - Type t = ::getCppuType( &e ); - ::rtl::OUString message = t.getTypeName(); - message += e.Message; - - return message; -} - -::rtl::OUString GetErrorMessage( const com::sun::star::uno::Any& aException ) -{ - ::rtl::OUString exType; - if ( aException.getValueType() == - ::getCppuType( (const reflection::InvocationTargetException* ) NULL ) ) - { - reflection::InvocationTargetException ite; - aException >>= ite; - if ( ite.TargetException.getValueType() == ::getCppuType( ( const provider::ScriptErrorRaisedException* ) NULL ) ) - { - // Error raised by script - provider::ScriptErrorRaisedException scriptError; - ite.TargetException >>= scriptError; - return GetErrorMessage( scriptError ); - } - else if ( ite.TargetException.getValueType() == ::getCppuType( ( const provider::ScriptExceptionRaisedException* ) NULL ) ) - { - // Exception raised by script - provider::ScriptExceptionRaisedException scriptException; - ite.TargetException >>= scriptException; - return GetErrorMessage( scriptException ); - } - else - { - // Unknown error, shouldn't happen - // OSL_ASSERT(...) - } - - } - else if ( aException.getValueType() == ::getCppuType( ( const provider::ScriptFrameworkErrorException* ) NULL ) ) - { - // A Script Framework error has occurred - provider::ScriptFrameworkErrorException sfe; - aException >>= sfe; - return GetErrorMessage( sfe ); - - } - // unknown exception - Exception e; - RuntimeException rte; - if ( aException >>= rte ) - { - return GetErrorMessage( rte ); - } - - aException >>= e; - return GetErrorMessage( e ); - -} - -SvxScriptErrorDialog::SvxScriptErrorDialog( - Window* , ::com::sun::star::uno::Any aException ) - : m_sMessage() -{ - SolarMutexGuard aGuard; - m_sMessage = GetErrorMessage( aException ); -} - -SvxScriptErrorDialog::~SvxScriptErrorDialog() -{ -} - -short SvxScriptErrorDialog::Execute() -{ - // Show Error dialog asynchronously - // - // Pass a copy of the message to the ShowDialog method as the - // SvxScriptErrorDialog may be deleted before ShowDialog is called - Application::PostUserEvent( - LINK( this, SvxScriptErrorDialog, ShowDialog ), - new rtl::OUString( m_sMessage ) ); - - return 0; -} - -IMPL_LINK( SvxScriptErrorDialog, ShowDialog, ::rtl::OUString*, pMessage ) -{ - ::rtl::OUString message; - - if ( pMessage && pMessage->getLength() != 0 ) - { - message = *pMessage; - } - else - { - message = String( CUI_RES( RID_SVXSTR_ERROR_TITLE ) ); - } - - MessBox* pBox = new WarningBox( NULL, WB_OK, message ); - pBox->SetText( CUI_RES( RID_SVXSTR_ERROR_TITLE ) ); - pBox->Execute(); - - if ( pBox ) delete pBox; - if ( pMessage ) delete pMessage; - - return 0; -} - -/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ |