cui/source/customize/selector.cxx

   1 /* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
   2 /*
   3  * This file is part of the LibreOffice project.
   4  *
   5  * This Source Code Form is subject to the terms of the Mozilla Public
   6  * License, v. 2.0. If a copy of the MPL was not distributed with this
   7  * file, You can obtain one at http://mozilla.org/MPL/2.0/.
   8  *
   9  * This file incorporates work covered by the following license notice:
  10  *
  11  *   Licensed to the Apache Software Foundation (ASF) under one or more
  12  *   contributor license agreements. See the NOTICE file distributed
  13  *   with this work for additional information regarding copyright
  14  *   ownership. The ASF licenses this file to you under the Apache
  15  *   License, Version 2.0 (the "License"); you may not use this file
  16  *   except in compliance with the License. You may obtain a copy of
  17  *   the License at http://www.apache.org/licenses/LICENSE-2.0 .
  18  */
  19
  20 #include <vcl/help.hxx>
  21 #include <vcl/msgbox.hxx>
  22 #include <vcl/metric.hxx>
  23 #include <vcl/vclmedit.hxx>
  24 #include <vcl/builderfactory.hxx>
  25 #include "selector.hxx"
  26 #include <dialmgr.hxx>
  27 #include <svx/fmresids.hrc>
  28 #include <svx/dialmgr.hxx>
  29 #include <cuires.hrc>
  30 #include <sfx2/app.hxx>
  31 #include <sfx2/msg.hxx>
  32 #include <sfx2/msgpool.hxx>
  33 #include <sfx2/minfitem.hxx>
  34 #include <sfx2/objsh.hxx>
  35 #include <sfx2/dispatch.hxx>
  36
  37 #include <comphelper/documentinfo.hxx>
  38 #include <comphelper/processfactory.hxx>
  39
  40 #include <com/sun/star/beans/XPropertySet.hpp>
  41 #include <com/sun/star/container/XChild.hpp>
  42 #include <com/sun/star/container/XEnumerationAccess.hpp>
  43 #include <com/sun/star/container/XEnumeration.hpp>
  44 #include <com/sun/star/document/XEmbeddedScripts.hpp>
  45 #include <com/sun/star/document/XScriptInvocationContext.hpp>
  46 #include <com/sun/star/frame/ModuleManager.hpp>
  47 #include <com/sun/star/frame/Desktop.hpp>
  48 #include <com/sun/star/frame/XDispatchInformationProvider.hpp>
  49 #include <com/sun/star/frame/DispatchInformation.hpp>
  50 #include <com/sun/star/frame/theUICommandDescription.hpp>
  51 #include <com/sun/star/script/provider/XScriptProviderSupplier.hpp>
  52 #include <com/sun/star/script/provider/XScriptProvider.hpp>
  53 #include <com/sun/star/script/browse/theBrowseNodeFactory.hpp>
  54 #include <com/sun/star/script/browse/XBrowseNode.hpp>
  55 #include <com/sun/star/script/browse/BrowseNodeTypes.hpp>
  56 #include <com/sun/star/script/browse/XBrowseNodeFactory.hpp>
  57 #include <com/sun/star/script/browse/BrowseNodeFactoryViewTypes.hpp>
  58 #include <com/sun/star/ui/theUICategoryDescription.hpp>
  59
  60
  61 using namespace ::com::sun::star;
  62 using namespace ::com::sun::star::uno;
  63 using namespace ::com::sun::star::script;
  64 using namespace ::com::sun::star::frame;
  65 using namespace ::com::sun::star::document;
  66 using namespace ::com::sun::star::container;
  67
  68 #include <svtools/imagemgr.hxx>
  69 #include "svtools/treelistentry.hxx"
  70 #include <tools/urlobj.hxx>
  71 #include <tools/diagnose_ex.h>
  72
  73 /*
  74  * The implementations of SvxConfigFunctionListBox and
  75  * SvxConfigGroupListBox are copied from sfx2/source/dialog/cfg.cxx
  76  */
  77 SvxConfigFunctionListBox::SvxConfigFunctionListBox(vcl::Window* pParent, WinBits nStyle)
  78     : SvTreeListBox(pParent, nStyle | WB_CLIPCHILDREN | WB_HSCROLL | WB_SORT | WB_TABSTOP)
  79     , pCurEntry(0)
  80     , m_pDraggingEntry(0)
  81 {
  82     GetModel()->SetSortMode( SortAscending );
  83
  84     // Timer for the BallonHelp
  85     aTimer.SetTimeout( 200 );
  86     aTimer.SetTimeoutHdl(
  87         LINK( this, SvxConfigFunctionListBox, TimerHdl ) );
  88 }
  89
  90 VCL_BUILDER_DECL_FACTORY(SvxConfigFunctionListBox)
  91 {
  92     WinBits nWinBits = WB_TABSTOP;
  93
  94     OString sBorder = VclBuilder::extractCustomProperty(rMap);
  95     if (!sBorder.isEmpty())
  96        nWinBits |= WB_BORDER;
  97
  98     rRet = VclPtr<SvxConfigFunctionListBox>::Create(pParent, nWinBits);
  99 }
 100
 101 SvxConfigFunctionListBox::~SvxConfigFunctionListBox()
 102 {
 103     disposeOnce();
 104 }
 105
 106 void SvxConfigFunctionListBox::dispose()
 107 {
 108     ClearAll();
 109     SvTreeListBox::dispose();
 110 }
 111
 112 SvTreeListEntry* SvxConfigFunctionListBox::GetLastSelectedEntry()
 113 {
 114     if ( m_pDraggingEntry != NULL )
 115     {
 116         return m_pDraggingEntry;
 117     }
 118     else
 119     {
 120         return FirstSelected();
 121     }
 122 }
 123
 124 void SvxConfigFunctionListBox::MouseMove( const MouseEvent& rMEvt )
 125 {
 126     Point aMousePos = rMEvt.GetPosPixel();
 127     pCurEntry = GetCurEntry();
 128
 129     if ( pCurEntry && GetEntry( aMousePos ) == pCurEntry )
 130         aTimer.Start();
 131     else
 132     {
 133         Help::ShowBalloon( this, aMousePos, OUString() );
 134         aTimer.Stop();
 135     }
 136 }
 137
 138
 139 IMPL_LINK_NOARG_TYPED(SvxConfigFunctionListBox, TimerHdl, Timer *, void)
 140 {
 141     aTimer.Stop();
 142     Point aMousePos = GetPointerPosPixel();
 143     SvTreeListEntry *pEntry = GetCurEntry();
 144     if ( pEntry && GetEntry( aMousePos ) == pEntry && pCurEntry == pEntry )
 145         Help::ShowBalloon( this, OutputToScreenPixel( aMousePos ), GetHelpText( pEntry ) );
 146 }
 147
 148 void SvxConfigFunctionListBox::ClearAll()
 149 {
 150     aArr.clear();
 151     Clear();
 152 }
 153
 154 OUString SvxConfigFunctionListBox::GetHelpText( SvTreeListEntry *pEntry )
 155 {
 156     SvxGroupInfo_Impl *pInfo =
 157         pEntry ? static_cast<SvxGroupInfo_Impl*>(pEntry->GetUserData()): 0;
 158
 159     if ( pInfo )
 160     {
 161         if ( pInfo->nKind == SVX_CFGFUNCTION_SLOT )
 162         {
 163             OUString aCmdURL( pInfo->sURL );
 164
 165             OUString aHelpText = Application::GetHelp()->GetHelpText( aCmdURL, this );
 166
 167             return aHelpText;
 168         }
 169         else if ( pInfo->nKind == SVX_CFGFUNCTION_SCRIPT )
 170         {
 171             return pInfo->sHelpText;
 172         }
 173     }
 174
 175     return OUString();
 176 }
 177
 178 void SvxConfigFunctionListBox::FunctionSelected()
 179 {
 180     Help::ShowBalloon( this, Point(), OUString() );
 181 }
 182
 183 // drag and drop support
 184 DragDropMode SvxConfigFunctionListBox::NotifyStartDrag(
 185     TransferDataContainer& /*aTransferDataContainer*/, SvTreeListEntry* pEntry )
 186 {
 187     m_pDraggingEntry = pEntry;
 188     return GetDragDropMode();
 189 }
 190
 191 void SvxConfigFunctionListBox::DragFinished( sal_Int8 /*nDropAction*/ )
 192 {
 193     m_pDraggingEntry = NULL;
 194 }
 195
 196 sal_Int8
 197 SvxConfigFunctionListBox::AcceptDrop( const AcceptDropEvent& /*rEvt*/ )
 198 {
 199     return DND_ACTION_NONE;
 200 }
 201
 202 SvxConfigGroupListBox::SvxConfigGroupListBox(vcl::Window* pParent, WinBits nStyle)
 203     : SvTreeListBox(pParent, nStyle |
 204             WB_CLIPCHILDREN | WB_HSCROLL | WB_HASBUTTONS | WB_HASLINES | WB_HASLINESATROOT | WB_HASBUTTONSATROOT | WB_TABSTOP)
 205     , m_bShowSlots(false)
 206     , pFunctionListBox(NULL)
 207     , m_pImageProvider(NULL)
 208     , m_hdImage(CUI_RES(RID_CUIIMG_HARDDISK))
 209     , m_libImage(CUI_RES(RID_CUIIMG_LIB))
 210     , m_macImage(CUI_RES(RID_CUIIMG_MACRO))
 211     , m_docImage(CUI_RES(RID_CUIIMG_DOC))
 212     , m_sMyMacros(CUI_RESSTR(RID_SVXSTR_MYMACROS))
 213     , m_sProdMacros(CUI_RESSTR(RID_SVXSTR_PRODMACROS))
 214 {
 215     ImageList aNavigatorImages( SVX_RES( RID_SVXIMGLIST_FMEXPL ) );
 216
 217     SetNodeBitmaps(
 218         aNavigatorImages.GetImage( RID_SVXIMG_COLLAPSEDNODE ),
 219         aNavigatorImages.GetImage( RID_SVXIMG_EXPANDEDNODE )
 220     );
 221 }
 222
 223 VCL_BUILDER_DECL_FACTORY(SvxConfigGroupListBox)
 224 {
 225     WinBits nWinBits = WB_TABSTOP;
 226
 227     OString sBorder = VclBuilder::extractCustomProperty(rMap);
 228     if (!sBorder.isEmpty())
 229        nWinBits |= WB_BORDER;
 230
 231     rRet = VclPtr<SvxConfigGroupListBox>::Create(pParent, nWinBits);
 232 }
 233
 234 SvxConfigGroupListBox::~SvxConfigGroupListBox()
 235 {
 236     disposeOnce();
 237 }
 238
 239 void SvxConfigGroupListBox::dispose()
 240 {
 241     ClearAll();
 242     pFunctionListBox.clear();
 243     SvTreeListBox::dispose();
 244 }
 245
 246 void SvxConfigGroupListBox::ClearAll()
 247 {
 248     aArr.clear();
 249     Clear();
 250 }
 251
 252
 253 namespace
 254 {
 255
 256     /** examines a component whether it supports XEmbeddedScripts, or provides access to such a
 257         component by implementing XScriptInvocationContext.
 258         @return
 259             the model which supports the embedded scripts, or <NULL/> if it cannot find such a
 260             model
 261     */
 262     static Reference< XModel > lcl_getDocumentWithScripts_throw( const Reference< XInterface >& _rxComponent )
 263     {
 264         Reference< XEmbeddedScripts > xScripts( _rxComponent, UNO_QUERY );
 265         if ( !xScripts.is() )
 266         {
 267             Reference< XScriptInvocationContext > xContext( _rxComponent, UNO_QUERY );
 268             if ( xContext.is() )
 269                 xScripts.set( xContext->getScriptContainer(), UNO_QUERY );
 270         }
 271
 272         return Reference< XModel >( xScripts, UNO_QUERY );
 273     }
 274
 275
 276     static Reference< XModel > lcl_getScriptableDocument_nothrow( const Reference< XFrame >& _rxFrame )
 277     {
 278         Reference< XModel > xDocument;
 279
 280         // examine our associated frame
 281         try
 282         {
 283             OSL_ENSURE( _rxFrame.is(), "lcl_getScriptableDocument_nothrow: you need to pass a frame to this dialog/tab page!" );
 284             if ( _rxFrame.is() )
 285             {
 286                 // first try the model in the frame
 287                 Reference< XController > xController( _rxFrame->getController(), UNO_SET_THROW );
 288                 xDocument = lcl_getDocumentWithScripts_throw( xController->getModel() );
 289
 290                 if ( !xDocument.is() )
 291                 {
 292                     // if there is no suitable document in the frame, try the controller
 293                     xDocument = lcl_getDocumentWithScripts_throw( _rxFrame->getController() );
 294                 }
 295             }
 296         }
 297         catch( const Exception& )
 298         {
 299             DBG_UNHANDLED_EXCEPTION();
 300         }
 301
 302         return xDocument;
 303     }
 304 }
 305
 306 void SvxConfigGroupListBox::fillScriptList( const Reference< browse::XBrowseNode >& _rxRootNode, SvTreeListEntry* _pParentEntry, bool _bCheapChildrenOnDemand )
 307 {
 308     OSL_PRECOND( _rxRootNode.is(), "SvxConfigGroupListBox::fillScriptList: invalid root node!" );
 309     if ( !_rxRootNode.is() )
 310         return;
 311
 312     try
 313     {
 314         if ( _rxRootNode->hasChildNodes() )
 315         {
 316             Sequence< Reference< browse::XBrowseNode > > children =
 317                 _rxRootNode->getChildNodes();
 318
 319             bool bIsRootNode = _rxRootNode->getName() == "Root";
 320
 321             /* To mimic current starbasic behaviour we
 322             need to make sure that only the current document
 323             is displayed in the config tree. Tests below
 324             set the bDisplay flag to sal_False if the current
 325             node is a first level child of the Root and is NOT
 326             either the current document, user or share */
 327             OUString sCurrentDocTitle;
 328             Reference< XModel > xWorkingDocument = lcl_getScriptableDocument_nothrow( m_xFrame );
 329             if ( xWorkingDocument.is() )
 330             {
 331                 sCurrentDocTitle = ::comphelper::DocumentInfo::getDocumentTitle( xWorkingDocument );
 332             }
 333
 334             for ( long n = 0; n < children.getLength(); ++n )
 335             {
 336                 Reference< browse::XBrowseNode >& theChild = children[n];
 337                 //#139111# some crash reports show that it might be unset
 338                 if ( !theChild.is() )
 339                     continue;
 340                 OUString sUIName = theChild->getName();
 341                 bool bDisplay = true;
 342
 343                 if  (   bIsRootNode
 344                     ||  ( m_bShowSlots && _pParentEntry && ( GetModel()->GetDepth( _pParentEntry ) == 0 ) )
 345                         // if we show slots (as in the customize dialog)
 346                         // then the user & share are added at depth=1
 347                     )
 348                 {
 349                     if ( sUIName == "user" )
 350                     {
 351                         sUIName = m_sMyMacros;
 352                         bIsRootNode = true;
 353                     }
 354                     else if ( sUIName == "share" )
 355                     {
 356                         sUIName = m_sProdMacros;
 357                         bIsRootNode = true;
 358                     }
 359                     else if ( !sUIName.equals( sCurrentDocTitle ) )
 360                     {
 361                         bDisplay = false;
 362                     }
 363                 }
 364
 365                 if ( !bDisplay )
 366                     continue;
 367
 368                 if ( children[n]->getType() == browse::BrowseNodeTypes::SCRIPT )
 369                     continue;
 370
 371                 SvTreeListEntry* pNewEntry = InsertEntry( sUIName, _pParentEntry );
 372
 373                 Image aImage = GetImage( theChild, comphelper::getProcessComponentContext(), bIsRootNode );
 374                 SetExpandedEntryBmp( pNewEntry, aImage );
 375                 SetCollapsedEntryBmp( pNewEntry, aImage );
 376
 377                 SvxGroupInfo_Impl* pInfo =
 378                     new SvxGroupInfo_Impl( SVX_CFGGROUP_SCRIPTCONTAINER, 0, theChild );
 379                 pNewEntry->SetUserData( pInfo );
 380                 aArr.push_back( pInfo );
 381
 382                 if ( _bCheapChildrenOnDemand )
 383                 {
 384                     /* i30923 - Would be nice if there was a better
 385                     * way to determine if a basic lib had children
 386                     * without having to ask for them (which forces
 387                     * the library to be loaded */
 388                     pNewEntry->EnableChildrenOnDemand( true );
 389                 }
 390                 else
 391                 {
 392                     // if there are granchildren we're interested in, display the '+' before
 393                     // the entry, but do not yet expand
 394                     Sequence< Reference< browse::XBrowseNode > > grandchildren =
 395                         children[n]->getChildNodes();
 396
 397                     for ( sal_Int32 m = 0; m < grandchildren.getLength(); ++m )
 398                     {
 399                         if ( grandchildren[m]->getType() == browse::BrowseNodeTypes::CONTAINER )
 400                         {
 401                             pNewEntry->EnableChildrenOnDemand( true );
 402                             break;
 403                         }
 404                     }
 405                 }
 406             }
 407         }
 408     }
 409     catch (const Exception&)
 410     {
 411         DBG_UNHANDLED_EXCEPTION();
 412     }
 413 }
 414
 415 void SvxConfigGroupListBox::Init(bool bShowSlots, const Reference< frame::XFrame >& xFrame)
 416 {
 417     m_bShowSlots = bShowSlots;
 418     m_xFrame.set(xFrame);
 419
 420     SetUpdateMode(false);
 421     ClearAll();
 422
 423     Reference< XComponentContext > xContext(
 424         comphelper::getProcessComponentContext() );
 425
 426     // are we showing builtin commands?
 427     if ( m_bShowSlots && m_xFrame.is() )
 428     {
 429         Reference< frame::XDispatchInformationProvider > xDIP(
 430             m_xFrame, UNO_QUERY );
 431
 432         Reference< frame::XModuleManager2 > xModuleManager( frame::ModuleManager::create(xContext) );
 433
 434         OUString aModuleId;
 435         try{
 436             aModuleId = xModuleManager->identify( m_xFrame );
 437         }catch(const uno::Exception&)
 438             { aModuleId.clear(); }
 439
 440         Reference< container::XNameAccess > const xNameAccess(
 441                 frame::theUICommandDescription::get(xContext) );
 442         xNameAccess->getByName( aModuleId ) >>= m_xModuleCommands;
 443
 444         Reference< container::XNameAccess > xAllCategories =
 445             ui::theUICategoryDescription::get( xContext );
 446
 447         Reference< container::XNameAccess > xModuleCategories;
 448         if ( !aModuleId.isEmpty() )
 449         {
 450             try
 451             {
 452                 xModuleCategories = Reference< container::XNameAccess >(
 453                        xAllCategories->getByName( aModuleId ), UNO_QUERY );
 454             }
 455             catch ( container::NoSuchElementException& )
 456             {
 457             }
 458         }
 459
 460          if ( !xModuleCategories.is() )
 461          {
 462              xModuleCategories = xAllCategories;
 463          }
 464
 465         if ( xModuleCategories.is() )
 466         {
 467             Sequence< sal_Int16 > gids =
 468                 xDIP->getSupportedCommandGroups();
 469
 470             for ( sal_Int32 i = 0; i < gids.getLength(); ++i )
 471             {
 472                 Sequence< frame::DispatchInformation > commands;
 473                 try
 474                 {
 475                     commands =
 476                         xDIP->getConfigurableDispatchInformation( gids[i] );
 477                 }
 478                 catch ( container::NoSuchElementException& )
 479                 {
 480                     continue;
 481                 }
 482
 483                 if ( commands.getLength() == 0 )
 484                 {
 485                     continue;
 486                 }
 487
 488                 sal_Int32 gid = gids[i];
 489                 OUString idx = OUString::number( gid );
 490                 OUString group = idx;
 491                 try
 492                 {
 493                     xModuleCategories->getByName( idx ) >>= group;
 494                 }
 495                 catch ( container::NoSuchElementException& )
 496                 {
 497                 }
 498
 499                 SvTreeListEntry *pEntry = InsertEntry( group, NULL );
 500
 501                 SvxGroupInfo_Impl *pInfo =
 502                     new SvxGroupInfo_Impl( SVX_CFGGROUP_FUNCTION, gids[i] );
 503                 aArr.push_back( pInfo );
 504
 505                 pEntry->SetUserData( pInfo );
 506             }
 507         }
 508     }
 509
 510     // Add Scripting Framework entries
 511     Reference< browse::XBrowseNode > rootNode;
 512
 513     try
 514     {
 515         Reference< browse::XBrowseNodeFactory > xFac = browse::theBrowseNodeFactory::get( xContext );
 516         rootNode.set( xFac->createView( browse::BrowseNodeFactoryViewTypes::MACROSELECTOR ) );
 517     }
 518     catch( const Exception& )
 519     {
 520         DBG_UNHANDLED_EXCEPTION();
 521     }
 522
 523     if ( rootNode.is() )
 524     {
 525         if ( m_bShowSlots )
 526         {
 527             SvxGroupInfo_Impl *pInfo =
 528                 new SvxGroupInfo_Impl( SVX_CFGGROUP_SCRIPTCONTAINER, 0, rootNode );
 529
 530             OUString aTitle = CUI_RESSTR(RID_SVXSTR_PRODMACROS);
 531
 532             SvTreeListEntry *pNewEntry = InsertEntry( aTitle, NULL );
 533             pNewEntry->SetUserData( pInfo );
 534             pNewEntry->EnableChildrenOnDemand( true );
 535             aArr.push_back( pInfo );
 536         }
 537         else
 538         {
 539             fillScriptList( rootNode, NULL, false );
 540         }
 541     }
 542     MakeVisible( GetEntry( 0,0 ) );
 543     SetUpdateMode( true );
 544 }
 545
 546 Image SvxConfigGroupListBox::GetImage(
 547     Reference< browse::XBrowseNode > node,
 548     Reference< XComponentContext > xCtx,
 549     bool bIsRootNode
 550 )
 551 {
 552     Image aImage;
 553     if ( bIsRootNode )
 554     {
 555         if ( node->getName() == "user" || node->getName() == "share" )
 556         {
 557             aImage = m_hdImage;
 558         }
 559         else
 560         {
 561             OUString factoryURL;
 562             OUString nodeName = node->getName();
 563             Reference<XInterface> xDocumentModel = getDocumentModel(xCtx, nodeName );
 564             if ( xDocumentModel.is() )
 565             {
 566                 Reference< frame::XModuleManager2 > xModuleManager( frame::ModuleManager::create(xCtx) );
 567                 // get the long name of the document:
 568                 OUString appModule( xModuleManager->identify(
 569                                     xDocumentModel ) );
 570                 Sequence<beans::PropertyValue> moduleDescr;
 571                 Any aAny = xModuleManager->getByName(appModule);
 572                 if( !( aAny >>= moduleDescr ) )
 573                 {
 574                     throw RuntimeException("SFTreeListBox::Init: failed to get PropertyValue");
 575                 }
 576                 beans::PropertyValue const * pmoduleDescr =
 577                     moduleDescr.getConstArray();
 578                 for ( sal_Int32 pos = moduleDescr.getLength(); pos--; )
 579                 {
 580                     if ( pmoduleDescr[ pos ].Name == "ooSetupFactoryEmptyDocumentURL" )
 581                     {
 582                         pmoduleDescr[ pos ].Value >>= factoryURL;
 583                         break;
 584                     }
 585                 }
 586             }
 587             if( !factoryURL.isEmpty() )
 588             {
 589                 aImage = SvFileInformationManager::GetFileImage( INetURLObject(factoryURL), false );
 590             }
 591             else
 592             {
 593                 aImage = m_docImage;
 594             }
 595         }
 596     }
 597     else
 598     {
 599         if( node->getType() == browse::BrowseNodeTypes::SCRIPT )
 600             aImage = m_macImage;
 601         else
 602             aImage = m_libImage;
 603     }
 604     return aImage;
 605 }
 606
 607 Reference< XInterface  >
 608 SvxConfigGroupListBox::getDocumentModel(
 609     Reference< XComponentContext >& xCtx, OUString& docName )
 610 {
 611     Reference< XInterface > xModel;
 612     Reference< frame::XDesktop2 > desktop = Desktop::create(xCtx);
 613
 614     Reference< container::XEnumerationAccess > componentsAccess =
 615         desktop->getComponents();
 616     Reference< container::XEnumeration > components =
 617         componentsAccess->createEnumeration();
 618     while (components->hasMoreElements())
 619     {
 620         Reference< frame::XModel > model(
 621             components->nextElement(), UNO_QUERY );
 622         if ( model.is() )
 623         {
 624             OUString sTdocUrl = ::comphelper::DocumentInfo::getDocumentTitle( model );
 625             if( sTdocUrl.equals( docName ) )
 626             {
 627                 xModel = model;
 628                 break;
 629             }
 630         }
 631     }
 632     return xModel;
 633 }
 634
 635 void SvxConfigGroupListBox::GroupSelected()
 636 {
 637     SvTreeListEntry *pEntry = FirstSelected();
 638     SvxGroupInfo_Impl *pInfo = static_cast<SvxGroupInfo_Impl*>(pEntry->GetUserData());
 639     pFunctionListBox->SetUpdateMode(false);
 640     pFunctionListBox->ClearAll();
 641     if ( pInfo->nKind != SVX_CFGGROUP_FUNCTION &&
 642              pInfo->nKind != SVX_CFGGROUP_SCRIPTCONTAINER )
 643     {
 644         pFunctionListBox->SetUpdateMode(true);
 645         return;
 646     }
 647
 648     switch ( pInfo->nKind )
 649     {
 650         case SVX_CFGGROUP_FUNCTION :
 651         {
 652             SvTreeListEntry *_pEntry = FirstSelected();
 653             if ( _pEntry != NULL )
 654             {
 655                 SvxGroupInfo_Impl *_pInfo =
 656                     static_cast<SvxGroupInfo_Impl*>(_pEntry->GetUserData());
 657
 658                 Reference< frame::XDispatchInformationProvider > xDIP(
 659                     m_xFrame, UNO_QUERY );
 660
 661                 Sequence< frame::DispatchInformation > commands;
 662                 try
 663                 {
 664                     commands = xDIP->getConfigurableDispatchInformation(
 665                         _pInfo->nOrd );
 666                 }
 667                 catch ( container::NoSuchElementException& )
 668                 {
 669                 }
 670
 671                 for ( sal_Int32 i = 0; i < commands.getLength(); ++i )
 672                 {
 673                     if ( commands[i].Command.isEmpty() )
 674                     {
 675                         continue;
 676                     }
 677
 678                     Image aImage;
 679
 680                     OUString aCmdURL( commands[i].Command );
 681
 682                     if ( m_pImageProvider )
 683                     {
 684                         aImage = m_pImageProvider->GetImage( aCmdURL );
 685                     }
 686
 687                     OUString aLabel;
 688                     try
 689                     {
 690                         Any a = m_xModuleCommands->getByName( aCmdURL );
 691                         Sequence< beans::PropertyValue > aPropSeq;
 692
 693                         if ( a >>= aPropSeq )
 694                         {
 695                             for ( sal_Int32 k = 0; k < aPropSeq.getLength(); ++k )
 696                             {
 697                                 if ( aPropSeq[k].Name == "Name" )
 698                                 {
 699                                     aPropSeq[k].Value >>= aLabel;
 700                                     break;
 701                                 }
 702                             }
 703                         }
 704                     }
 705                     catch ( container::NoSuchElementException& )
 706                     {
 707                     }
 708
 709                     if ( aLabel.isEmpty() )
 710                     {
 711                         aLabel = commands[i].Command;
 712                     }
 713
 714                     SvTreeListEntry* pFuncEntry = NULL;
 715                     if ( !!aImage )
 716                     {
 717                         pFuncEntry = pFunctionListBox->InsertEntry(
 718                             aLabel, aImage, aImage );
 719                     }
 720                     else
 721                     {
 722                         pFuncEntry = pFunctionListBox->InsertEntry(
 723                             aLabel, NULL );
 724                     }
 725
 726                     SvxGroupInfo_Impl *_pGroupInfo = new SvxGroupInfo_Impl(
 727                         SVX_CFGFUNCTION_SLOT, 123, aCmdURL, OUString() );
 728
 729                     pFunctionListBox->aArr.push_back( _pGroupInfo );
 730
 731                     pFuncEntry->SetUserData( _pGroupInfo );
 732                 }
 733             }
 734             break;
 735         }
 736
 737         case SVX_CFGGROUP_SCRIPTCONTAINER:
 738         {
 739             Reference< browse::XBrowseNode > rootNode( pInfo->xBrowseNode );
 740
 741             try {
 742                 if ( rootNode->hasChildNodes() )
 743                 {
 744                     Sequence< Reference< browse::XBrowseNode > > children =
 745                         rootNode->getChildNodes();
 746
 747                     for ( sal_Int32 n = 0; n < children.getLength(); ++n )
 748                     {
 749                         if (!children[n].is())
 750                             continue;
 751                         if (children[n]->getType() == browse::BrowseNodeTypes::SCRIPT)
 752                         {
 753                             OUString uri;
 754                             OUString description;
 755
 756                             Reference < beans::XPropertySet >xPropSet( children[n], UNO_QUERY );
 757                             if (!xPropSet.is())
 758                             {
 759                                 continue;
 760                             }
 761
 762                             Any value = xPropSet->getPropertyValue(
 763                                 OUString("URI"));
 764                             value >>= uri;
 765
 766                             try
 767                             {
 768                                 value = xPropSet->getPropertyValue(
 769                                     OUString("Description"));
 770                                 value >>= description;
 771                             }
 772                             catch (Exception &) {
 773                                 // do nothing, the description will be empty
 774                             }
 775
 776                             SvxGroupInfo_Impl* _pGroupInfo =
 777                                 new SvxGroupInfo_Impl(
 778                                     SVX_CFGFUNCTION_SCRIPT, 123, uri, description );
 779
 780                             Image aImage = GetImage( children[n], Reference< XComponentContext >(), false );
 781                             SvTreeListEntry* pNewEntry =
 782                                 pFunctionListBox->InsertEntry( children[n]->getName(), NULL );
 783                             pFunctionListBox->SetExpandedEntryBmp( pNewEntry, aImage );
 784                             pFunctionListBox->SetCollapsedEntryBmp(pNewEntry, aImage );
 785
 786                             pNewEntry->SetUserData( _pGroupInfo );
 787
 788                             pFunctionListBox->aArr.push_back( _pGroupInfo );
 789
 790                         }
 791                     }
 792                 }
 793             }
 794             catch (const Exception&)
 795             {
 796                 DBG_UNHANDLED_EXCEPTION();
 797             }
 798             break;
 799         }
 800
 801         default:
 802         {
 803             return;
 804         }
 805     }
 806
 807     if ( pFunctionListBox->GetEntryCount() )
 808         pFunctionListBox->Select( pFunctionListBox->GetEntry( 0, 0 ) );
 809
 810     pFunctionListBox->SetUpdateMode(true);
 811 }
 812
 813 bool SvxConfigGroupListBox::Expand( SvTreeListEntry* pParent )
 814 {
 815     bool bRet = SvTreeListBox::Expand( pParent );
 816     if ( bRet )
 817     {
 818         sal_uLong nEntries = GetOutputSizePixel().Height() / GetEntryHeight();
 819
 820         sal_uLong nChildCount = GetVisibleChildCount( pParent );
 821
 822         if ( nChildCount+1 > nEntries )
 823         {
 824             MakeVisible( pParent, true );
 825         }
 826         else
 827         {
 828             SvTreeListEntry *pEntry = GetFirstEntryInView();
 829             sal_uLong nParentPos = 0;
 830             while ( pEntry && pEntry != pParent )
 831             {
 832                 ++nParentPos;
 833                 pEntry = GetNextEntryInView( pEntry );
 834             }
 835
 836             if ( nParentPos + nChildCount + 1 > nEntries )
 837                 ScrollOutputArea( (short)( nEntries - ( nParentPos + nChildCount + 1 ) ) );
 838         }
 839     }
 840
 841     return bRet;
 842 }
 843
 844 void SvxConfigGroupListBox::RequestingChildren( SvTreeListEntry *pEntry )
 845 {
 846     SvxGroupInfo_Impl *pInfo = static_cast<SvxGroupInfo_Impl*>(pEntry->GetUserData());
 847     pInfo->bWasOpened = true;
 848     switch ( pInfo->nKind )
 849     {
 850         case SVX_CFGGROUP_SCRIPTCONTAINER:
 851         {
 852             if ( !GetChildCount( pEntry ) )
 853             {
 854                 Reference< browse::XBrowseNode > rootNode( pInfo->xBrowseNode ) ;
 855                 fillScriptList( rootNode, pEntry, true /* i30923 */ );
 856             }
 857             break;
 858         }
 859
 860         default:
 861             OSL_FAIL( "Falscher Gruppentyp!" );
 862             break;
 863     }
 864 }
 865
 866 /*
 867  * Implementation of SvxScriptSelectorDialog
 868  *
 869  * This dialog is used for selecting Slot API commands
 870  * and Scripting Framework Scripts.
 871  */
 872
 873 SvxScriptSelectorDialog::SvxScriptSelectorDialog(
 874     vcl::Window* pParent, bool bShowSlots, const Reference< frame::XFrame >& xFrame)
 875     : ModelessDialog(pParent, "MacroSelectorDialog", "cui/ui/macroselectordialog.ui")
 876     , m_bShowSlots(bShowSlots)
 877 {
 878     get<FixedText>("libraryft")->Show(!m_bShowSlots);
 879     get<FixedText>("categoryft")->Show(m_bShowSlots);
 880     get<FixedText>("macronameft")->Show(!m_bShowSlots);
 881     get<FixedText>("commandsft")->Show(m_bShowSlots);
 882     get(m_pDescriptionText, "description");
 883     get(m_pCommands, "commands");
 884     if (m_bShowSlots)
 885     {
 886         // If we are showing Slot API commands update labels in the UI, and
 887         // enable drag'n'drop
 888         SetText(CUI_RESSTR(RID_SVXSTR_SELECTOR_ADD_COMMANDS));
 889         m_pCommands->SetDragDropMode( DragDropMode::APP_COPY );
 890
 891         get(m_pCancelButton, "close");
 892         get(m_pDialogDescription, "helptoolbar");
 893         get(m_pOKButton, "add");
 894     }
 895     else
 896     {
 897         get(m_pCancelButton, "cancel");
 898         get(m_pDialogDescription, "helpmacro");
 899         get(m_pOKButton, "ok");
 900     }
 901     m_pCancelButton->Show();
 902     m_pDialogDescription->Show();
 903     m_pOKButton->Show();
 904
 905     get(m_pCategories, "categories");
 906     m_pCategories->SetFunctionListBox(m_pCommands);
 907     m_pCategories->Init(bShowSlots, xFrame);
 908
 909     m_pCategories->SetSelectHdl(
 910             LINK( this, SvxScriptSelectorDialog, SelectHdl ) );
 911     m_pCommands->SetSelectHdl( LINK( this, SvxScriptSelectorDialog, SelectHdl ) );
 912     m_pCommands->SetDoubleClickHdl( LINK( this, SvxScriptSelectorDialog, FunctionDoubleClickHdl ) );
 913
 914     m_pOKButton->SetClickHdl( LINK( this, SvxScriptSelectorDialog, ClickHdl ) );
 915     m_pCancelButton->SetClickHdl( LINK( this, SvxScriptSelectorDialog, ClickHdl ) );
 916
 917     m_sDefaultDesc = m_pDescriptionText->GetText();
 918
 919     UpdateUI();
 920 }
 921
 922 SvxScriptSelectorDialog::~SvxScriptSelectorDialog()
 923 {
 924     disposeOnce();
 925 }
 926
 927 void SvxScriptSelectorDialog::dispose()
 928 {
 929     m_pDialogDescription.clear();
 930     m_pCategories.clear();
 931     m_pCommands.clear();
 932     m_pOKButton.clear();
 933     m_pCancelButton.clear();
 934     m_pDescriptionText.clear();
 935     ModelessDialog::dispose();
 936 }
 937
 938 IMPL_LINK( SvxScriptSelectorDialog, SelectHdl, Control*, pCtrl )
 939 {
 940     if (pCtrl == m_pCategories)
 941     {
 942         m_pCategories->GroupSelected();
 943     }
 944     else if (pCtrl == m_pCommands)
 945     {
 946         m_pCommands->FunctionSelected();
 947     }
 948     UpdateUI();
 949     return 0;
 950 }
 951
 952 IMPL_LINK( SvxScriptSelectorDialog, FunctionDoubleClickHdl, Control*, pCtrl )
 953 {
 954     (void)pCtrl;
 955     if (m_pOKButton->IsEnabled())
 956         return ClickHdl(m_pOKButton);
 957     return 0;
 958 }
 959
 960 // Check if command is selected and enable the OK button accordingly
 961 // Grab the help text for this id if available and update the description field
 962 void
 963 SvxScriptSelectorDialog::UpdateUI()
 964 {
 965     OUString url = GetScriptURL();
 966     if ( url != NULL && !url.isEmpty() )
 967     {
 968         OUString sMessage =
 969             m_pCommands->GetHelpText(m_pCommands->FirstSelected());
 970         m_pDescriptionText->SetText(sMessage.isEmpty() ? m_sDefaultDesc : sMessage);
 971
 972         m_pOKButton->Enable( true );
 973     }
 974     else
 975     {
 976         m_pDescriptionText->SetText(m_sDefaultDesc);
 977         m_pOKButton->Enable( false );
 978     }
 979 }
 980
 981 IMPL_LINK( SvxScriptSelectorDialog, ClickHdl, Button *, pButton )
 982 {
 983     if (pButton == m_pCancelButton)
 984     {
 985         // If we are displaying Slot API commands then the dialog is being
 986         // run from Tools/Configure and we should not close it, just hide it
 987         if ( !m_bShowSlots )
 988         {
 989             EndDialog( RET_CANCEL );
 990         }
 991         else
 992         {
 993             Hide();
 994         }
 995     }
 996     else if (pButton == m_pOKButton)
 997     {
 998         GetAddHdl().Call( this );
 999
1000         // If we are displaying Slot API commands then this the dialog is being
1001         // run from Tools/Configure and we should not close it
1002         if ( !m_bShowSlots )
1003         {
1004             EndDialog( RET_OK );
1005         }
1006         else
1007         {
1008             // Select the next entry in the list if possible
1009             SvTreeListEntry* current = m_pCommands->FirstSelected();
1010             SvTreeListEntry* next = SvTreeListBox::NextSibling( current );
1011
1012             if ( next != NULL )
1013             {
1014                 m_pCommands->Select( next );
1015             }
1016         }
1017     }
1018
1019     return 0;
1020 }
1021
1022 void
1023 SvxScriptSelectorDialog::SetRunLabel()
1024 {
1025     m_pOKButton->SetText(CUI_RESSTR(RID_SVXSTR_SELECTOR_RUN));
1026 }
1027
1028 void
1029 SvxScriptSelectorDialog::SetDialogDescription( const OUString& rDescription )
1030 {
1031     m_pDialogDescription->SetText( rDescription );
1032 }
1033
1034 OUString
1035 SvxScriptSelectorDialog::GetScriptURL() const
1036 {
1037     OUString result;
1038
1039     SvTreeListEntry *pEntry = const_cast< SvxScriptSelectorDialog* >( this )->m_pCommands->GetLastSelectedEntry();
1040     if ( pEntry )
1041     {
1042         SvxGroupInfo_Impl *pData = static_cast<SvxGroupInfo_Impl*>(pEntry->GetUserData());
1043         if  (   ( pData->nKind == SVX_CFGFUNCTION_SLOT )
1044             ||  ( pData->nKind == SVX_CFGFUNCTION_SCRIPT )
1045             )
1046         {
1047             result = pData->sURL;
1048         }
1049     }
1050
1051     return result;
1052 }
1053
1054 OUString
1055 SvxScriptSelectorDialog::GetSelectedDisplayName()
1056 {
1057     return m_pCommands->GetEntryText( m_pCommands->GetLastSelectedEntry() );
1058 }
1059
1060 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */