replace obsolete "master" branch with README that points at new repoHEADmaster-deletedmaster

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: */