wangxin/loongoffice
1
0
Fork 0
forked from amazingfate/loongoffice
Code Pull Requests Activity
Files
67cba3af55e94debe8eb6392bc8d0b2f00a7a199
loongoffice/cui/source/customize/selector.cxx
Noel Grandin c5d47c327a add default value for Context param in uno::Exception constructors 
and all it's subtypes, which is almost never used, so this allows us to
simplify lots of call sites.

Change-Id: I0b05793ea2bdd1027679f63252d42ce4af89433b
2014-05-23 15:05:59 +02:00

1036 lines
32 KiB
C++
Raw Blame History

/* -*- 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 <vcl/help.hxx>
#include <vcl/msgbox.hxx>
#include <vcl/metric.hxx>
#include <vcl/vclmedit.hxx>
#include "selector.hxx"
#include <dialmgr.hxx>
#include <svx/fmresids.hrc>
#include <svx/dialmgr.hxx>
#include <cuires.hrc>
#include <sfx2/app.hxx>
#include <sfx2/msg.hxx>
#include <sfx2/msgpool.hxx>
#include <sfx2/minfitem.hxx>
#include <sfx2/objsh.hxx>
#include <sfx2/dispatch.hxx>
#include <comphelper/documentinfo.hxx>
#include <comphelper/processfactory.hxx>
#include <com/sun/star/beans/XPropertySet.hpp>
#include <com/sun/star/container/XChild.hpp>
#include <com/sun/star/container/XEnumerationAccess.hpp>
#include <com/sun/star/container/XEnumeration.hpp>
#include <com/sun/star/document/XEmbeddedScripts.hpp>
#include <com/sun/star/document/XScriptInvocationContext.hpp>
#include <com/sun/star/frame/ModuleManager.hpp>
#include <com/sun/star/frame/Desktop.hpp>
#include <com/sun/star/frame/XDispatchInformationProvider.hpp>
#include <com/sun/star/frame/DispatchInformation.hpp>
#include <com/sun/star/frame/theUICommandDescription.hpp>
#include <com/sun/star/script/provider/XScriptProviderSupplier.hpp>
#include <com/sun/star/script/provider/XScriptProvider.hpp>
#include <com/sun/star/script/browse/theBrowseNodeFactory.hpp>
#include <com/sun/star/script/browse/XBrowseNode.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/ui/theUICategoryDescription.hpp>
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;
using namespace ::com::sun::star::container;
#include <svtools/imagemgr.hxx>
#include "svtools/treelistentry.hxx"
#include <tools/urlobj.hxx>
#include <tools/diagnose_ex.h>
/*
* The implementations of SvxConfigFunctionListBox and
* SvxConfigGroupListBox are copied from sfx2/source/dialog/cfg.cxx
*/
SvxConfigFunctionListBox::SvxConfigFunctionListBox(Window* pParent, WinBits nStyle)
: SvTreeListBox(pParent, nStyle | WB_CLIPCHILDREN | WB_HSCROLL | WB_SORT | WB_TABSTOP)
, pCurEntry(0)
, m_pDraggingEntry(0)
{
GetModel()->SetSortMode( SortAscending );
// Timer for the BallonHelp
aTimer.SetTimeout( 200 );
aTimer.SetTimeoutHdl(
LINK( this, SvxConfigFunctionListBox, TimerHdl ) );
}
extern "C" SAL_DLLPUBLIC_EXPORT Window* SAL_CALL makeSvxConfigFunctionListBox(Window *pParent, VclBuilder::stringmap &rMap)
{
WinBits nWinBits = WB_TABSTOP;
OString sBorder = VclBuilder::extractCustomProperty(rMap);
if (!sBorder.isEmpty())
nWinBits |= WB_BORDER;
return new SvxConfigFunctionListBox(pParent, nWinBits);
}
SvxConfigFunctionListBox::~SvxConfigFunctionListBox()
{
ClearAll();
}
SvTreeListEntry* SvxConfigFunctionListBox::GetLastSelectedEntry()
{
if ( m_pDraggingEntry != NULL )
{
return m_pDraggingEntry;
}
else
{
return FirstSelected();
}
}
void SvxConfigFunctionListBox::MouseMove( const MouseEvent& rMEvt )
{
Point aMousePos = rMEvt.GetPosPixel();
pCurEntry = GetCurEntry();
if ( pCurEntry && GetEntry( aMousePos ) == pCurEntry )
aTimer.Start();
else
{
Help::ShowBalloon( this, aMousePos, OUString() );
aTimer.Stop();
}
}
IMPL_LINK_NOARG(SvxConfigFunctionListBox, TimerHdl)
{
aTimer.Stop();
Point aMousePos = GetPointerPosPixel();
SvTreeListEntry *pEntry = GetCurEntry();
if ( pEntry && GetEntry( aMousePos ) == pEntry && pCurEntry == pEntry )
Help::ShowBalloon( this, OutputToScreenPixel( aMousePos ), GetHelpText( pEntry ) );
return 0L;
}
void SvxConfigFunctionListBox::ClearAll()
{
aArr.clear();
Clear();
}
OUString SvxConfigFunctionListBox::GetHelpText( SvTreeListEntry *pEntry )
{
SvxGroupInfo_Impl *pInfo =
pEntry ? (SvxGroupInfo_Impl*) pEntry->GetUserData(): 0;
if ( pInfo )
{
if ( pInfo->nKind == SVX_CFGFUNCTION_SLOT )
{
OUString aCmdURL( pInfo->sURL );
OUString aHelpText = Application::GetHelp()->GetHelpText( aCmdURL, this );
return aHelpText;
}
else if ( pInfo->nKind == SVX_CFGFUNCTION_SCRIPT )
{
return pInfo->sHelpText;
}
}
return OUString();
}
void SvxConfigFunctionListBox::FunctionSelected()
{
Help::ShowBalloon( this, Point(), OUString() );
}
// drag and drop support
DragDropMode SvxConfigFunctionListBox::NotifyStartDrag(
TransferDataContainer& /*aTransferDataContainer*/, SvTreeListEntry* pEntry )
{
m_pDraggingEntry = pEntry;
return GetDragDropMode();
}
void SvxConfigFunctionListBox::DragFinished( sal_Int8 /*nDropAction*/ )
{
m_pDraggingEntry = NULL;
}
sal_Int8
SvxConfigFunctionListBox::AcceptDrop( const AcceptDropEvent& /*rEvt*/ )
{
return DND_ACTION_NONE;
}
SvxConfigGroupListBox::SvxConfigGroupListBox(Window* pParent, WinBits nStyle)
: SvTreeListBox(pParent, nStyle |
WB_CLIPCHILDREN | WB_HSCROLL | WB_HASBUTTONS | WB_HASLINES | WB_HASLINESATROOT | WB_HASBUTTONSATROOT | WB_TABSTOP)
, m_bShowSlots(false)
, pFunctionListBox(NULL)
, m_pImageProvider(NULL)
, 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))
{
ImageList aNavigatorImages( SVX_RES( RID_SVXIMGLIST_FMEXPL ) );
SetNodeBitmaps(
aNavigatorImages.GetImage( RID_SVXIMG_COLLAPSEDNODE ),
aNavigatorImages.GetImage( RID_SVXIMG_EXPANDEDNODE )
);
}
extern "C" SAL_DLLPUBLIC_EXPORT Window* SAL_CALL makeSvxConfigGroupListBox(Window *pParent, VclBuilder::stringmap &rMap)
{
WinBits nWinBits = WB_TABSTOP;
OString sBorder = VclBuilder::extractCustomProperty(rMap);
if (!sBorder.isEmpty())
nWinBits |= WB_BORDER;
return new SvxConfigGroupListBox(pParent, nWinBits);
}
SvxConfigGroupListBox::~SvxConfigGroupListBox()
{
ClearAll();
}
void SvxConfigGroupListBox::ClearAll()
{
aArr.clear();
Clear();
}
namespace
{
/** examines a component whether it supports XEmbeddedScripts, or provides access to such a
component by implementing XScriptInvocationContext.
@return
the model which supports the embedded scripts, or <NULL/> if it cannot find such a
model
*/
static Reference< XModel > lcl_getDocumentWithScripts_throw( const Reference< XInterface >& _rxComponent )
{
Reference< XEmbeddedScripts > xScripts( _rxComponent, UNO_QUERY );
if ( !xScripts.is() )
{
Reference< XScriptInvocationContext > xContext( _rxComponent, UNO_QUERY );
if ( xContext.is() )
xScripts.set( xContext->getScriptContainer(), UNO_QUERY );
}
return Reference< XModel >( xScripts, UNO_QUERY );
}
static Reference< XModel > lcl_getScriptableDocument_nothrow( const Reference< XFrame >& _rxFrame )
{
Reference< XModel > xDocument;
// examine our associated frame
try
{
OSL_ENSURE( _rxFrame.is(), "lcl_getScriptableDocument_nothrow: you need to pass a frame to this dialog/tab page!" );
if ( _rxFrame.is() )
{
// first try the model in the frame
Reference< XController > xController( _rxFrame->getController(), UNO_SET_THROW );
xDocument = lcl_getDocumentWithScripts_throw( xController->getModel() );
if ( !xDocument.is() )
{
// if there is no suitable document in the frame, try the controller
xDocument = lcl_getDocumentWithScripts_throw( _rxFrame->getController() );
}
}
}
catch( const Exception& )
{
DBG_UNHANDLED_EXCEPTION();
}
return xDocument;
}
}
void SvxConfigGroupListBox::fillScriptList( const Reference< browse::XBrowseNode >& _rxRootNode, SvTreeListEntry* _pParentEntry, bool _bCheapChildrenOnDemand )
{
OSL_PRECOND( _rxRootNode.is(), "SvxConfigGroupListBox::fillScriptList: invalid root node!" );
if ( !_rxRootNode.is() )
return;
try
{
if ( _rxRootNode->hasChildNodes() )
{
Sequence< Reference< browse::XBrowseNode > > children =
_rxRootNode->getChildNodes();
bool bIsRootNode = _rxRootNode->getName() == "Root";
/* To mimic current starbasic behaviour we
need to make sure that only the current document
is displayed in the config tree. Tests below
set the bDisplay flag to sal_False if the current
node is a first level child of the Root and is NOT
either the current document, user or share */
OUString sCurrentDocTitle;
Reference< XModel > xWorkingDocument = lcl_getScriptableDocument_nothrow( m_xFrame );
if ( xWorkingDocument.is() )
{
sCurrentDocTitle = ::comphelper::DocumentInfo::getDocumentTitle( xWorkingDocument );
}
for ( long n = 0; n < children.getLength(); ++n )
{
Reference< browse::XBrowseNode >& theChild = children[n];
//#139111# some crash reports show that it might be unset
if ( !theChild.is() )
continue;
OUString sUIName = theChild->getName();
bool bDisplay = true;
if ( bIsRootNode
|| ( m_bShowSlots && _pParentEntry && ( GetModel()->GetDepth( _pParentEntry ) == 0 ) )
// if we show slots (as in the customize dialog)
// then the user & share are added at depth=1
)
{
if ( sUIName == "user" )
{
sUIName = m_sMyMacros;
bIsRootNode = true;
}
else if ( sUIName == "share" )
{
sUIName = m_sProdMacros;
bIsRootNode = true;
}
else if ( !sUIName.equals( sCurrentDocTitle ) )
{
bDisplay = false;
}
}
if ( !bDisplay )
continue;
if ( children[n]->getType() == browse::BrowseNodeTypes::SCRIPT )
continue;
SvTreeListEntry* pNewEntry = InsertEntry( sUIName, _pParentEntry );
Image aImage = GetImage( theChild, comphelper::getProcessComponentContext(), bIsRootNode );
SetExpandedEntryBmp( pNewEntry, aImage );
SetCollapsedEntryBmp( pNewEntry, aImage );
SvxGroupInfo_Impl* pInfo =
new SvxGroupInfo_Impl( SVX_CFGGROUP_SCRIPTCONTAINER, 0, theChild );
pNewEntry->SetUserData( pInfo );
aArr.push_back( pInfo );
if ( _bCheapChildrenOnDemand )
{
/* i30923 - Would be nice if there was a better
* way to determine if a basic lib had children
* without having to ask for them (which forces
* the library to be loaded */
pNewEntry->EnableChildrenOnDemand( true );
}
else
{
// if there are granchildren we're interested in, display the '+' before
// the entry, but do not yet expand
Sequence< Reference< browse::XBrowseNode > > grandchildren =
children[n]->getChildNodes();
for ( sal_Int32 m = 0; m < grandchildren.getLength(); ++m )
{
if ( grandchildren[m]->getType() == browse::BrowseNodeTypes::CONTAINER )
{
pNewEntry->EnableChildrenOnDemand( true );
break;
}
}
}
}
}
}
catch (const Exception&)
{
DBG_UNHANDLED_EXCEPTION();
}
}
void SvxConfigGroupListBox::Init(bool bShowSlots, const Reference< frame::XFrame >& xFrame)
{
m_bShowSlots = bShowSlots;
m_xFrame.set(xFrame);
SetUpdateMode(false);
ClearAll();
Reference< XComponentContext > xContext(
comphelper::getProcessComponentContext() );
// are we showing builtin commands?
if ( m_bShowSlots && m_xFrame.is() )
{
Reference< frame::XDispatchInformationProvider > xDIP(
m_xFrame, UNO_QUERY );
Reference< frame::XModuleManager2 > xModuleManager( frame::ModuleManager::create(xContext) );
OUString aModuleId;
try{
aModuleId = xModuleManager->identify( m_xFrame );
}catch(const uno::Exception&)
{ aModuleId = OUString(); }
Reference< container::XNameAccess > const xNameAccess(
frame::theUICommandDescription::get(xContext) );
xNameAccess->getByName( aModuleId ) >>= m_xModuleCommands;
Reference< container::XNameAccess > xAllCategories =
ui::theUICategoryDescription::get( xContext );
Reference< container::XNameAccess > xModuleCategories;
if ( !aModuleId.isEmpty() )
{
try
{
xModuleCategories = Reference< container::XNameAccess >(
xAllCategories->getByName( aModuleId ), UNO_QUERY );
}
catch ( container::NoSuchElementException& )
{
}
}
if ( !xModuleCategories.is() )
{
xModuleCategories = xAllCategories;
}
if ( xModuleCategories.is() )
{
Sequence< sal_Int16 > gids =
xDIP->getSupportedCommandGroups();
for ( sal_Int32 i = 0; i < gids.getLength(); ++i )
{
Sequence< frame::DispatchInformation > commands;
try
{
commands =
xDIP->getConfigurableDispatchInformation( gids[i] );
}
catch ( container::NoSuchElementException& )
{
continue;
}
if ( commands.getLength() == 0 )
{
continue;
}
sal_Int32 gid = gids[i];
OUString idx = OUString::number( gid );
OUString group = idx;
try
{
xModuleCategories->getByName( idx ) >>= group;
}
catch ( container::NoSuchElementException& )
{
}
SvTreeListEntry *pEntry = InsertEntry( group, NULL );
SvxGroupInfo_Impl *pInfo =
new SvxGroupInfo_Impl( SVX_CFGGROUP_FUNCTION, gids[i] );
aArr.push_back( pInfo );
pEntry->SetUserData( pInfo );
}
}
}
// Add Scripting Framework entries
Reference< browse::XBrowseNode > rootNode;
try
{
Reference< browse::XBrowseNodeFactory > xFac = browse::theBrowseNodeFactory::get( xContext );
rootNode.set( xFac->createView( browse::BrowseNodeFactoryViewTypes::MACROSELECTOR ) );
}
catch( const Exception& )
{
DBG_UNHANDLED_EXCEPTION();
}
if ( rootNode.is() )
{
if ( m_bShowSlots )
{
SvxGroupInfo_Impl *pInfo =
new SvxGroupInfo_Impl( SVX_CFGGROUP_SCRIPTCONTAINER, 0, rootNode );
OUString aTitle = CUI_RESSTR(RID_SVXSTR_PRODMACROS);
SvTreeListEntry *pNewEntry = InsertEntry( aTitle, NULL );
pNewEntry->SetUserData( pInfo );
pNewEntry->EnableChildrenOnDemand( true );
aArr.push_back( pInfo );
}
else
{
fillScriptList( rootNode, NULL, false );
}
}
MakeVisible( GetEntry( 0,0 ) );
SetUpdateMode( true );
}
Image SvxConfigGroupListBox::GetImage(
Reference< browse::XBrowseNode > node,
Reference< XComponentContext > xCtx,
bool bIsRootNode
)
{
Image aImage;
if ( bIsRootNode )
{
if ( node->getName() == "user" || node->getName() == "share" )
{
aImage = m_hdImage;
}
else
{
OUString factoryURL;
OUString nodeName = node->getName();
Reference<XInterface> xDocumentModel = getDocumentModel(xCtx, nodeName );
if ( xDocumentModel.is() )
{
Reference< frame::XModuleManager2 > xModuleManager( frame::ModuleManager::create(xCtx) );
// get the long name of the document:
OUString appModule( xModuleManager->identify(
xDocumentModel ) );
Sequence<beans::PropertyValue> moduleDescr;
Any aAny = xModuleManager->getByName(appModule);
if( !( aAny >>= moduleDescr ) )
{
throw RuntimeException("SFTreeListBox::Init: failed to get PropertyValue");
}
beans::PropertyValue const * pmoduleDescr =
moduleDescr.getConstArray();
for ( sal_Int32 pos = moduleDescr.getLength(); pos--; )
{
if ( pmoduleDescr[ pos ].Name == "ooSetupFactoryEmptyDocumentURL" )
{
pmoduleDescr[ pos ].Value >>= factoryURL;
break;
}
}
}
if( !factoryURL.isEmpty() )
{
aImage = SvFileInformationManager::GetFileImage( INetURLObject(factoryURL), false );
}
else
{
aImage = m_docImage;
}
}
}
else
{
if( node->getType() == browse::BrowseNodeTypes::SCRIPT )
aImage = m_macImage;
else
aImage = m_libImage;
}
return aImage;
}
Reference< XInterface >
SvxConfigGroupListBox::getDocumentModel(
Reference< XComponentContext >& xCtx, OUString& docName )
{
Reference< XInterface > xModel;
Reference< frame::XDesktop2 > desktop = 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;
}
void SvxConfigGroupListBox::GroupSelected()
{
SvTreeListEntry *pEntry = FirstSelected();
SvxGroupInfo_Impl *pInfo = (SvxGroupInfo_Impl*) pEntry->GetUserData();
pFunctionListBox->SetUpdateMode(false);
pFunctionListBox->ClearAll();
if ( pInfo->nKind != SVX_CFGGROUP_FUNCTION &&
pInfo->nKind != SVX_CFGGROUP_SCRIPTCONTAINER )
{
pFunctionListBox->SetUpdateMode(true);
return;
}
switch ( pInfo->nKind )
{
case SVX_CFGGROUP_FUNCTION :
{
SvTreeListEntry *_pEntry = FirstSelected();
if ( _pEntry != NULL )
{
SvxGroupInfo_Impl *_pInfo =
(SvxGroupInfo_Impl*) _pEntry->GetUserData();
Reference< frame::XDispatchInformationProvider > xDIP(
m_xFrame, UNO_QUERY );
Sequence< frame::DispatchInformation > commands;
try
{
commands = xDIP->getConfigurableDispatchInformation(
_pInfo->nOrd );
}
catch ( container::NoSuchElementException& )
{
}
for ( sal_Int32 i = 0; i < commands.getLength(); ++i )
{
if ( commands[i].Command.isEmpty() )
{
continue;
}
Image aImage;
OUString aCmdURL( commands[i].Command );
if ( m_pImageProvider )
{
aImage = m_pImageProvider->GetImage( aCmdURL );
}
OUString aLabel;
try
{
Any a = m_xModuleCommands->getByName( aCmdURL );
Sequence< beans::PropertyValue > aPropSeq;
if ( a >>= aPropSeq )
{
for ( sal_Int32 k = 0; k < aPropSeq.getLength(); ++k )
{
if ( aPropSeq[k].Name == "Name" )
{
aPropSeq[k].Value >>= aLabel;
break;
}
}
}
}
catch ( container::NoSuchElementException& )
{
}
if ( aLabel.isEmpty() )
{
aLabel = commands[i].Command;
}
SvTreeListEntry* pFuncEntry = NULL;
if ( !!aImage )
{
pFuncEntry = pFunctionListBox->InsertEntry(
aLabel, aImage, aImage );
}
else
{
pFuncEntry = pFunctionListBox->InsertEntry(
aLabel, NULL );
}
SvxGroupInfo_Impl *_pGroupInfo = new SvxGroupInfo_Impl(
SVX_CFGFUNCTION_SLOT, 123, aCmdURL, OUString() );
pFunctionListBox->aArr.push_back( _pGroupInfo );
pFuncEntry->SetUserData( _pGroupInfo );
}
}
break;
}
case SVX_CFGGROUP_SCRIPTCONTAINER:
{
Reference< browse::XBrowseNode > rootNode( pInfo->xBrowseNode );
try {
if ( rootNode->hasChildNodes() )
{
Sequence< Reference< browse::XBrowseNode > > children =
rootNode->getChildNodes();
for ( sal_Int32 n = 0; n < children.getLength(); ++n )
{
if (!children[n].is())
continue;
if (children[n]->getType() == browse::BrowseNodeTypes::SCRIPT)
{
OUString uri;
OUString description;
Reference < beans::XPropertySet >xPropSet( children[n], UNO_QUERY );
if (!xPropSet.is())
{
continue;
}
Any value = xPropSet->getPropertyValue(
OUString("URI"));
value >>= uri;
try
{
value = xPropSet->getPropertyValue(
OUString("Description"));
value >>= description;
}
catch (Exception &) {
// do nothing, the description will be empty
}
SvxGroupInfo_Impl* _pGroupInfo =
new SvxGroupInfo_Impl(
SVX_CFGFUNCTION_SCRIPT, 123, uri, description );
Image aImage = GetImage( children[n], Reference< XComponentContext >(), false );
SvTreeListEntry* pNewEntry =
pFunctionListBox->InsertEntry( children[n]->getName(), NULL );
pFunctionListBox->SetExpandedEntryBmp( pNewEntry, aImage );
pFunctionListBox->SetCollapsedEntryBmp(pNewEntry, aImage );
pNewEntry->SetUserData( _pGroupInfo );
pFunctionListBox->aArr.push_back( _pGroupInfo );
}
}
}
}
catch (const Exception&)
{
DBG_UNHANDLED_EXCEPTION();
}
break;
}
default:
{
return;
}
}
if ( pFunctionListBox->GetEntryCount() )
pFunctionListBox->Select( pFunctionListBox->GetEntry( 0, 0 ) );
pFunctionListBox->SetUpdateMode(true);
}
bool SvxConfigGroupListBox::Expand( SvTreeListEntry* pParent )
{
bool bRet = SvTreeListBox::Expand( pParent );
if ( bRet )
{
sal_uLong nEntries = GetOutputSizePixel().Height() / GetEntryHeight();
sal_uLong nChildCount = GetVisibleChildCount( pParent );
if ( nChildCount+1 > nEntries )
{
MakeVisible( pParent, true );
}
else
{
SvTreeListEntry *pEntry = GetFirstEntryInView();
sal_uLong nParentPos = 0;
while ( pEntry && pEntry != pParent )
{
++nParentPos;
pEntry = GetNextEntryInView( pEntry );
}
if ( nParentPos + nChildCount + 1 > nEntries )
ScrollOutputArea( (short)( nEntries - ( nParentPos + nChildCount + 1 ) ) );
}
}
return bRet;
}
void SvxConfigGroupListBox::RequestingChildren( SvTreeListEntry *pEntry )
{
SvxGroupInfo_Impl *pInfo = (SvxGroupInfo_Impl*) pEntry->GetUserData();
pInfo->bWasOpened = true;
switch ( pInfo->nKind )
{
case SVX_CFGGROUP_SCRIPTCONTAINER:
{
if ( !GetChildCount( pEntry ) )
{
Reference< browse::XBrowseNode > rootNode( pInfo->xBrowseNode ) ;
fillScriptList( rootNode, pEntry, true /* i30923 */ );
}
break;
}
default:
OSL_FAIL( "Falscher Gruppentyp!" );
break;
}
}
/*
* Implementation of SvxScriptSelectorDialog
*
* This dialog is used for selecting Slot API commands
* and Scripting Framework Scripts.
*/
SvxScriptSelectorDialog::SvxScriptSelectorDialog(
Window* pParent, bool bShowSlots, const Reference< frame::XFrame >& xFrame)
: ModelessDialog(pParent, "MacroSelectorDialog", "cui/ui/macroselectordialog.ui")
, m_bShowSlots(bShowSlots)
{
get<FixedText>("libraryft")->Show(!m_bShowSlots);
get<FixedText>("categoryft")->Show(m_bShowSlots);
get<FixedText>("macronameft")->Show(!m_bShowSlots);
get<FixedText>("commandsft")->Show(m_bShowSlots);
get(m_pDescriptionText, "description");
get(m_pCommands, "commands");
if (m_bShowSlots)
{
// If we are showing Slot API commands update labels in the UI, and
// enable drag'n'drop
SetText(CUI_RESSTR(RID_SVXSTR_SELECTOR_ADD_COMMANDS));
m_pCommands->SetDragDropMode( SV_DRAGDROP_APP_COPY );
get(m_pCancelButton, "close");
get(m_pDialogDescription, "helptoolbar");
get(m_pOKButton, "add");
}
else
{
get(m_pCancelButton, "cancel");
get(m_pDialogDescription, "helpmacro");
get(m_pOKButton, "ok");
}
m_pCancelButton->Show();
m_pDialogDescription->Show();
m_pOKButton->Show();
get(m_pCategories, "categories");
m_pCategories->SetFunctionListBox(m_pCommands);
m_pCategories->Init(bShowSlots, xFrame);
m_pCategories->SetSelectHdl(
LINK( this, SvxScriptSelectorDialog, SelectHdl ) );
m_pCommands->SetSelectHdl( LINK( this, SvxScriptSelectorDialog, SelectHdl ) );
m_pCommands->SetDoubleClickHdl( LINK( this, SvxScriptSelectorDialog, FunctionDoubleClickHdl ) );
m_pOKButton->SetClickHdl( LINK( this, SvxScriptSelectorDialog, ClickHdl ) );
m_pCancelButton->SetClickHdl( LINK( this, SvxScriptSelectorDialog, ClickHdl ) );
m_sDefaultDesc = m_pDescriptionText->GetText();
UpdateUI();
}
SvxScriptSelectorDialog::~SvxScriptSelectorDialog()
{
}
IMPL_LINK( SvxScriptSelectorDialog, SelectHdl, Control*, pCtrl )
{
if (pCtrl == m_pCategories)
{
m_pCategories->GroupSelected();
}
else if (pCtrl == m_pCommands)
{
m_pCommands->FunctionSelected();
}
UpdateUI();
return 0;
}
IMPL_LINK( SvxScriptSelectorDialog, FunctionDoubleClickHdl, Control*, pCtrl )
{
(void)pCtrl;
if (m_pOKButton->IsEnabled())
return ClickHdl(m_pOKButton);
return 0;
}
// Check if command is selected and enable the OK button accordingly
// Grab the help text for this id if available and update the description field
void
SvxScriptSelectorDialog::UpdateUI()
{
OUString url = GetScriptURL();
if ( url != NULL && !url.isEmpty() )
{
OUString sMessage =
m_pCommands->GetHelpText(m_pCommands->FirstSelected());
m_pDescriptionText->SetText(sMessage.isEmpty() ? m_sDefaultDesc : sMessage);
m_pOKButton->Enable( true );
}
else
{
m_pDescriptionText->SetText(m_sDefaultDesc);
m_pOKButton->Enable( false );
}
}
IMPL_LINK( SvxScriptSelectorDialog, ClickHdl, Button *, pButton )
{
if (pButton == m_pCancelButton)
{
// If we are displaying Slot API commands then the dialog is being
// run from Tools/Configure and we should not close it, just hide it
if ( m_bShowSlots == false )
{
EndDialog( RET_CANCEL );
}
else
{
Hide();
}
}
else if (pButton == m_pOKButton)
{
GetAddHdl().Call( this );
// If we are displaying Slot API commands then this the dialog is being
// run from Tools/Configure and we should not close it
if ( m_bShowSlots == false )
{
EndDialog( RET_OK );
}
else
{
// Select the next entry in the list if possible
SvTreeListEntry* current = m_pCommands->FirstSelected();
SvTreeListEntry* next = m_pCommands->NextSibling( current );
if ( next != NULL )
{
m_pCommands->Select( next );
}
}
}
return 0;
}
void
SvxScriptSelectorDialog::SetRunLabel()
{
m_pOKButton->SetText(CUI_RESSTR(RID_SVXSTR_SELECTOR_RUN));
}
void
SvxScriptSelectorDialog::SetDialogDescription( const OUString& rDescription )
{
m_pDialogDescription->SetText( rDescription );
}
OUString
SvxScriptSelectorDialog::GetScriptURL() const
{
OUString result;
SvTreeListEntry *pEntry = const_cast< SvxScriptSelectorDialog* >( this )->m_pCommands->GetLastSelectedEntry();
if ( pEntry )
{
SvxGroupInfo_Impl *pData = (SvxGroupInfo_Impl*) pEntry->GetUserData();
if ( ( pData->nKind == SVX_CFGFUNCTION_SLOT )
|| ( pData->nKind == SVX_CFGFUNCTION_SCRIPT )
)
{
result = pData->sURL;
}
}
return result;
}
OUString
SvxScriptSelectorDialog::GetSelectedDisplayName()
{
return m_pCommands->GetEntryText( m_pCommands->GetLastSelectedEntry() );
}
/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
View Git Blame Copy Permalink