forked from amazingfate/loongoffice
ba0a57702c
For some functions and all kinds of Exceptions. CannotConvertException CloseVetoException DisposedException EmptyUndoStackException ErrorCodeIOException Exception GridInvalidDataException GridInvalidModelException IOException IllegalAccessException IllegalArgumentException IllegalTypeException IndexOutOfBoundsException NoMasterException NoSuchElementException NoSupportException PropertyVetoException RuntimeException SAXException ScannerException StorageWrappedTargetException UnsupportedFlavorException VetoException WrappedTargetException ZipIOException throwGenericSQLException throwIllegallArgumentException createInstance createInstanceWithContext forName getByName getPackageManager getPropertyValue getUnpackedValueOrDefault getValueByName hasPropertyByName openKey setName setPropertyValue supportsService bash command: for i in `cat list`; do git grep "$i\s*(\s*OUString(\s*\"" -- '*.[hc]xx' | cut -d ':' -f1 | sort -u | xargs sed -i -e "s/\(\<$i\s*(\)\s*OUString(\s*\(\"[^\")\\]*\"\)\s*)\s*/\1\2/g" -e "s/\($i.*\)\"+ /\1\" + /g"; done Change-Id: Iaf8e641b0abf28c082906014f87a183517630535 Reviewed-on: https://gerrit.libreoffice.org/4624 Tested-by: LibreOffice gerrit bot <gerrit@libreoffice.org> Reviewed-by: Thomas Arnhold <thomas@arnhold.org> Tested-by: Thomas Arnhold <thomas@arnhold.org>
1539 lines
46 KiB
C++
1539 lines
46 KiB
C++
/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
|
|
/*
|
|
* This file is part of the LibreOffice project.
|
|
*
|
|
* This Source Code Form is subject to the terms of the Mozilla Public
|
|
* License, v. 2.0. If a copy of the MPL was not distributed with this
|
|
* file, You can obtain one at http://mozilla.org/MPL/2.0/.
|
|
*
|
|
* This file incorporates work covered by the following license notice:
|
|
*
|
|
* Licensed to the Apache Software Foundation (ASF) under one or more
|
|
* contributor license agreements. See the NOTICE file distributed
|
|
* with this work for additional information regarding copyright
|
|
* ownership. The ASF licenses this file to you under the Apache
|
|
* License, Version 2.0 (the "License"); you may not use this file
|
|
* except in compliance with the License. You may obtain a copy of
|
|
* the License at http://www.apache.org/licenses/LICENSE-2.0 .
|
|
*/
|
|
|
|
#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/browse/theBrowseNodeFactory.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/Desktop.hpp>
|
|
#include <com/sun/star/frame/ModuleManager.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 "svtools/treelistentry.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)
|
|
: SvTreeListBox(pParent)
|
|
, m_hdImage(CUI_RES(RID_CUIIMG_HARDDISK))
|
|
, m_libImage(CUI_RES(RID_CUIIMG_LIB))
|
|
, m_macImage(CUI_RES(RID_CUIIMG_MACRO))
|
|
, m_docImage(CUI_RES(RID_CUIIMG_DOC))
|
|
, m_sMyMacros(CUI_RESSTR(RID_SVXSTR_MYMACROS))
|
|
, m_sProdMacros(CUI_RESSTR(RID_SVXSTR_PRODMACROS))
|
|
{
|
|
SetSelectionMode( SINGLE_SELECTION );
|
|
|
|
SetStyle( GetStyle() | WB_CLIPCHILDREN | WB_HSCROLL |
|
|
WB_HASBUTTONS | WB_HASBUTTONSATROOT | WB_HIDESELECTION |
|
|
WB_HASLINES | WB_HASLINESATROOT | WB_TABSTOP );
|
|
SetNodeDefaultImages();
|
|
|
|
nMode = 0xFF; // everything
|
|
}
|
|
|
|
extern "C" SAL_DLLPUBLIC_EXPORT Window* SAL_CALL makeSFTreeListBox(Window *pParent, VclBuilder::stringmap &)
|
|
{
|
|
return new SFTreeListBox(pParent);
|
|
}
|
|
|
|
SFTreeListBox::~SFTreeListBox()
|
|
{
|
|
deleteAllTree();
|
|
}
|
|
|
|
void SFTreeListBox::delUserData( SvTreeListEntry* pEntry )
|
|
{
|
|
if ( 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( SvTreeListEntry* pEntry )
|
|
{
|
|
|
|
delUserData( pEntry );
|
|
pEntry = FirstChild( pEntry );
|
|
while ( pEntry )
|
|
{
|
|
SvTreeListEntry* pNextEntry = NextSibling( pEntry );
|
|
deleteTree( pEntry );
|
|
GetModel()->Remove( pEntry );
|
|
pEntry = pNextEntry;
|
|
}
|
|
}
|
|
|
|
void SFTreeListBox::deleteAllTree()
|
|
{
|
|
SvTreeListEntry* pEntry = GetEntry( 0 );
|
|
|
|
// TBD - below is a candidate for a destroyAllTrees method
|
|
if ( pEntry )
|
|
{
|
|
while ( pEntry )
|
|
{
|
|
SvTreeListEntry* pNextEntry = NextSibling( pEntry ) ;
|
|
deleteTree( pEntry );
|
|
GetModel()->Remove( pEntry );
|
|
pEntry = pNextEntry;
|
|
}
|
|
}
|
|
}
|
|
|
|
void SFTreeListBox::Init( const OUString& language )
|
|
{
|
|
SetUpdateMode( sal_False );
|
|
|
|
deleteAllTree();
|
|
|
|
Reference< browse::XBrowseNode > rootNode;
|
|
Reference< XComponentContext > xCtx(
|
|
comphelper::getProcessComponentContext() );
|
|
|
|
Sequence< Reference< browse::XBrowseNode > > children;
|
|
|
|
OUString userStr("user");
|
|
OUString shareStr("share");
|
|
|
|
try
|
|
{
|
|
Reference< browse::XBrowseNodeFactory > xFac = browse::theBrowseNodeFactory::get(xCtx);
|
|
|
|
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",
|
|
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;
|
|
OUString uiName = children[ n ]->getName();
|
|
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< frame::XModuleManager2 > xModuleManager( frame::ModuleManager::create(xCtx) );
|
|
|
|
// get the long name of the document:
|
|
Sequence<beans::PropertyValue> moduleDescr;
|
|
try{
|
|
OUString appModule = xModuleManager->identify( xDocumentModel );
|
|
xModuleManager->getByName(appModule) >>= moduleDescr;
|
|
} catch(const uno::Exception&)
|
|
{}
|
|
|
|
beans::PropertyValue const * pmoduleDescr =
|
|
moduleDescr.getConstArray();
|
|
for ( sal_Int32 pos = moduleDescr.getLength(); pos--; )
|
|
{
|
|
if ( pmoduleDescr[ pos ].Name == "ooSetupFactoryEmptyDocumentURL" )
|
|
{
|
|
pmoduleDescr[ pos ].Value >>= factoryURL;
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
OUString lang( language );
|
|
Reference< browse::XBrowseNode > langEntries =
|
|
getLangNodeFromRootNode( children[ n ], lang );
|
|
|
|
SAL_WNODEPRECATED_DECLARATIONS_PUSH
|
|
insertEntry( uiName, app ? RID_CUIIMG_HARDDISK : RID_CUIIMG_DOC,
|
|
0, true, std::auto_ptr< SFEntry >(new SFEntry( OBJTYPE_SFROOT, langEntries, xDocumentModel )), factoryURL );
|
|
SAL_WNODEPRECATED_DECLARATIONS_POP
|
|
}
|
|
|
|
SetUpdateMode( sal_True );
|
|
}
|
|
|
|
Reference< XInterface >
|
|
SFTreeListBox::getDocumentModel( Reference< XComponentContext >& xCtx, OUString& docName )
|
|
{
|
|
Reference< XInterface > xModel;
|
|
Reference< frame::XDesktop2 > desktop = frame::Desktop::create(xCtx);
|
|
|
|
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() )
|
|
{
|
|
OUString sTdocUrl = ::comphelper::DocumentInfo::getDocumentTitle( model );
|
|
if( sTdocUrl.equals( docName ) )
|
|
{
|
|
xModel = model;
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
return xModel;
|
|
}
|
|
|
|
Reference< browse::XBrowseNode >
|
|
SFTreeListBox::getLangNodeFromRootNode( Reference< browse::XBrowseNode >& rootNode, 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( SvTreeListEntry* 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++ )
|
|
{
|
|
OUString name( children[ n ]->getName() );
|
|
if ( children[ n ]->getType() != browse::BrowseNodeTypes::SCRIPT)
|
|
{
|
|
SAL_WNODEPRECATED_DECLARATIONS_PUSH
|
|
insertEntry( name, RID_CUIIMG_LIB, pRootEntry, true, std::auto_ptr< SFEntry >(new SFEntry( OBJTYPE_SCRIPTCONTAINER, children[ n ],model )));
|
|
SAL_WNODEPRECATED_DECLARATIONS_POP
|
|
}
|
|
else
|
|
{
|
|
if ( children[ n ]->getType() == browse::BrowseNodeTypes::SCRIPT )
|
|
{
|
|
SAL_WNODEPRECATED_DECLARATIONS_PUSH
|
|
insertEntry( name, RID_CUIIMG_MACRO, pRootEntry, false, std::auto_ptr< SFEntry >(new SFEntry( OBJTYPE_METHOD, children[ n ],model )));
|
|
SAL_WNODEPRECATED_DECLARATIONS_POP
|
|
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
long SFTreeListBox::ExpandingHdl()
|
|
{
|
|
return sal_True;
|
|
}
|
|
|
|
void SFTreeListBox::ExpandAllTrees()
|
|
{
|
|
}
|
|
|
|
SAL_WNODEPRECATED_DECLARATIONS_PUSH
|
|
SvTreeListEntry * SFTreeListBox::insertEntry(
|
|
String const & rText, sal_uInt16 nBitmap, SvTreeListEntry * pParent,
|
|
bool bChildrenOnDemand, std::auto_ptr< SFEntry > aUserData, OUString factoryURL )
|
|
{
|
|
SvTreeListEntry * p;
|
|
if( nBitmap == RID_CUIIMG_DOC && !factoryURL.isEmpty() )
|
|
{
|
|
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;
|
|
}
|
|
SAL_WNODEPRECATED_DECLARATIONS_POP
|
|
|
|
SAL_WNODEPRECATED_DECLARATIONS_PUSH
|
|
SvTreeListEntry * SFTreeListBox::insertEntry(
|
|
String const & rText, sal_uInt16 nBitmap, SvTreeListEntry * pParent,
|
|
bool bChildrenOnDemand, std::auto_ptr< SFEntry > aUserData )
|
|
{
|
|
Image aImage;
|
|
if( nBitmap == RID_CUIIMG_HARDDISK )
|
|
{
|
|
aImage = m_hdImage;
|
|
}
|
|
else if( nBitmap == RID_CUIIMG_LIB )
|
|
{
|
|
aImage = m_libImage;
|
|
}
|
|
else if( nBitmap == RID_CUIIMG_MACRO )
|
|
{
|
|
aImage = m_macImage;
|
|
}
|
|
else if( nBitmap == RID_CUIIMG_DOC )
|
|
{
|
|
aImage = m_docImage;
|
|
}
|
|
SvTreeListEntry * p = InsertEntry(
|
|
rText, aImage, aImage, pParent, bChildrenOnDemand, LIST_APPEND,
|
|
aUserData.release()); // XXX possible leak
|
|
return p;
|
|
}
|
|
SAL_WNODEPRECATED_DECLARATIONS_POP
|
|
|
|
void SFTreeListBox::RequestingChildren( SvTreeListEntry* 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()
|
|
{
|
|
}
|
|
|
|
// ----------------------------------------------------------------------------
|
|
// CuiInputDialog ------------------------------------------------------------
|
|
// ----------------------------------------------------------------------------
|
|
CuiInputDialog::CuiInputDialog(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 );
|
|
|
|
}
|
|
|
|
CuiInputDialog::~CuiInputDialog()
|
|
{
|
|
}
|
|
// ----------------------------------------------------------------------------
|
|
// ScriptOrgDialog ------------------------------------------------------------
|
|
// ----------------------------------------------------------------------------
|
|
SvxScriptOrgDialog::SvxScriptOrgDialog( Window* pParent, OUString language )
|
|
: SfxModalDialog(pParent, "ScriptOrganizerDialog", "cui/ui/scriptorganizer.ui")
|
|
, m_sLanguage(language)
|
|
, m_delErrStr(CUI_RESSTR(RID_SVXSTR_DELFAILED))
|
|
, m_delErrTitleStr(CUI_RESSTR(RID_SVXSTR_DELFAILED_TITLE))
|
|
, m_delQueryStr(CUI_RES(RID_SVXSTR_DELQUERY))
|
|
, m_delQueryTitleStr(CUI_RESSTR(RID_SVXSTR_DELQUERY_TITLE))
|
|
, m_createErrStr(CUI_RESSTR(RID_SVXSTR_CREATEFAILED))
|
|
, m_createDupStr(CUI_RESSTR(RID_SVXSTR_CREATEFAILEDDUP))
|
|
, m_createErrTitleStr(CUI_RESSTR(RID_SVXSTR_CREATEFAILED_TITLE))
|
|
, m_renameErrStr(CUI_RESSTR(RID_SVXSTR_RENAMEFAILED))
|
|
, m_renameErrTitleStr(CUI_RESSTR(RID_SVXSTR_RENAMEFAILED_TITLE))
|
|
{
|
|
get(m_pScriptsBox, "scripts");
|
|
get(m_pRunButton, "run");
|
|
get(m_pCloseButton, "close");
|
|
get(m_pCreateButton, "create");
|
|
get(m_pEditButton, "edit");
|
|
get(m_pRenameButton, "rename");
|
|
get(m_pDelButton, "delete");
|
|
// 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( OUString( "%MACROLANG" ), m_sLanguage );
|
|
SetText( winTitle );
|
|
|
|
m_pScriptsBox->SetSelectHdl( LINK( this, SvxScriptOrgDialog, ScriptSelectHdl ) );
|
|
m_pRunButton->SetClickHdl( LINK( this, SvxScriptOrgDialog, ButtonHdl ) );
|
|
m_pCloseButton->SetClickHdl( LINK( this, SvxScriptOrgDialog, ButtonHdl ) );
|
|
m_pRenameButton->SetClickHdl( LINK( this, SvxScriptOrgDialog, ButtonHdl ) );
|
|
m_pEditButton->SetClickHdl( LINK( this, SvxScriptOrgDialog, ButtonHdl ) );
|
|
m_pDelButton->SetClickHdl( LINK( this, SvxScriptOrgDialog, ButtonHdl ) );
|
|
m_pCreateButton->SetClickHdl( LINK( this, SvxScriptOrgDialog, ButtonHdl ) );
|
|
|
|
m_pRunButton->Disable();
|
|
m_pRenameButton->Disable();
|
|
m_pEditButton->Disable();
|
|
m_pDelButton->Disable();
|
|
m_pCreateButton->Disable();
|
|
|
|
m_pScriptsBox->Init( m_sLanguage );
|
|
RestorePreviousSelection();
|
|
}
|
|
|
|
SvxScriptOrgDialog::~SvxScriptOrgDialog()
|
|
{
|
|
// clear the SelectHdl so that it isn't called during the dtor
|
|
m_pScriptsBox->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);
|
|
}
|
|
m_pScriptsBox->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)
|
|
{
|
|
m_pRunButton->Enable();
|
|
}
|
|
else
|
|
{
|
|
m_pRunButton->Disable();
|
|
}
|
|
Reference< beans::XPropertySet > xProps( node, UNO_QUERY );
|
|
|
|
if ( !xProps.is() )
|
|
{
|
|
m_pEditButton->Disable();
|
|
m_pDelButton->Disable();
|
|
m_pCreateButton->Disable();
|
|
m_pRunButton->Disable();
|
|
return;
|
|
}
|
|
|
|
OUString sName("Editable") ;
|
|
|
|
if ( getBoolProperty( xProps, sName ) )
|
|
{
|
|
m_pEditButton->Enable();
|
|
}
|
|
else
|
|
{
|
|
m_pEditButton->Disable();
|
|
}
|
|
|
|
sName = OUString("Deletable") ;
|
|
|
|
if ( getBoolProperty( xProps, sName ) )
|
|
{
|
|
m_pDelButton->Enable();
|
|
}
|
|
else
|
|
{
|
|
m_pDelButton->Disable();
|
|
}
|
|
|
|
sName = OUString("Creatable") ;
|
|
|
|
if ( getBoolProperty( xProps, sName ) )
|
|
{
|
|
m_pCreateButton->Enable();
|
|
}
|
|
else
|
|
{
|
|
m_pCreateButton->Disable();
|
|
}
|
|
|
|
sName = OUString("Renamable") ;
|
|
|
|
if ( getBoolProperty( xProps, sName ) )
|
|
{
|
|
m_pRenameButton->Enable();
|
|
}
|
|
else
|
|
{
|
|
m_pRenameButton->Disable();
|
|
}
|
|
}
|
|
else
|
|
{
|
|
// no node info available, disable all configurable actions
|
|
m_pDelButton->Disable();
|
|
m_pCreateButton->Disable();
|
|
m_pEditButton->Disable();
|
|
m_pRunButton->Disable();
|
|
m_pRenameButton->Disable();
|
|
}
|
|
}
|
|
|
|
IMPL_LINK( SvxScriptOrgDialog, ScriptSelectHdl, SvTreeListBox *, pBox )
|
|
{
|
|
if ( !pBox->IsSelected( pBox->GetHdlEntry() ) )
|
|
{
|
|
return 0;
|
|
}
|
|
|
|
SvTreeListEntry* 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 == m_pCloseButton )
|
|
{
|
|
StoreCurrentSelection();
|
|
EndDialog( 0 );
|
|
}
|
|
if ( pButton == m_pEditButton ||
|
|
pButton == m_pCreateButton ||
|
|
pButton == m_pDelButton ||
|
|
pButton == m_pRunButton ||
|
|
pButton == m_pRenameButton )
|
|
|
|
{
|
|
if ( m_pScriptsBox->IsSelected( m_pScriptsBox->GetHdlEntry() ) )
|
|
{
|
|
SvTreeListEntry* pEntry = m_pScriptsBox->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 == m_pRunButton )
|
|
{
|
|
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;
|
|
}
|
|
}
|
|
|
|
|
|
SvTreeListEntry* pParent = m_pScriptsBox->GetParent( pEntry );
|
|
while ( pParent && !mspNode.is() )
|
|
{
|
|
SFEntry* mspUserData = (SFEntry*)pParent->GetUserData();
|
|
mspNode.set( mspUserData->GetNode() , UNO_QUERY );
|
|
pParent = m_pScriptsBox->GetParent( pParent );
|
|
}
|
|
xProp->getPropertyValue("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 == m_pEditButton )
|
|
{
|
|
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( "Editable", args, outIndex, outArgs );
|
|
}
|
|
catch( Exception& e )
|
|
{
|
|
OSL_TRACE("Caught exception trying to invoke %s", OUStringToOString( e.Message, RTL_TEXTENCODING_ASCII_US ).pData->buffer );
|
|
|
|
}
|
|
}
|
|
}
|
|
else if ( pButton == m_pCreateButton )
|
|
{
|
|
createEntry( pEntry );
|
|
}
|
|
else if ( pButton == m_pDelButton )
|
|
{
|
|
deleteEntry( pEntry );
|
|
}
|
|
else if ( pButton == m_pRenameButton )
|
|
{
|
|
renameEntry( pEntry );
|
|
}
|
|
}
|
|
}
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
Reference< browse::XBrowseNode > SvxScriptOrgDialog::getBrowseNode( SvTreeListEntry* pEntry )
|
|
{
|
|
Reference< browse::XBrowseNode > node;
|
|
if ( pEntry )
|
|
{
|
|
SFEntry* userData = (SFEntry*)pEntry->GetUserData();
|
|
if ( userData )
|
|
{
|
|
node = userData->GetNode();
|
|
}
|
|
}
|
|
|
|
return node;
|
|
}
|
|
|
|
Reference< XModel > SvxScriptOrgDialog::getModel( SvTreeListEntry* pEntry )
|
|
{
|
|
Reference< XModel > model;
|
|
if ( pEntry )
|
|
{
|
|
SFEntry* userData = (SFEntry*)pEntry->GetUserData();
|
|
if ( userData )
|
|
{
|
|
model = userData->GetModel();
|
|
}
|
|
}
|
|
|
|
return model;
|
|
}
|
|
|
|
void SvxScriptOrgDialog::createEntry( SvTreeListEntry* pEntry )
|
|
{
|
|
|
|
Reference< browse::XBrowseNode > aChildNode;
|
|
Reference< browse::XBrowseNode > node = getBrowseNode( pEntry );
|
|
Reference< script::XInvocation > xInv( node, UNO_QUERY );
|
|
|
|
if ( xInv.is() )
|
|
{
|
|
OUString aNewName;
|
|
OUString aNewStdName;
|
|
sal_uInt16 nMode = INPUTMODE_NEWLIB;
|
|
if( m_pScriptsBox->GetModel()->GetDepth( pEntry ) == 0 )
|
|
{
|
|
aNewStdName = "Library" ;
|
|
}
|
|
else
|
|
{
|
|
aNewStdName = "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 + OUString::number(i);
|
|
bValid = sal_True;
|
|
}
|
|
else
|
|
{
|
|
childNodes = node->getChildNodes();
|
|
}
|
|
}
|
|
catch ( Exception& )
|
|
{
|
|
// ignore, will continue on with empty sequence
|
|
}
|
|
|
|
OUString extn;
|
|
while ( !bValid )
|
|
{
|
|
aNewName = aNewStdName + OUString::number(i);
|
|
sal_Bool bFound = sal_False;
|
|
if(childNodes.getLength() > 0 )
|
|
{
|
|
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 == childNodes[index]->getName())
|
|
{
|
|
bFound = sal_True;
|
|
break;
|
|
}
|
|
}
|
|
if( bFound )
|
|
{
|
|
i++;
|
|
}
|
|
else
|
|
{
|
|
bValid = sal_True;
|
|
}
|
|
}
|
|
|
|
SAL_WNODEPRECATED_DECLARATIONS_PUSH
|
|
std::auto_ptr< CuiInputDialog > xNewDlg( new CuiInputDialog( static_cast<Window*>(this), nMode ) );
|
|
SAL_WNODEPRECATED_DECLARATIONS_POP
|
|
xNewDlg->SetObjectName( aNewName );
|
|
|
|
do
|
|
{
|
|
if ( xNewDlg->Execute() && xNewDlg->GetObjectName().Len() )
|
|
{
|
|
OUString aUserSuppliedName = xNewDlg->GetObjectName();
|
|
bValid = sal_True;
|
|
for( sal_Int32 index = 0; index < childNodes.getLength(); index++ )
|
|
{
|
|
if (aUserSuppliedName+extn == 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)
|
|
m_pScriptsBox->RequestingChildren( pEntry );
|
|
|
|
Sequence< Any > args( 1 );
|
|
args[ 0 ] <<= aNewName;
|
|
Sequence< Any > outArgs( 0 );
|
|
Sequence< sal_Int16 > outIndex;
|
|
try
|
|
{
|
|
Any aResult;
|
|
aResult = xInv->invoke( "Creatable", args, outIndex, outArgs );
|
|
Reference< browse::XBrowseNode > newNode( aResult, UNO_QUERY );
|
|
aChildNode = newNode;
|
|
|
|
}
|
|
catch( Exception& e )
|
|
{
|
|
OSL_TRACE("Caught exception trying to Create %s",
|
|
OUStringToOString(
|
|
e.Message, RTL_TEXTENCODING_ASCII_US ).pData->buffer );
|
|
}
|
|
}
|
|
if ( aChildNode.is() )
|
|
{
|
|
String aChildName = aChildNode->getName();
|
|
SvTreeListEntry* pNewEntry = NULL;
|
|
|
|
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 )
|
|
{
|
|
SAL_WNODEPRECATED_DECLARATIONS_PUSH
|
|
pNewEntry = m_pScriptsBox->insertEntry( aChildName,
|
|
RID_CUIIMG_MACRO, pEntry, false, std::auto_ptr< SFEntry >(new SFEntry( OBJTYPE_METHOD, aChildNode,xDocumentModel ) ) );
|
|
SAL_WNODEPRECATED_DECLARATIONS_POP
|
|
|
|
}
|
|
else
|
|
{
|
|
SAL_WNODEPRECATED_DECLARATIONS_PUSH
|
|
pNewEntry = m_pScriptsBox->insertEntry( aChildName,
|
|
RID_CUIIMG_LIB, pEntry, false, std::auto_ptr< SFEntry >(new SFEntry( OBJTYPE_SCRIPTCONTAINER, aChildNode,xDocumentModel ) ) );
|
|
SAL_WNODEPRECATED_DECLARATIONS_POP
|
|
|
|
// If the Parent is not loaded then set to
|
|
// loaded, this will prevent RequestingChildren ( called
|
|
// from vcl via RequestingChildren ) from
|
|
// creating new ( duplicate ) children
|
|
SFEntry* userData = (SFEntry*)pEntry->GetUserData();
|
|
if ( userData && !userData->isLoaded() )
|
|
{
|
|
userData->setLoaded();
|
|
}
|
|
}
|
|
m_pScriptsBox->SetCurEntry( pNewEntry );
|
|
m_pScriptsBox->Select( m_pScriptsBox->GetCurEntry() );
|
|
|
|
}
|
|
else
|
|
{
|
|
//ISSUE L10N & message from exception?
|
|
OUString aError( m_createErrStr );
|
|
ErrorBox aErrorBox( static_cast<Window*>(this), WB_OK | RET_OK, aError );
|
|
aErrorBox.SetText( m_createErrTitleStr );
|
|
aErrorBox.Execute();
|
|
}
|
|
}
|
|
|
|
void SvxScriptOrgDialog::renameEntry( SvTreeListEntry* pEntry )
|
|
{
|
|
|
|
Reference< browse::XBrowseNode > aChildNode;
|
|
Reference< browse::XBrowseNode > node = getBrowseNode( pEntry );
|
|
Reference< script::XInvocation > xInv( node, UNO_QUERY );
|
|
|
|
if ( xInv.is() )
|
|
{
|
|
OUString aNewName = node->getName();
|
|
sal_Int32 extnPos = aNewName.lastIndexOf( '.' );
|
|
OUString extn;
|
|
if(extnPos>0)
|
|
{
|
|
extn = aNewName.copy(extnPos);
|
|
aNewName = aNewName.copy(0,extnPos);
|
|
}
|
|
sal_uInt16 nMode = INPUTMODE_RENAME;
|
|
|
|
SAL_WNODEPRECATED_DECLARATIONS_PUSH
|
|
std::auto_ptr< CuiInputDialog > xNewDlg( new CuiInputDialog( static_cast<Window*>(this), nMode ) );
|
|
SAL_WNODEPRECATED_DECLARATIONS_POP
|
|
xNewDlg->SetObjectName( aNewName );
|
|
|
|
sal_Bool bValid;
|
|
do
|
|
{
|
|
if ( xNewDlg->Execute() && xNewDlg->GetObjectName().Len() )
|
|
{
|
|
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( "Renamable", args, outIndex, outArgs );
|
|
Reference< browse::XBrowseNode > newNode( aResult, UNO_QUERY );
|
|
aChildNode = newNode;
|
|
|
|
}
|
|
catch( Exception& e )
|
|
{
|
|
OSL_TRACE("Caught exception trying to Rename %s",
|
|
OUStringToOString(
|
|
e.Message, RTL_TEXTENCODING_ASCII_US ).pData->buffer );
|
|
}
|
|
}
|
|
if ( aChildNode.is() )
|
|
{
|
|
m_pScriptsBox->SetEntryText( pEntry, aChildNode->getName() );
|
|
m_pScriptsBox->SetCurEntry( pEntry );
|
|
m_pScriptsBox->Select( m_pScriptsBox->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( SvTreeListEntry* pEntry )
|
|
{
|
|
sal_Bool result = sal_False;
|
|
Reference< browse::XBrowseNode > node = getBrowseNode( pEntry );
|
|
// ISSUE L10N string & can we centre list?
|
|
OUString aQuery = m_delQueryStr + 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( "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",
|
|
OUStringToOString(
|
|
e.Message, RTL_TEXTENCODING_ASCII_US ).pData->buffer );
|
|
}
|
|
}
|
|
|
|
if ( result == sal_True )
|
|
{
|
|
m_pScriptsBox->deleteTree( pEntry );
|
|
m_pScriptsBox->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,
|
|
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;
|
|
}
|
|
|
|
OUString SvxScriptOrgDialog::getListOfChildren( Reference< browse::XBrowseNode > node, int depth )
|
|
{
|
|
OUString result = "\n";
|
|
for( int i=0;i<=depth;i++ )
|
|
{
|
|
result += "\t";
|
|
}
|
|
result += 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 += getListOfChildren( children[ n ] , depth+1 );
|
|
}
|
|
}
|
|
}
|
|
catch ( Exception& )
|
|
{
|
|
// ignore, will return an empty string
|
|
}
|
|
|
|
return result;
|
|
}
|
|
|
|
Selection_hash SvxScriptOrgDialog::m_lastSelection;
|
|
|
|
void SvxScriptOrgDialog::StoreCurrentSelection()
|
|
{
|
|
OUString aDescription;
|
|
if ( m_pScriptsBox->IsSelected( m_pScriptsBox->GetHdlEntry() ) )
|
|
{
|
|
SvTreeListEntry* pEntry = m_pScriptsBox->GetHdlEntry();
|
|
while( pEntry )
|
|
{
|
|
aDescription = m_pScriptsBox->GetEntryText( pEntry ) + aDescription;
|
|
pEntry = m_pScriptsBox->GetParent( pEntry );
|
|
if ( pEntry )
|
|
aDescription = ";" + aDescription;
|
|
}
|
|
OUString sDesc( aDescription );
|
|
m_lastSelection[ m_sLanguage ] = sDesc;
|
|
}
|
|
}
|
|
|
|
void SvxScriptOrgDialog::RestorePreviousSelection()
|
|
{
|
|
String aStoredEntry = String( m_lastSelection[ m_sLanguage ] );
|
|
if( aStoredEntry.Len() <= 0 )
|
|
return;
|
|
SvTreeListEntry* pEntry = 0;
|
|
sal_Int32 nIndex = 0;
|
|
while ( nIndex != -1 )
|
|
{
|
|
String aTmp( aStoredEntry.GetToken( 0, ';', nIndex ) );
|
|
SvTreeListEntry* pTmpEntry = m_pScriptsBox->FirstChild( pEntry );
|
|
while ( pTmpEntry )
|
|
{
|
|
if ( m_pScriptsBox->GetEntryText( pTmpEntry ) == aTmp )
|
|
{
|
|
pEntry = pTmpEntry;
|
|
break;
|
|
}
|
|
pTmpEntry = m_pScriptsBox->NextSibling( pTmpEntry );
|
|
}
|
|
if ( !pTmpEntry )
|
|
break;
|
|
m_pScriptsBox->RequestingChildren( pEntry );
|
|
}
|
|
m_pScriptsBox->SetCurEntry( pEntry );
|
|
}
|
|
|
|
OUString ReplaceString(
|
|
const OUString& source,
|
|
const OUString& token,
|
|
const OUString& value )
|
|
{
|
|
sal_Int32 pos = source.indexOf( token );
|
|
|
|
if ( pos != -1 && !value.isEmpty() )
|
|
{
|
|
return source.replaceAt( pos, token.getLength(), value );
|
|
}
|
|
else
|
|
{
|
|
return source;
|
|
}
|
|
}
|
|
|
|
OUString FormatErrorString(
|
|
const OUString& unformatted,
|
|
const OUString& language,
|
|
const OUString& script,
|
|
const OUString& line,
|
|
const OUString& type,
|
|
const OUString& message )
|
|
{
|
|
OUString result = unformatted.copy( 0 );
|
|
|
|
result = ReplaceString(result, "%LANGUAGENAME", language );
|
|
result = ReplaceString(result, "%SCRIPTNAME", script );
|
|
result = ReplaceString(result, "%LINENUMBER", line );
|
|
|
|
if ( !type.isEmpty() )
|
|
{
|
|
result += "\n\n" +
|
|
OUString(CUI_RES(RID_SVXSTR_ERROR_TYPE_LABEL)) +
|
|
" " +
|
|
type;
|
|
}
|
|
|
|
if ( !message.isEmpty() )
|
|
{
|
|
result += "\n\n" +
|
|
OUString(CUI_RES(RID_SVXSTR_ERROR_MESSAGE_LABEL)) +
|
|
" " +
|
|
message;
|
|
}
|
|
|
|
return result;
|
|
}
|
|
|
|
OUString GetErrorMessage(
|
|
const provider::ScriptErrorRaisedException& eScriptError )
|
|
{
|
|
OUString unformatted = CUI_RES( RID_SVXSTR_ERROR_AT_LINE );
|
|
|
|
OUString unknown("UNKNOWN");
|
|
OUString language = unknown;
|
|
OUString script = unknown;
|
|
OUString line = unknown;
|
|
OUString type = OUString();
|
|
OUString message = eScriptError.Message;
|
|
|
|
if ( !eScriptError.language.isEmpty() )
|
|
{
|
|
language = eScriptError.language;
|
|
}
|
|
|
|
if ( !eScriptError.scriptName.isEmpty() )
|
|
{
|
|
script = eScriptError.scriptName;
|
|
}
|
|
|
|
if ( !eScriptError.Message.isEmpty() )
|
|
{
|
|
message = eScriptError.Message;
|
|
}
|
|
if ( eScriptError.lineNum != -1 )
|
|
{
|
|
line = OUString::valueOf( eScriptError.lineNum );
|
|
unformatted = CUI_RES( RID_SVXSTR_ERROR_AT_LINE );
|
|
}
|
|
else
|
|
{
|
|
unformatted = CUI_RES( RID_SVXSTR_ERROR_RUNNING );
|
|
}
|
|
|
|
return FormatErrorString(
|
|
unformatted, language, script, line, type, message );
|
|
}
|
|
|
|
OUString GetErrorMessage(
|
|
const provider::ScriptExceptionRaisedException& eScriptException )
|
|
{
|
|
OUString unformatted = CUI_RES( RID_SVXSTR_EXCEPTION_AT_LINE );
|
|
|
|
OUString unknown("UNKNOWN");
|
|
OUString language = unknown;
|
|
OUString script = unknown;
|
|
OUString line = unknown;
|
|
OUString type = unknown;
|
|
OUString message = eScriptException.Message;
|
|
|
|
if ( !eScriptException.language.isEmpty() )
|
|
{
|
|
language = eScriptException.language;
|
|
}
|
|
if ( !eScriptException.scriptName.isEmpty() )
|
|
{
|
|
script = eScriptException.scriptName;
|
|
}
|
|
|
|
if ( !eScriptException.Message.isEmpty() )
|
|
{
|
|
message = eScriptException.Message;
|
|
}
|
|
|
|
if ( eScriptException.lineNum != -1 )
|
|
{
|
|
line = OUString::valueOf( eScriptException.lineNum );
|
|
unformatted = CUI_RES( RID_SVXSTR_EXCEPTION_AT_LINE );
|
|
}
|
|
else
|
|
{
|
|
unformatted = CUI_RES( RID_SVXSTR_EXCEPTION_RUNNING );
|
|
}
|
|
|
|
if ( !eScriptException.exceptionType.isEmpty() )
|
|
{
|
|
type = eScriptException.exceptionType;
|
|
}
|
|
|
|
return FormatErrorString(
|
|
unformatted, language, script, line, type, message );
|
|
|
|
}
|
|
OUString GetErrorMessage(
|
|
const provider::ScriptFrameworkErrorException& sError )
|
|
{
|
|
OUString unformatted = CUI_RES( RID_SVXSTR_FRAMEWORK_ERROR_RUNNING );
|
|
|
|
OUString language("UNKNOWN");
|
|
|
|
OUString script("UNKNOWN");
|
|
|
|
OUString message;
|
|
|
|
if ( !sError.scriptName.isEmpty() )
|
|
{
|
|
script = sError.scriptName;
|
|
}
|
|
if ( !sError.language.isEmpty() )
|
|
{
|
|
language = sError.language;
|
|
}
|
|
if ( sError.errorType == provider::ScriptFrameworkErrorType::NOTSUPPORTED )
|
|
{
|
|
message = OUString(
|
|
CUI_RES( RID_SVXSTR_ERROR_LANG_NOT_SUPPORTED ) );
|
|
message = ReplaceString(message, "%LANGUAGENAME", language );
|
|
|
|
}
|
|
else
|
|
{
|
|
message = sError.Message;
|
|
}
|
|
return FormatErrorString(
|
|
unformatted, language, script, OUString(), OUString(), message );
|
|
}
|
|
|
|
OUString GetErrorMessage( const RuntimeException& re )
|
|
{
|
|
Type t = ::getCppuType( &re );
|
|
OUString message = t.getTypeName();
|
|
message += re.Message;
|
|
|
|
return message;
|
|
}
|
|
|
|
OUString GetErrorMessage( const Exception& e )
|
|
{
|
|
Type t = ::getCppuType( &e );
|
|
OUString message = t.getTypeName();
|
|
message += e.Message;
|
|
|
|
return message;
|
|
}
|
|
|
|
OUString GetErrorMessage( const com::sun::star::uno::Any& aException )
|
|
{
|
|
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 OUString( m_sMessage ) );
|
|
|
|
return 0;
|
|
}
|
|
|
|
IMPL_LINK( SvxScriptErrorDialog, ShowDialog, OUString*, pMessage )
|
|
{
|
|
OUString message;
|
|
|
|
if ( pMessage && !pMessage->isEmpty() )
|
|
{
|
|
message = *pMessage;
|
|
}
|
|
else
|
|
{
|
|
message = OUString( CUI_RES( RID_SVXSTR_ERROR_TITLE ) );
|
|
}
|
|
|
|
MessBox* pBox = new WarningBox( NULL, WB_OK, message );
|
|
pBox->SetText( CUI_RES( RID_SVXSTR_ERROR_TITLE ) );
|
|
pBox->Execute();
|
|
|
|
delete pBox;
|
|
delete pMessage;
|
|
|
|
return 0;
|
|
}
|
|
|
|
/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
|