cui/source/customize/cfgutil.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 "cfgutil.hxx"
  21
  22 #include <com/sun/star/beans/XPropertySet.hpp>
  23 #include <com/sun/star/container/XEnumerationAccess.hpp>
  24 #include <com/sun/star/container/XEnumeration.hpp>
  25 #include <com/sun/star/document/XScriptInvocationContext.hpp>
  26 #include <com/sun/star/frame/ModuleManager.hpp>
  27 #include <com/sun/star/frame/Desktop.hpp>
  28 #include <com/sun/star/frame/UICommandDescription.hpp>
  29 #include <com/sun/star/frame/XDispatchInformationProvider.hpp>
  30 #include <com/sun/star/script/browse/XBrowseNode.hpp>
  31 #include <com/sun/star/script/browse/BrowseNodeTypes.hpp>
  32 #include <com/sun/star/script/browse/theBrowseNodeFactory.hpp>
  33 #include <com/sun/star/script/browse/BrowseNodeFactoryViewTypes.hpp>
  34 #include <com/sun/star/script/provider/XScriptProviderSupplier.hpp>
  35 #include <com/sun/star/script/provider/XScriptProvider.hpp>
  36 #include <com/sun/star/style/XStyleFamiliesSupplier.hpp>
  37 #include <com/sun/star/uno/RuntimeException.hpp>
  38 #include <com/sun/star/ui/UICategoryDescription.hpp>
  39
  40 #include "acccfg.hrc"
  41 #include "helpid.hrc"
  42 #include <basic/sbx.hxx>
  43 #include <basic/basicmanagerrepository.hxx>
  44 #include <basic/sbstar.hxx>
  45 #include <basic/sbxmeth.hxx>
  46 #include <basic/sbmod.hxx>
  47 #include <basic/basmgr.hxx>
  48 #include <tools/urlobj.hxx>
  49 #include "cuires.hrc"
  50 #include <sfx2/app.hxx>
  51 #include <sfx2/minfitem.hxx>
  52 #include <comphelper/documentinfo.hxx>
  53 #include <comphelper/processfactory.hxx>
  54 #include <comphelper/sequenceashashmap.hxx>
  55 #include <comphelper/string.hxx>
  56 #include <svtools/imagemgr.hxx>
  57 #include "svtools/treelistentry.hxx"
  58 #include <rtl/ustrbuf.hxx>
  59 #include <unotools/configmgr.hxx>
  60 #include "dialmgr.hxx"
  61 #include <svl/stritem.hxx>
  62
  63 using namespace ::com::sun::star;
  64 using namespace ::com::sun::star::uno;
  65 using namespace ::com::sun::star::script;
  66 using namespace ::com::sun::star::frame;
  67 using namespace ::com::sun::star::document;
  68
  69 SfxStylesInfo_Impl::SfxStylesInfo_Impl()
  70 {}
  71
  72 void SfxStylesInfo_Impl::setModel(const ::com::sun::star::uno::Reference< ::com::sun::star::frame::XModel >& xModel)
  73 {
  74     m_xDoc = xModel;
  75 }
  76
  77 static OUString CMDURL_SPART  (".uno:StyleApply?Style:string=");
  78 static OUString CMDURL_FPART2 ("&FamilyName:string=");
  79
  80 static OUString CMDURL_STYLEPROT_ONLY (".uno:StyleApply?");
  81 static OUString CMDURL_SPART_ONLY     ("Style:string=");
  82 static OUString CMDURL_FPART_ONLY     ("FamilyName:string=");
  83
  84 static OUString STYLEPROP_UINAME ("DisplayName");
  85
  86 OUString SfxStylesInfo_Impl::generateCommand(const OUString& sFamily, const OUString& sStyle)
  87 {
  88     OUStringBuffer sCommand(1024);
  89     sCommand.append(CMDURL_SPART );
  90     sCommand.append(sStyle       );
  91     sCommand.append(CMDURL_FPART2);
  92     sCommand.append(sFamily      );
  93     return sCommand.makeStringAndClear();
  94 }
  95
  96 sal_Bool SfxStylesInfo_Impl::parseStyleCommand(SfxStyleInfo_Impl& aStyle)
  97 {
  98     static sal_Int32 LEN_STYLEPROT = CMDURL_STYLEPROT_ONLY.getLength();
  99     static sal_Int32 LEN_SPART     = CMDURL_SPART_ONLY.getLength();
 100     static sal_Int32 LEN_FPART     = CMDURL_FPART_ONLY.getLength();
 101
 102     if (aStyle.sCommand.indexOf(CMDURL_STYLEPROT_ONLY, 0) != 0)
 103         return sal_False;
 104
 105     aStyle.sFamily = OUString();
 106     aStyle.sStyle  = OUString();
 107
 108     sal_Int32       nCmdLen  = aStyle.sCommand.getLength();
 109     OUString sCmdArgs = aStyle.sCommand.copy(LEN_STYLEPROT, nCmdLen-LEN_STYLEPROT);
 110     sal_Int32       i        = sCmdArgs.indexOf('&');
 111     if (i<0)
 112         return sal_False;
 113
 114     OUString sArg = sCmdArgs.copy(0, i);
 115     if (sArg.indexOf(CMDURL_SPART_ONLY) == 0)
 116         aStyle.sStyle = sArg.copy(LEN_SPART, sArg.getLength()-LEN_SPART);
 117     else if (sArg.indexOf(CMDURL_FPART_ONLY) == 0)
 118         aStyle.sFamily = sArg.copy(LEN_FPART, sArg.getLength()-LEN_FPART);
 119
 120     sArg = sCmdArgs.copy(i+1, sCmdArgs.getLength()-i-1);
 121     if (sArg.indexOf(CMDURL_SPART_ONLY) == 0)
 122         aStyle.sStyle = sArg.copy(LEN_SPART, sArg.getLength()-LEN_SPART);
 123     else if (sArg.indexOf(CMDURL_FPART_ONLY) == 0)
 124         aStyle.sFamily = sArg.copy(LEN_FPART, sArg.getLength()-LEN_FPART);
 125
 126     if (!(aStyle.sFamily.isEmpty() || aStyle.sStyle.isEmpty()))
 127         return sal_True;
 128
 129     return sal_False;
 130 }
 131
 132 void SfxStylesInfo_Impl::getLabel4Style(SfxStyleInfo_Impl& aStyle)
 133 {
 134     try
 135     {
 136         css::uno::Reference< css::style::XStyleFamiliesSupplier > xModel(m_xDoc, css::uno::UNO_QUERY);
 137
 138         css::uno::Reference< css::container::XNameAccess > xFamilies;
 139         if (xModel.is())
 140             xFamilies = xModel->getStyleFamilies();
 141
 142         css::uno::Reference< css::container::XNameAccess > xStyleSet;
 143         if (xFamilies.is())
 144             xFamilies->getByName(aStyle.sFamily) >>= xStyleSet;
 145
 146         css::uno::Reference< css::beans::XPropertySet > xStyle;
 147         if (xStyleSet.is())
 148             xStyleSet->getByName(aStyle.sStyle) >>= xStyle;
 149
 150         aStyle.sLabel = OUString();
 151         if (xStyle.is())
 152             xStyle->getPropertyValue(STYLEPROP_UINAME) >>= aStyle.sLabel;
 153     }
 154     catch(const css::uno::RuntimeException&)
 155         { throw; }
 156     catch(const css::uno::Exception&)
 157         { aStyle.sLabel = OUString(); }
 158
 159     if (aStyle.sLabel.isEmpty())
 160     {
 161         aStyle.sLabel = aStyle.sCommand;
 162     }
 163 }
 164
 165 ::std::vector< SfxStyleInfo_Impl > SfxStylesInfo_Impl::getStyleFamilies()
 166 {
 167     // Its an optional interface!
 168     css::uno::Reference< css::style::XStyleFamiliesSupplier > xModel(m_xDoc, css::uno::UNO_QUERY);
 169     if (!xModel.is())
 170         return ::std::vector< SfxStyleInfo_Impl >();
 171
 172     css::uno::Reference< css::container::XNameAccess > xCont = xModel->getStyleFamilies();
 173     css::uno::Sequence< OUString > lFamilyNames = xCont->getElementNames();
 174     ::std::vector< SfxStyleInfo_Impl > lFamilies;
 175     sal_Int32 c = lFamilyNames.getLength();
 176     sal_Int32 i = 0;
 177     for(i=0; i<c; ++i)
 178     {
 179         SfxStyleInfo_Impl aFamilyInfo;
 180         aFamilyInfo.sFamily = lFamilyNames[i];
 181
 182         try
 183         {
 184             css::uno::Reference< css::beans::XPropertySet > xFamilyInfo;
 185             xCont->getByName(aFamilyInfo.sFamily) >>= xFamilyInfo;
 186             if (!xFamilyInfo.is())
 187             {
 188                 // TODO_AS currently there is no support for an UIName property .. use internal family name instead
 189                 aFamilyInfo.sLabel = aFamilyInfo.sFamily;
 190             }
 191             else
 192                 xFamilyInfo->getPropertyValue(STYLEPROP_UINAME) >>= aFamilyInfo.sLabel;
 193         }
 194         catch(const css::uno::RuntimeException&)
 195             { throw; }
 196         catch(const css::uno::Exception&)
 197             { return ::std::vector< SfxStyleInfo_Impl >(); }
 198
 199         lFamilies.push_back(aFamilyInfo);
 200     }
 201
 202     return lFamilies;
 203 }
 204
 205 ::std::vector< SfxStyleInfo_Impl > SfxStylesInfo_Impl::getStyles(const OUString& sFamily)
 206 {
 207     static OUString PROP_UINAME ("DisplayName");
 208
 209     css::uno::Sequence< OUString > lStyleNames;
 210     css::uno::Reference< css::style::XStyleFamiliesSupplier > xModel(m_xDoc, css::uno::UNO_QUERY_THROW);
 211     css::uno::Reference< css::container::XNameAccess > xFamilies = xModel->getStyleFamilies();
 212     css::uno::Reference< css::container::XNameAccess > xStyleSet;
 213     try
 214     {
 215         xFamilies->getByName(sFamily) >>= xStyleSet;
 216         lStyleNames = xStyleSet->getElementNames();
 217     }
 218     catch(const css::uno::RuntimeException&)
 219         { throw; }
 220     catch(const css::uno::Exception&)
 221         { return ::std::vector< SfxStyleInfo_Impl >(); }
 222
 223     ::std::vector< SfxStyleInfo_Impl > lStyles;
 224     sal_Int32                          c      = lStyleNames.getLength();
 225     sal_Int32                          i      = 0;
 226     for (i=0; i<c; ++i)
 227     {
 228         SfxStyleInfo_Impl aStyleInfo;
 229         aStyleInfo.sFamily  = sFamily;
 230         aStyleInfo.sStyle   = lStyleNames[i];
 231         aStyleInfo.sCommand = SfxStylesInfo_Impl::generateCommand(aStyleInfo.sFamily, aStyleInfo.sStyle);
 232
 233         try
 234         {
 235             css::uno::Reference< css::beans::XPropertySet > xStyle;
 236             xStyleSet->getByName(aStyleInfo.sStyle) >>= xStyle;
 237             if (!xStyle.is())
 238                 continue;
 239             xStyle->getPropertyValue(PROP_UINAME) >>= aStyleInfo.sLabel;
 240         }
 241         catch(const css::uno::RuntimeException&)
 242             { throw; }
 243         catch(const css::uno::Exception&)
 244             { continue; }
 245
 246         lStyles.push_back(aStyleInfo);
 247     }
 248     return lStyles;
 249 }
 250
 251 SfxConfigFunctionListBox_Impl::SfxConfigFunctionListBox_Impl( Window* pParent, const ResId& rResId)
 252     : SvTreeListBox( pParent, rResId )
 253     , pCurEntry( 0 )
 254     , pStylesInfo( 0 )
 255 {
 256     SetStyle( GetStyle() | WB_CLIPCHILDREN | WB_HSCROLL | WB_SORT );
 257     GetModel()->SetSortMode( SortAscending );
 258
 259     // Timer for the BallonHelp
 260     aTimer.SetTimeout( 200 );
 261     aTimer.SetTimeoutHdl(
 262         LINK( this, SfxConfigFunctionListBox_Impl, TimerHdl ) );
 263 }
 264
 265 SfxConfigFunctionListBox_Impl::~SfxConfigFunctionListBox_Impl()
 266 {
 267     ClearAll();
 268 }
 269
 270 void SfxConfigFunctionListBox_Impl::MouseMove( const MouseEvent& )
 271 {
 272 }
 273
 274 IMPL_LINK( SfxConfigFunctionListBox_Impl, TimerHdl, Timer*, pTimer)
 275 /*  Description
 276     Timer-handler for showing a help-text. If the mouse pointer is
 277     still on the currently selected entry after the timer has run out,
 278     the entry's help-text is shown as a balloon-help.
 279 */
 280 {
 281     (void)pTimer; // unused
 282     return 0L;
 283 }
 284
 285 void SfxConfigFunctionListBox_Impl::ClearAll()
 286 /*  Description
 287     Deletes all entries in the FunctionListBox, all UserData and all
 288     possibly existing MacroInfo.
 289 */
 290 {
 291     sal_uInt16 nCount = aArr.size();
 292     for ( sal_uInt16 i=0; i<nCount; ++i )
 293     {
 294         SfxGroupInfo_Impl *pData = &aArr[i];
 295
 296         if ( pData->nKind == SFX_CFGFUNCTION_SCRIPT )
 297         {
 298             String* pScriptURI = (String*)pData->pObject;
 299             delete pScriptURI;
 300         }
 301
 302         if ( pData->nKind == SFX_CFGGROUP_SCRIPTCONTAINER )
 303         {
 304             XInterface* xi = static_cast<XInterface *>(pData->pObject);
 305             if (xi != NULL)
 306             {
 307                 xi->release();
 308             }
 309         }
 310     }
 311
 312     aArr.clear();
 313     Clear();
 314 }
 315
 316 String SfxConfigFunctionListBox_Impl::GetSelectedScriptURI()
 317 {
 318     SvTreeListEntry *pEntry = FirstSelected();
 319     if ( pEntry )
 320     {
 321         SfxGroupInfo_Impl *pData = (SfxGroupInfo_Impl*) pEntry->GetUserData();
 322         if ( pData && ( pData->nKind == SFX_CFGFUNCTION_SCRIPT ) )
 323             return *(String*)pData->pObject;
 324     }
 325     return String();
 326 }
 327
 328 String SfxConfigFunctionListBox_Impl::GetCurCommand()
 329 {
 330     SvTreeListEntry *pEntry = FirstSelected();
 331     if (!pEntry)
 332         return String();
 333     SfxGroupInfo_Impl *pData = (SfxGroupInfo_Impl*) pEntry->GetUserData();
 334     if (!pData)
 335         return String();
 336     return pData->sCommand;
 337 }
 338
 339 String SfxConfigFunctionListBox_Impl::GetCurLabel()
 340 {
 341     SvTreeListEntry *pEntry = FirstSelected();
 342     if (!pEntry)
 343         return String();
 344     SfxGroupInfo_Impl *pData = (SfxGroupInfo_Impl*) pEntry->GetUserData();
 345     if (!pData)
 346         return String();
 347     if (pData->sLabel.Len())
 348         return pData->sLabel;
 349     return pData->sCommand;
 350 }
 351
 352 void SfxConfigFunctionListBox_Impl::FunctionSelected()
 353 /*  Description
 354     Resets the balloon-help because it shall
 355     always show the help-text of the selected entry.
 356 */
 357 {
 358 }
 359
 360 void SfxConfigFunctionListBox_Impl::SetStylesInfo(SfxStylesInfo_Impl* pStyles)
 361 {
 362     pStylesInfo = pStyles;
 363 }
 364
 365 struct SvxConfigGroupBoxResource_Impl : public Resource
 366 {
 367     Image m_hdImage;
 368     Image m_libImage;
 369     Image m_macImage;
 370     Image m_docImage;
 371     OUString m_sMyMacros;
 372     OUString m_sProdMacros;
 373     String m_sMacros;
 374     String m_sDlgMacros;
 375     String m_aHumanAppName;
 376     String m_aStrGroupStyles;
 377     Image m_collapsedImage;
 378     Image m_expandedImage;
 379
 380     SvxConfigGroupBoxResource_Impl();
 381 };
 382
 383 SvxConfigGroupBoxResource_Impl::SvxConfigGroupBoxResource_Impl() :
 384     Resource(CUI_RES(RID_SVXPAGE_CONFIGGROUPBOX)),
 385     m_hdImage(CUI_RES(RID_CUIIMG_HARDDISK)),
 386     m_libImage(CUI_RES(RID_CUIIMG_LIB)),
 387     m_macImage(CUI_RES(RID_CUIIMG_MACRO)),
 388     m_docImage(CUI_RES(RID_CUIIMG_DOC)),
 389     m_sMyMacros(CUI_RESSTR(RID_SVXSTR_MYMACROS)),
 390     m_sProdMacros(CUI_RESSTR(RID_SVXSTR_PRODMACROS)),
 391     m_sMacros(CUI_RESSTR(STR_BASICMACROS)),
 392     m_sDlgMacros(CUI_RESSTR(RID_SVXSTR_PRODMACROS)),
 393     m_aHumanAppName(CUI_RESSTR(STR_HUMAN_APPNAME)),
 394     m_aStrGroupStyles(CUI_RESSTR(STR_GROUP_STYLES)),
 395     m_collapsedImage(CUI_RES(BMP_COLLAPSED)),
 396     m_expandedImage(CUI_RES(BMP_EXPANDED))
 397 {
 398     FreeResource();
 399 }
 400
 401 SfxConfigGroupListBox_Impl::SfxConfigGroupListBox_Impl(
 402     Window* pParent, const ResId& rResId, sal_uLong nConfigMode )
 403         : SvTreeListBox( pParent, rResId )
 404         , pImp(new SvxConfigGroupBoxResource_Impl()), pFunctionListBox(0), nMode( nConfigMode ), pStylesInfo(0)
 405 {
 406     SetStyle( GetStyle() | WB_CLIPCHILDREN | WB_HSCROLL | WB_HASBUTTONS | WB_HASLINES | WB_HASLINESATROOT | WB_HASBUTTONSATROOT );
 407     SetNodeBitmaps( pImp->m_collapsedImage, pImp->m_expandedImage );
 408 }
 409
 410
 411 SfxConfigGroupListBox_Impl::~SfxConfigGroupListBox_Impl()
 412 {
 413     ClearAll();
 414 }
 415
 416 void SfxConfigGroupListBox_Impl::ClearAll()
 417 {
 418     sal_uInt16 nCount = aArr.size();
 419     for ( sal_uInt16 i=0; i<nCount; ++i )
 420     {
 421         SfxGroupInfo_Impl *pData = &aArr[i];
 422         if (pData->nKind == SFX_CFGGROUP_SCRIPTCONTAINER)
 423         {
 424             XInterface* xi = static_cast<XInterface *>(pData->pObject);
 425             if (xi != NULL)
 426             {
 427                 xi->release();
 428             }
 429         }
 430     }
 431
 432     aArr.clear();
 433     Clear();
 434 }
 435
 436 void SfxConfigGroupListBox_Impl::SetStylesInfo(SfxStylesInfo_Impl* pStyles)
 437 {
 438     pStylesInfo = pStyles;
 439 }
 440
 441 //-----------------------------------------------
 442 void SfxConfigGroupListBox_Impl::InitModule()
 443 {
 444     try
 445     {
 446         css::uno::Reference< css::frame::XDispatchInformationProvider > xProvider(m_xFrame, css::uno::UNO_QUERY_THROW);
 447         css::uno::Sequence< sal_Int16 > lGroups = xProvider->getSupportedCommandGroups();
 448         sal_Int32                       c1      = lGroups.getLength();
 449         sal_Int32                       i1      = 0;
 450
 451         for (i1=0; i1<c1; ++i1)
 452         {
 453             sal_Int16&      rGroupID   = lGroups[i1];
 454             OUString sGroupID   = OUString::valueOf((sal_Int32)rGroupID);
 455             OUString sGroupName ;
 456
 457             try
 458             {
 459                 m_xModuleCategoryInfo->getByName(sGroupID) >>= sGroupName;
 460                 if (sGroupName.isEmpty())
 461                     continue;
 462             }
 463             catch(const css::container::NoSuchElementException&)
 464                 { continue; }
 465
 466             SvTreeListEntry*        pEntry = InsertEntry(sGroupName, NULL);
 467             SfxGroupInfo_Impl* pInfo   = new SfxGroupInfo_Impl(SFX_CFGGROUP_FUNCTION, rGroupID);
 468             pEntry->SetUserData(pInfo);
 469         }
 470     }
 471     catch(const css::uno::RuntimeException&)
 472         { throw; }
 473     catch(const css::uno::Exception&)
 474         {}
 475 }
 476
 477 //-----------------------------------------------
 478 void SfxConfigGroupListBox_Impl::InitBasic()
 479 {
 480 }
 481
 482 //-----------------------------------------------
 483 void SfxConfigGroupListBox_Impl::InitStyles()
 484 {
 485 }
 486
 487 //-----------------------------------------------
 488 namespace
 489 {
 490     //...........................................
 491     /** examines a component whether it supports XEmbeddedScripts, or provides access to such a
 492         component by implementing XScriptInvocationContext.
 493         @return
 494             the model which supports the embedded scripts, or <NULL/> if it cannot find such a
 495             model
 496     */
 497     static Reference< XModel > lcl_getDocumentWithScripts_throw( const Reference< XInterface >& _rxComponent )
 498     {
 499         Reference< XEmbeddedScripts > xScripts( _rxComponent, UNO_QUERY );
 500         if ( !xScripts.is() )
 501         {
 502             Reference< XScriptInvocationContext > xContext( _rxComponent, UNO_QUERY );
 503             if ( xContext.is() )
 504                 xScripts.set( xContext->getScriptContainer(), UNO_QUERY );
 505         }
 506
 507         return Reference< XModel >( xScripts, UNO_QUERY );
 508     }
 509
 510     //...........................................
 511     static Reference< XModel > lcl_getScriptableDocument_nothrow( const Reference< XFrame >& _rxFrame )
 512     {
 513         Reference< XModel > xDocument;
 514
 515         // examine our associated frame
 516         try
 517         {
 518             OSL_ENSURE( _rxFrame.is(), "lcl_getScriptableDocument_nothrow: you need to pass a frame to this dialog/tab page!" );
 519             if ( _rxFrame.is() )
 520             {
 521                 // first try the model in the frame
 522                 Reference< XController > xController( _rxFrame->getController(), UNO_SET_THROW );
 523                 xDocument = lcl_getDocumentWithScripts_throw( xController->getModel() );
 524
 525                 if ( !xDocument.is() )
 526                 {
 527                     // if there is no suitable document in the frame, try the controller
 528                     xDocument = lcl_getDocumentWithScripts_throw( _rxFrame->getController() );
 529                 }
 530             }
 531         }
 532         catch( const Exception& )
 533         {
 534         }
 535
 536         return xDocument;
 537     }
 538 }
 539
 540 //-----------------------------------------------
 541 void SfxConfigGroupListBox_Impl::Init(const css::uno::Reference< css::uno::XComponentContext >& xContext,
 542                                       const css::uno::Reference< css::frame::XFrame >&          xFrame,
 543                                       const OUString&                                        sModuleLongName)
 544 {
 545     SetUpdateMode(sal_False);
 546     ClearAll(); // Remove all old entries from treelist box
 547
 548     m_xFrame = xFrame;
 549     if( xContext.is() )
 550     {
 551         m_xContext        = xContext;
 552         m_sModuleLongName = sModuleLongName;
 553
 554         m_xGlobalCategoryInfo = css::ui::UICategoryDescription::create( m_xContext );
 555         m_xModuleCategoryInfo = css::uno::Reference< css::container::XNameAccess >(m_xGlobalCategoryInfo->getByName(m_sModuleLongName), css::uno::UNO_QUERY_THROW);
 556         m_xUICmdDescription   = css::frame::UICommandDescription::create( m_xContext );
 557
 558         InitModule();
 559         InitBasic();
 560         InitStyles();
 561     }
 562
 563     OSL_TRACE("** ** About to initialise SF Scripts");
 564     // Add Scripting Framework entries
 565     Reference< browse::XBrowseNode > rootNode;
 566     Reference< XComponentContext > xCtx(
 567         comphelper::getProcessComponentContext() );
 568     try
 569     {
 570         Reference< browse::XBrowseNodeFactory > xFac = browse::theBrowseNodeFactory::get( xCtx );
 571         rootNode.set( xFac->createView( browse::BrowseNodeFactoryViewTypes::MACROSELECTOR ) );
 572     }
 573     catch( Exception& e )
 574     {
 575         OSL_TRACE(" Caught some exception whilst retrieving browse nodes from factory... Exception: %s",
 576             OUStringToOString( e.Message , RTL_TEXTENCODING_ASCII_US ).pData->buffer );
 577         // TODO exception handling
 578     }
 579
 580
 581     if ( rootNode.is() )
 582     {
 583         if ( nMode )
 584         {
 585                 //We call acquire on the XBrowseNode so that it does not
 586                 //get autodestructed and become invalid when accessed later.
 587             rootNode->acquire();
 588
 589             SfxGroupInfo_Impl *pInfo =
 590                 new SfxGroupInfo_Impl( SFX_CFGGROUP_SCRIPTCONTAINER, 0,
 591                     static_cast<void *>(rootNode.get()));
 592
 593             String aTitle(pImp->m_sDlgMacros);
 594             SvTreeListEntry *pNewEntry = InsertEntry( aTitle, NULL );
 595             pNewEntry->SetUserData( pInfo );
 596             pNewEntry->EnableChildrenOnDemand( sal_True );
 597             aArr.push_back( pInfo );
 598         }
 599         else
 600         {
 601              //We are only showing scripts not slot APIs so skip
 602              //Root node and show location nodes
 603             try {
 604                 if ( rootNode->hasChildNodes() )
 605                 {
 606                     Sequence< Reference< browse::XBrowseNode > > children =
 607                         rootNode->getChildNodes();
 608                     sal_Bool bIsRootNode = sal_False;
 609
 610                     OUString user("user");
 611                     OUString share("share");
 612                     if ( rootNode->getName() == "Root" )
 613                     {
 614                         bIsRootNode = sal_True;
 615                     }
 616
 617                     //To mimic current starbasic behaviour we
 618                     //need to make sure that only the current document
 619                     //is displayed in the config tree. Tests below
 620                     //set the bDisplay flag to FALSE if the current
 621                     //node is a first level child of the Root and is NOT
 622                     //either the current document, user or share
 623                     OUString currentDocTitle;
 624                     Reference< XModel > xDocument( lcl_getScriptableDocument_nothrow( m_xFrame ) );
 625                     if ( xDocument.is() )
 626                     {
 627                         currentDocTitle = ::comphelper::DocumentInfo::getDocumentTitle( xDocument );
 628                     }
 629
 630                     for ( sal_Int32 n = 0; n < children.getLength(); ++n )
 631                     {
 632                         Reference< browse::XBrowseNode >& theChild = children[n];
 633                         sal_Bool bDisplay = sal_True;
 634                         OUString uiName = theChild->getName();
 635                         if ( bIsRootNode )
 636                         {
 637                             if (  ! ((theChild->getName().equals( user )  || theChild->getName().equals( share ) ||
 638                                 theChild->getName().equals( currentDocTitle ) ) ) )
 639                             {
 640                                 bDisplay=sal_False;
 641                             }
 642                             else
 643                             {
 644                                 if ( uiName.equals( user ) )
 645                                 {
 646                                     uiName = pImp->m_sMyMacros;
 647                                 }
 648                                 else if ( uiName.equals( share ) )
 649                                 {
 650                                     uiName = pImp->m_sProdMacros;
 651                                 }
 652                             }
 653                         }
 654                         if (children[n]->getType() != browse::BrowseNodeTypes::SCRIPT  && bDisplay )
 655                         {
 656 //                              We call acquire on the XBrowseNode so that it does not
 657 //                              get autodestructed and become invalid when accessed later.
 658                             theChild->acquire();
 659
 660                             SfxGroupInfo_Impl* pInfo =
 661                                 new SfxGroupInfo_Impl(SFX_CFGGROUP_SCRIPTCONTAINER,
 662                                     0, static_cast<void *>( theChild.get()));
 663
 664                             Image aImage = GetImage( theChild, xCtx, bIsRootNode );
 665                             SvTreeListEntry* pNewEntry =
 666                                 InsertEntry( uiName, NULL);
 667                             SetExpandedEntryBmp(  pNewEntry, aImage );
 668                             SetCollapsedEntryBmp( pNewEntry, aImage );
 669
 670                             pNewEntry->SetUserData( pInfo );
 671                             aArr.push_back( pInfo );
 672
 673                             if ( children[n]->hasChildNodes() )
 674                             {
 675                                 Sequence< Reference< browse::XBrowseNode > > grandchildren =
 676                                     children[n]->getChildNodes();
 677
 678                                 for ( sal_Int32 m = 0; m < grandchildren.getLength(); ++m )
 679                                 {
 680                                     if ( grandchildren[m]->getType() == browse::BrowseNodeTypes::CONTAINER )
 681                                     {
 682                                         pNewEntry->EnableChildrenOnDemand( sal_True );
 683                                         m = grandchildren.getLength();
 684                                     }
 685                                 }
 686                             }
 687                         }
 688                     }
 689                 }
 690             }
 691             catch (RuntimeException&) {
 692                 // do nothing, the entry will not be displayed in the UI
 693             }
 694         }
 695     }
 696
 697     // add styles
 698     if ( m_xContext.is() )
 699     {
 700         String sStyle( pImp->m_aStrGroupStyles );
 701         SvTreeListEntry *pEntry = InsertEntry( sStyle, 0 );
 702         SfxGroupInfo_Impl *pInfo = new SfxGroupInfo_Impl( SFX_CFGGROUP_STYLES, 0, 0 ); // TODO last parameter should contain user data
 703         aArr.push_back( pInfo );
 704         pEntry->SetUserData( pInfo );
 705         pEntry->EnableChildrenOnDemand( sal_True );
 706     }
 707
 708     MakeVisible( GetEntry( 0,0 ) );
 709     SetUpdateMode( sal_True );
 710 }
 711 Image SfxConfigGroupListBox_Impl::GetImage(
 712     Reference< browse::XBrowseNode > node,
 713     Reference< XComponentContext > xCtx,
 714     bool bIsRootNode
 715 )
 716 {
 717     Image aImage;
 718     if ( bIsRootNode )
 719     {
 720         OUString user("user");
 721         OUString share("share");
 722         if (node->getName().equals( user ) || node->getName().equals(share ) )
 723         {
 724             aImage = pImp->m_hdImage;
 725         }
 726         else
 727         {
 728             OUString factoryURL;
 729             OUString nodeName = node->getName();
 730             Reference<XInterface> xDocumentModel = getDocumentModel(xCtx, nodeName );
 731             if ( xDocumentModel.is() )
 732             {
 733                 Reference< frame::XModuleManager2 > xModuleManager( frame::ModuleManager::create(xCtx) );
 734                 // get the long name of the document:
 735                 OUString appModule( xModuleManager->identify(
 736                                     xDocumentModel ) );
 737                 Sequence<beans::PropertyValue> moduleDescr;
 738                 Any aAny = xModuleManager->getByName(appModule);
 739                 if( sal_True != ( aAny >>= moduleDescr ) )
 740                 {
 741                     throw RuntimeException(OUString("SFTreeListBox::Init: failed to get PropertyValue"), Reference< XInterface >());
 742                 }
 743                 beans::PropertyValue const * pmoduleDescr =
 744                     moduleDescr.getConstArray();
 745                 for ( sal_Int32 pos = moduleDescr.getLength(); pos--; )
 746                 {
 747                     if ( pmoduleDescr[ pos ].Name == "ooSetupFactoryEmptyDocumentURL" )
 748                     {
 749                         pmoduleDescr[ pos ].Value >>= factoryURL;
 750                         OSL_TRACE("factory url for doc images is %s",
 751                         OUStringToOString( factoryURL , RTL_TEXTENCODING_ASCII_US ).pData->buffer );
 752                         break;
 753                     }
 754                 }
 755             }
 756             if( !factoryURL.isEmpty() )
 757             {
 758                 aImage = SvFileInformationManager::GetFileImage( INetURLObject(factoryURL), false );
 759             }
 760             else
 761             {
 762                 aImage = pImp->m_docImage;
 763             }
 764         }
 765     }
 766     else
 767     {
 768         if( node->getType() == browse::BrowseNodeTypes::SCRIPT )
 769             aImage = pImp->m_macImage;
 770         else
 771             aImage = pImp->m_libImage;
 772     }
 773     return aImage;
 774 }
 775
 776 Reference< XInterface  >
 777 SfxConfigGroupListBox_Impl::getDocumentModel( Reference< XComponentContext >& xCtx, OUString& docName )
 778 {
 779     Reference< XInterface > xModel;
 780     Reference< frame::XDesktop2 > desktop = frame::Desktop::create( xCtx );
 781
 782     Reference< container::XEnumerationAccess > componentsAccess =
 783         desktop->getComponents();
 784     Reference< container::XEnumeration > components =
 785         componentsAccess->createEnumeration();
 786     while (components->hasMoreElements())
 787     {
 788         Reference< frame::XModel > model(
 789             components->nextElement(), UNO_QUERY );
 790         if ( model.is() )
 791         {
 792             OUString sTdocUrl =
 793                 ::comphelper::DocumentInfo::getDocumentTitle( model );
 794             if( sTdocUrl.equals( docName ) )
 795             {
 796                 xModel = model;
 797                 break;
 798             }
 799         }
 800     }
 801     return xModel;
 802 }
 803
 804 //-----------------------------------------------
 805 OUString SfxConfigGroupListBox_Impl::MapCommand2UIName(const OUString& sCommand)
 806 {
 807     OUString sUIName;
 808     try
 809     {
 810         css::uno::Reference< css::container::XNameAccess > xModuleConf;
 811         m_xUICmdDescription->getByName(m_sModuleLongName) >>= xModuleConf;
 812         if (xModuleConf.is())
 813         {
 814             ::comphelper::SequenceAsHashMap lProps(xModuleConf->getByName(sCommand));
 815             sUIName = lProps.getUnpackedValueOrDefault(OUString("Name"), OUString());
 816         }
 817     }
 818     catch(const css::uno::RuntimeException&)
 819         { throw; }
 820     catch(css::uno::Exception&)
 821         { sUIName = OUString(); }
 822
 823     // fallback for missing UINames !?
 824     if (sUIName.isEmpty())
 825     {
 826         sUIName = sCommand;
 827     }
 828
 829     return sUIName;
 830 }
 831
 832 //-----------------------------------------------
 833 void SfxConfigGroupListBox_Impl::GroupSelected()
 834 /*  Description
 835     A function group or a basic module has been selected.
 836     All functions/macros are displayed in the functionlistbox.
 837 */
 838 {
 839     SvTreeListEntry *pEntry = FirstSelected();
 840     SfxGroupInfo_Impl *pInfo = (SfxGroupInfo_Impl*) pEntry->GetUserData();
 841     pFunctionListBox->SetUpdateMode(sal_False);
 842     pFunctionListBox->ClearAll();
 843     if ( pInfo->nKind != SFX_CFGGROUP_FUNCTION &&
 844              pInfo->nKind != SFX_CFGGROUP_SCRIPTCONTAINER &&
 845              pInfo->nKind != SFX_CFGGROUP_STYLES )
 846     {
 847         pFunctionListBox->SetUpdateMode(sal_True);
 848         return;
 849     }
 850
 851     switch ( pInfo->nKind )
 852     {
 853         case SFX_CFGGROUP_FUNCTION :
 854         {
 855             sal_uInt16                                                          nGroup    = pInfo->nUniqueID;
 856             css::uno::Reference< css::frame::XDispatchInformationProvider > xProvider (m_xFrame, css::uno::UNO_QUERY_THROW);
 857             css::uno::Sequence< css::frame::DispatchInformation >           lCommands = xProvider->getConfigurableDispatchInformation(nGroup);
 858             sal_Int32                                                       c         = lCommands.getLength();
 859             sal_Int32                                                       i         = 0;
 860
 861             for (i=0; i<c; ++i)
 862             {
 863                 const css::frame::DispatchInformation& rInfo      = lCommands[i];
 864                 OUString                        sUIName    = MapCommand2UIName(rInfo.Command);
 865                 SvTreeListEntry*                           pFuncEntry = pFunctionListBox->InsertEntry(sUIName, NULL);
 866                 SfxGroupInfo_Impl*                     pGrpInfo   = new SfxGroupInfo_Impl(SFX_CFGFUNCTION_SLOT, 0);
 867                 pGrpInfo->sCommand = rInfo.Command;
 868                 pGrpInfo->sLabel   = sUIName;
 869                 pFuncEntry->SetUserData(pGrpInfo);
 870             }
 871
 872             break;
 873         }
 874
 875         case SFX_CFGGROUP_SCRIPTCONTAINER:
 876         {
 877             if ( !GetChildCount( pEntry ) )
 878             {
 879                 Reference< browse::XBrowseNode > rootNode(
 880                     reinterpret_cast< browse::XBrowseNode* >( pInfo->pObject ) ) ;
 881
 882                 try {
 883                     if ( rootNode->hasChildNodes() )
 884                     {
 885                         Sequence< Reference< browse::XBrowseNode > > children =
 886                             rootNode->getChildNodes();
 887
 888                         for ( sal_Int32 n = 0; n < children.getLength(); ++n )
 889                         {
 890                             if (children[n]->getType() == browse::BrowseNodeTypes::SCRIPT)
 891                             {
 892                                 OUString uri;
 893
 894                                 Reference < beans::XPropertySet >xPropSet( children[n], UNO_QUERY );
 895                                 if (!xPropSet.is())
 896                                 {
 897                                     continue;
 898                                 }
 899
 900                                 Any value =
 901                                     xPropSet->getPropertyValue( OUString("URI") );
 902                                 value >>= uri;
 903
 904                                 String* pScriptURI = new String( uri );
 905                                 SfxGroupInfo_Impl* pGrpInfo = new SfxGroupInfo_Impl( SFX_CFGFUNCTION_SCRIPT, 0, pScriptURI );
 906
 907                                 Image aImage = GetImage( children[n], Reference< XComponentContext >(), sal_False );
 908                                 SvTreeListEntry* pNewEntry =
 909                                     pFunctionListBox->InsertEntry( children[n]->getName(), NULL );
 910                                 pFunctionListBox->SetExpandedEntryBmp( pNewEntry, aImage );
 911                                 pFunctionListBox->SetCollapsedEntryBmp(pNewEntry, aImage );
 912
 913                                 pGrpInfo->sCommand = uri;
 914                                 pGrpInfo->sLabel = children[n]->getName();
 915                                 pNewEntry->SetUserData( pGrpInfo );
 916
 917                                 pFunctionListBox->aArr.push_back( pGrpInfo );
 918
 919                             }
 920                         }
 921                     }
 922                 }
 923                 catch (RuntimeException&) {
 924                     // do nothing, the entry will not be displayed in the UI
 925                 }
 926             }
 927             break;
 928         }
 929
 930         case SFX_CFGGROUP_STYLES :
 931         {
 932             SfxStyleInfo_Impl* pFamily = (SfxStyleInfo_Impl*)(pInfo->pObject);
 933             if (pFamily)
 934             {
 935                 const ::std::vector< SfxStyleInfo_Impl > lStyles = pStylesInfo->getStyles(pFamily->sFamily);
 936                 ::std::vector< SfxStyleInfo_Impl >::const_iterator pIt;
 937                 for (  pIt  = lStyles.begin();
 938                        pIt != lStyles.end()  ;
 939                      ++pIt                   )
 940                 {
 941                     SfxStyleInfo_Impl* pStyle = new SfxStyleInfo_Impl(*pIt);
 942                     SvTreeListEntry* pFuncEntry = pFunctionListBox->InsertEntry( pStyle->sLabel, NULL );
 943                     SfxGroupInfo_Impl *pGrpInfo = new SfxGroupInfo_Impl( SFX_CFGGROUP_STYLES, 0, pStyle );
 944                     pFunctionListBox->aArr.push_back( pGrpInfo );
 945                     pGrpInfo->sCommand = pStyle->sCommand;
 946                     pGrpInfo->sLabel = pStyle->sLabel;
 947                     pFuncEntry->SetUserData( pGrpInfo );
 948                 }
 949             }
 950             break;
 951         }
 952
 953         default:
 954             return;
 955     }
 956
 957     if ( pFunctionListBox->GetEntryCount() )
 958         pFunctionListBox->Select( pFunctionListBox->GetEntry( 0, 0 ) );
 959
 960     pFunctionListBox->SetUpdateMode(sal_True);
 961 }
 962
 963 sal_Bool SfxConfigGroupListBox_Impl::Expand( SvTreeListEntry* pParent )
 964 {
 965     sal_Bool bRet = SvTreeListBox::Expand( pParent );
 966     if ( bRet )
 967     {
 968         sal_uLong nEntries = GetOutputSizePixel().Height() / GetEntryHeight();
 969
 970         sal_uLong nChildCount = GetVisibleChildCount( pParent );
 971
 972         if ( nChildCount+1 > nEntries )
 973         {
 974             MakeVisible( pParent, sal_True );
 975         }
 976         else
 977         {
 978             SvTreeListEntry *pEntry = GetFirstEntryInView();
 979             sal_uLong nParentPos = 0;
 980             while ( pEntry && pEntry != pParent )
 981             {
 982                 ++nParentPos;
 983                 pEntry = GetNextEntryInView( pEntry );
 984             }
 985
 986             if ( nParentPos + nChildCount + 1 > nEntries )
 987                 ScrollOutputArea( (short)( nEntries - ( nParentPos + nChildCount + 1 ) ) );
 988         }
 989     }
 990
 991     return bRet;
 992 }
 993
 994 void SfxConfigGroupListBox_Impl::RequestingChildren( SvTreeListEntry *pEntry )
 995 /*  Description
 996     A basic or a library is opened.
 997 */
 998 {
 999     SfxGroupInfo_Impl *pInfo = (SfxGroupInfo_Impl*) pEntry->GetUserData();
1000     pInfo->bWasOpened = sal_True;
1001     switch ( pInfo->nKind )
1002     {
1003         case SFX_CFGGROUP_SCRIPTCONTAINER:
1004         {
1005             if ( !GetChildCount( pEntry ) )
1006             {
1007                 Reference< browse::XBrowseNode > rootNode(
1008                     reinterpret_cast< browse::XBrowseNode* >( pInfo->pObject ) ) ;
1009
1010                 try {
1011                     if ( rootNode->hasChildNodes() )
1012                     {
1013                         Sequence< Reference< browse::XBrowseNode > > children =
1014                             rootNode->getChildNodes();
1015                         sal_Bool bIsRootNode = sal_False;
1016
1017                         OUString user("user");
1018                         OUString share("share" );
1019                         if ( rootNode->getName() == "Root" )
1020                         {
1021                             bIsRootNode = sal_True;
1022                         }
1023
1024                         /* To mimic current starbasic behaviour we
1025                         need to make sure that only the current document
1026                         is displayed in the config tree. Tests below
1027                         set the bDisplay flag to sal_False if the current
1028                         node is a first level child of the Root and is NOT
1029                         either the current document, user or share */
1030                         OUString currentDocTitle;
1031                         Reference< XModel > xDocument( lcl_getScriptableDocument_nothrow( m_xFrame ) );
1032                         if ( xDocument.is() )
1033                         {
1034                             currentDocTitle = ::comphelper::DocumentInfo::getDocumentTitle( xDocument );
1035                         }
1036
1037                         sal_Int32 nLen = children.getLength();
1038                         for ( sal_Int32 n = 0; n < nLen; ++n )
1039                         {
1040                             Reference< browse::XBrowseNode >& theChild = children[n];
1041                             OUString aName( theChild->getName() );
1042                             sal_Bool bDisplay = sal_True;
1043                             if ( bIsRootNode )
1044                             {
1045                                 if ( !( (aName.equals(user) || aName.equals(share) || aName.equals(currentDocTitle) ) ) )
1046                                     bDisplay=sal_False;
1047                             }
1048                             if ( children[n].is() && children[n]->getType() != browse::BrowseNodeTypes::SCRIPT && bDisplay )
1049                             {
1050
1051                                 /*
1052                                     We call acquire on the XBrowseNode so that it does not
1053                                     get autodestructed and become invalid when accessed later.
1054                                 */
1055                                 theChild->acquire();
1056
1057                                 SfxGroupInfo_Impl* pGrpInfo =
1058                                     new SfxGroupInfo_Impl(SFX_CFGGROUP_SCRIPTCONTAINER,
1059                                         0, static_cast<void *>( theChild.get()));
1060
1061                                 Image aImage = GetImage( theChild, Reference< XComponentContext >(), sal_False );
1062                                 SvTreeListEntry* pNewEntry =
1063                                     InsertEntry( theChild->getName(), pEntry );
1064                                 SetExpandedEntryBmp( pNewEntry, aImage );
1065                                 SetCollapsedEntryBmp(pNewEntry, aImage );
1066
1067                                 pNewEntry->SetUserData( pGrpInfo );
1068                                 aArr.push_back( pGrpInfo );
1069
1070                                 if ( children[n]->hasChildNodes() )
1071                                 {
1072                                     Sequence< Reference< browse::XBrowseNode > > grandchildren =
1073                                         children[n]->getChildNodes();
1074
1075                                     for ( sal_Int32 m = 0; m < grandchildren.getLength(); ++m )
1076                                     {
1077                                         if ( grandchildren[m]->getType() == browse::BrowseNodeTypes::CONTAINER )
1078                                         {
1079                                             pNewEntry->EnableChildrenOnDemand( sal_True );
1080                                             m = grandchildren.getLength();
1081                                         }
1082                                     }
1083                                 }
1084                             }
1085                         }
1086                     }
1087                 }
1088                 catch (RuntimeException&) {
1089                     // do nothing, the entry will not be displayed in the UI
1090                 }
1091             }
1092             break;
1093         }
1094
1095         case SFX_CFGGROUP_STYLES:
1096         {
1097             if ( !GetChildCount( pEntry ) )
1098             {
1099                 const ::std::vector< SfxStyleInfo_Impl >                 lStyleFamilies = pStylesInfo->getStyleFamilies();
1100                       ::std::vector< SfxStyleInfo_Impl >::const_iterator pIt;
1101                 for (  pIt  = lStyleFamilies.begin();
1102                        pIt != lStyleFamilies.end()  ;
1103                      ++pIt                          )
1104                 {
1105                     SfxStyleInfo_Impl* pFamily = new SfxStyleInfo_Impl(*pIt);
1106                     SvTreeListEntry* pStyleEntry = InsertEntry( pFamily->sLabel, pEntry );
1107                     SfxGroupInfo_Impl *pGrpInfo = new SfxGroupInfo_Impl( SFX_CFGGROUP_STYLES, 0, pFamily );
1108                     aArr.push_back( pGrpInfo );
1109                     pStyleEntry->SetUserData( pGrpInfo );
1110                     pStyleEntry->EnableChildrenOnDemand( sal_False );
1111                 }
1112             }
1113             break;
1114         }
1115
1116         default:
1117             OSL_FAIL( "Falscher Gruppentyp!" );
1118             break;
1119     }
1120 }
1121
1122 void SfxConfigGroupListBox_Impl::SelectMacro( const SfxMacroInfoItem *pItem )
1123 {
1124     SelectMacro( pItem->GetBasicManager()->GetName(),
1125                  pItem->GetQualifiedName() );
1126 }
1127
1128 void SfxConfigGroupListBox_Impl::SelectMacro( const String& rBasic,
1129          const String& rMacro )
1130 {
1131     String aBasicName( rBasic );
1132     aBasicName += ' ';
1133     aBasicName += pImp->m_sMacros;
1134     String aLib, aModule, aMethod;
1135     sal_uInt16 nCount = comphelper::string::getTokenCount(rMacro, '.');
1136     aMethod = rMacro.GetToken( nCount-1, '.' );
1137     if ( nCount > 2 )
1138     {
1139         aLib = rMacro.GetToken( 0, '.' );
1140         aModule = rMacro.GetToken( nCount-2, '.' );
1141     }
1142
1143     SvTreeListEntry *pEntry = FirstChild(0);
1144     while ( pEntry )
1145     {
1146         String aEntryBas = GetEntryText( pEntry );
1147         if ( aEntryBas == aBasicName )
1148         {
1149             Expand( pEntry );
1150             SvTreeListEntry *pLib = FirstChild( pEntry );
1151             while ( pLib )
1152             {
1153                 String aEntryLib = GetEntryText( pLib );
1154                 if ( aEntryLib == aLib )
1155                 {
1156                     Expand( pLib );
1157                     SvTreeListEntry *pMod = FirstChild( pLib );
1158                     while ( pMod )
1159                     {
1160                         String aEntryMod = GetEntryText( pMod );
1161                         if ( aEntryMod == aModule )
1162                         {
1163                             Expand( pMod );
1164                             MakeVisible( pMod );
1165                             Select( pMod );
1166                             SvTreeListEntry *pMethod = pFunctionListBox->First();
1167                             while ( pMethod )
1168                             {
1169                                 String aEntryMethod = GetEntryText( pMethod );
1170                                 if ( aEntryMethod == aMethod )
1171                                 {
1172                                     pFunctionListBox->Select( pMethod );
1173                                     pFunctionListBox->MakeVisible( pMethod );
1174                                     return;
1175                                 }
1176                                 pMethod = pFunctionListBox->Next( pMethod );
1177                             }
1178                         }
1179                         pMod = NextSibling( pMod );
1180                     }
1181                 }
1182                 pLib = NextSibling( pLib );
1183             }
1184         }
1185         pEntry = NextSibling( pEntry );
1186     }
1187 }
1188
1189 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */