vcl/source/control/ivctrl.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
  21 #include <vcl/ivctrl.hxx>
  22 #include "imivctl.hxx"
  23 #include <vcl/accessiblefactory.hxx>
  24 #include <vcl/bitmapex.hxx>
  25 #include <vcl/commandevent.hxx>
  26 #include <vcl/mnemonic.hxx>
  27 #include <vcl/settings.hxx>
  28 #include <vcl/tabctrl.hxx>
  29 #include <vcl/vclevent.hxx>
  30
  31 using namespace ::com::sun::star::accessibility;
  32
  33 /*****************************************************************************
  34 |
  35 | class : SvxIconChoiceCtrlEntry
  36 |
  37 \*****************************************************************************/
  38
  39 SvxIconChoiceCtrlEntry::SvxIconChoiceCtrlEntry( const OUString& rText,
  40                                                 const Image& rImage )
  41     : aImage(rImage)
  42     , aText(rText)
  43     , pUserData(nullptr)
  44     , nPos(0)
  45     , pblink(nullptr)
  46     , pflink(nullptr)
  47     , eTextMode(SvxIconChoiceCtrlTextMode::Short)
  48     , nX(0)
  49     , nY(0)
  50     , nFlags(SvxIconViewFlags::NONE)
  51 {
  52 }
  53
  54 OUString SvxIconChoiceCtrlEntry::GetDisplayText() const
  55 {
  56     return MnemonicGenerator::EraseAllMnemonicChars( aText );
  57 }
  58
  59
  60 SvxIconChoiceCtrlColumnInfo::SvxIconChoiceCtrlColumnInfo( const SvxIconChoiceCtrlColumnInfo& rInfo )
  61 {
  62     nWidth = rInfo.nWidth;
  63 }
  64
  65 /*****************************************************************************
  66 |
  67 | class : SvtIconChoiceCtrl
  68 |
  69 \*****************************************************************************/
  70
  71 SvtIconChoiceCtrl::SvtIconChoiceCtrl( vcl::Window* pParent, WinBits nWinStyle ) :
  72
  73      // WB_CLIPCHILDREN on, as ScrollBars lie on the window!
  74     Control( pParent, nWinStyle | WB_CLIPCHILDREN ),
  75
  76     _pImpl           ( new SvxIconChoiceCtrl_Impl( this, nWinStyle ) )
  77 {
  78     SetLineColor();
  79     _pImpl->InitSettings();
  80     _pImpl->SetPositionMode( SvxIconChoiceCtrlPositionMode::AutoArrange );
  81 }
  82
  83 SvtIconChoiceCtrl::~SvtIconChoiceCtrl()
  84 {
  85     disposeOnce();
  86 }
  87
  88 void SvtIconChoiceCtrl::dispose()
  89 {
  90     if (_pImpl)
  91     {
  92         _pImpl->CallEventListeners( VclEventId::ObjectDying, nullptr );
  93         _pImpl.reset();
  94     }
  95     Control::dispose();
  96 }
  97
  98 SvxIconChoiceCtrlEntry* SvtIconChoiceCtrl::InsertEntry( const OUString& rText, const Image& rImage  )
  99 {
 100     SvxIconChoiceCtrlEntry* pEntry = new SvxIconChoiceCtrlEntry( rText, rImage);
 101
 102     _pImpl->InsertEntry(std::unique_ptr<SvxIconChoiceCtrlEntry>(pEntry), _pImpl->GetEntryCount());
 103
 104     return pEntry;
 105 }
 106
 107 void SvtIconChoiceCtrl::RemoveEntry(sal_Int32 nIndex)
 108 {
 109     _pImpl->RemoveEntry(nIndex);
 110 }
 111
 112 void SvtIconChoiceCtrl::DrawEntryImage( SvxIconChoiceCtrlEntry const * pEntry, const Point& rPos, OutputDevice& rDev )
 113 {
 114     rDev.DrawImage( rPos, pEntry->GetImage() );
 115 }
 116
 117 OUString SvtIconChoiceCtrl::GetEntryText( SvxIconChoiceCtrlEntry const * pEntry )
 118 {
 119     return pEntry->GetText();
 120 }
 121
 122 void SvtIconChoiceCtrl::Paint(vcl::RenderContext& rRenderContext, const tools::Rectangle& rRect)
 123 {
 124     _pImpl->Paint(rRenderContext, rRect);
 125 }
 126
 127 void SvtIconChoiceCtrl::MouseButtonDown( const MouseEvent& rMEvt )
 128 {
 129     if( !_pImpl->MouseButtonDown( rMEvt ) )
 130         Control::MouseButtonDown( rMEvt );
 131 }
 132
 133 void SvtIconChoiceCtrl::MouseButtonUp( const MouseEvent& rMEvt )
 134 {
 135     if( !_pImpl->MouseButtonUp( rMEvt ) )
 136         Control::MouseButtonUp( rMEvt );
 137 }
 138
 139 void SvtIconChoiceCtrl::MouseMove( const MouseEvent& rMEvt )
 140 {
 141     if( !_pImpl->MouseMove( rMEvt ) )
 142         Control::MouseMove( rMEvt );
 143 }
 144 void SvtIconChoiceCtrl::ArrangeIcons()
 145 {
 146     if ( GetStyle() & WB_ALIGN_TOP )
 147     {
 148         Size aFullSize;
 149         tools::Rectangle aEntryRect;
 150
 151         for ( sal_Int32 i = 0; i < GetEntryCount(); i++ )
 152         {
 153             SvxIconChoiceCtrlEntry* pEntry = GetEntry ( i );
 154             aEntryRect = _pImpl->GetEntryBoundRect ( pEntry );
 155
 156             aFullSize.setWidth ( aFullSize.getWidth()+aEntryRect.GetWidth() );
 157         }
 158
 159         _pImpl->Arrange ( false, aFullSize.getWidth(), 0 );
 160     }
 161     else if ( GetStyle() & WB_ALIGN_LEFT )
 162     {
 163         Size aFullSize;
 164         tools::Rectangle aEntryRect;
 165
 166         for ( sal_Int32 i = 0; i < GetEntryCount(); i++ )
 167         {
 168             SvxIconChoiceCtrlEntry* pEntry = GetEntry ( i );
 169             aEntryRect = _pImpl->GetEntryBoundRect ( pEntry );
 170
 171             aFullSize.setHeight ( aFullSize.getHeight()+aEntryRect.GetHeight() );
 172         }
 173
 174         _pImpl->Arrange ( false, 0, aFullSize.getHeight() );
 175     }
 176     else
 177     {
 178         _pImpl->Arrange(false, 0, 0);
 179     }
 180     _pImpl->Arrange( false, 0, 1000 );
 181 }
 182 void SvtIconChoiceCtrl::Resize()
 183 {
 184     _pImpl->Resize();
 185     Control::Resize();
 186 }
 187
 188 void SvtIconChoiceCtrl::GetFocus()
 189 {
 190     _pImpl->GetFocus();
 191     Control::GetFocus();
 192     SvxIconChoiceCtrlEntry* pSelectedEntry = GetSelectedEntry();
 193     if ( pSelectedEntry )
 194         _pImpl->CallEventListeners( VclEventId::ListboxSelect, pSelectedEntry );
 195 }
 196
 197 void SvtIconChoiceCtrl::LoseFocus()
 198 {
 199     if (_pImpl)
 200         _pImpl->LoseFocus();
 201     Control::LoseFocus();
 202 }
 203
 204 void SvtIconChoiceCtrl::SetFont(const vcl::Font& rFont)
 205 {
 206     if (rFont != GetFont())
 207     {
 208         Control::SetFont(rFont);
 209         _pImpl->FontModified();
 210     }
 211 }
 212
 213 void SvtIconChoiceCtrl::SetPointFont(const vcl::Font& rFont)
 214 {
 215     if (rFont != GetPointFont(*this)) //FIXME
 216     {
 217         Control::SetPointFont(*this, rFont); //FIXME
 218         _pImpl->FontModified();
 219     }
 220 }
 221
 222 SvxIconChoiceCtrlEntry* SvtIconChoiceCtrl::GetEntry( const Point& rPixPos ) const
 223 {
 224     Point aPos( rPixPos );
 225     aPos -= GetMapMode().GetOrigin();
 226     return const_cast<SvtIconChoiceCtrl*>(this)->_pImpl->GetEntry( aPos );
 227 }
 228
 229 WinBits SvtIconChoiceCtrl::GetStyle() const
 230 {
 231     return _pImpl->GetStyle();
 232 }
 233
 234 void SvtIconChoiceCtrl::Command(const CommandEvent& rCEvt)
 235 {
 236     _pImpl->Command( rCEvt );
 237     //pass at least alt press/release to parent impl
 238     if (rCEvt.GetCommand() == CommandEventId::ModKeyChange)
 239         Control::Command(rCEvt);
 240 }
 241
 242 #ifdef DBG_UTIL
 243 void SvtIconChoiceCtrl::SetEntryTextMode( SvxIconChoiceCtrlTextMode eMode, SvxIconChoiceCtrlEntry* pEntry )
 244 {
 245     _pImpl->SetEntryTextMode( eMode, pEntry );
 246 }
 247 #endif
 248
 249 sal_Int32 SvtIconChoiceCtrl::GetEntryCount() const
 250 {
 251     return _pImpl ? _pImpl->GetEntryCount() : 0;
 252 }
 253
 254 SvxIconChoiceCtrlEntry* SvtIconChoiceCtrl::GetEntry( sal_Int32 nPos ) const
 255 {
 256     return _pImpl ? _pImpl->GetEntry( nPos ) : nullptr;
 257 }
 258
 259 void SvtIconChoiceCtrl::CreateAutoMnemonics( MnemonicGenerator& _rUsedMnemonics )
 260 {
 261     _pImpl->CreateAutoMnemonics( &_rUsedMnemonics );
 262 }
 263
 264 SvxIconChoiceCtrlEntry* SvtIconChoiceCtrl::GetSelectedEntry() const
 265 {
 266     return _pImpl ? _pImpl->GetFirstSelectedEntry() : nullptr;
 267 }
 268
 269 void SvtIconChoiceCtrl::ClickIcon()
 270 {
 271     GetSelectedEntry();
 272     _aClickIconHdl.Call( this );
 273 }
 274
 275 void SvtIconChoiceCtrl::SetChoiceWithCursor()
 276 {
 277     _pImpl->SetChoiceWithCursor();
 278 }
 279
 280 void SvtIconChoiceCtrl::KeyInput( const KeyEvent& rKEvt )
 281 {
 282     bool bKeyUsed = DoKeyInput( rKEvt );
 283     if ( !bKeyUsed )
 284     {
 285         Control::KeyInput( rKEvt );
 286     }
 287 }
 288 bool SvtIconChoiceCtrl::DoKeyInput( const KeyEvent& rKEvt )
 289 {
 290     return _pImpl->KeyInput( rKEvt );
 291 }
 292 sal_Int32 SvtIconChoiceCtrl::GetEntryListPos( SvxIconChoiceCtrlEntry const * pEntry ) const
 293 {
 294     return _pImpl->GetEntryListPos( pEntry );
 295 }
 296 SvxIconChoiceCtrlEntry* SvtIconChoiceCtrl::GetCursor( ) const
 297 {
 298     return _pImpl->GetCurEntry( );
 299 }
 300 void SvtIconChoiceCtrl::SetCursor( SvxIconChoiceCtrlEntry* pEntry )
 301 {
 302     _pImpl->SetCursor( pEntry );
 303 }
 304 void SvtIconChoiceCtrl::InvalidateEntry( SvxIconChoiceCtrlEntry* pEntry )
 305 {
 306     _pImpl->InvalidateEntry( pEntry );
 307 }
 308
 309 void SvtIconChoiceCtrl::DataChanged( const DataChangedEvent& rDCEvt )
 310 {
 311     if ( ((rDCEvt.GetType() == DataChangedEventType::SETTINGS) ||
 312          (rDCEvt.GetType() == DataChangedEventType::FONTSUBSTITUTION) ||
 313          (rDCEvt.GetType() == DataChangedEventType::FONTS) ) &&
 314          (rDCEvt.GetFlags() & AllSettingsFlags::STYLE) )
 315     {
 316         _pImpl->InitSettings();
 317         Invalidate(InvalidateFlags::NoChildren);
 318     }
 319     else
 320         Control::DataChanged( rDCEvt );
 321 }
 322
 323 void SvtIconChoiceCtrl::SetBackground( const Wallpaper& rPaper )
 324 {
 325     if( rPaper == GetBackground() )
 326         return;
 327
 328     const StyleSettings& rStyleSettings = GetSettings().GetStyleSettings();
 329     // if it is the default (empty) wallpaper
 330     if (rPaper.IsEmpty())
 331     {
 332         Control::SetBackground( rStyleSettings.GetFieldColor() );
 333     }
 334     else
 335     {
 336         Wallpaper aBackground( rPaper );
 337         // HACK, as background might be transparent!
 338         if( !aBackground.IsBitmap() )
 339             aBackground.SetStyle( WallpaperStyle::Tile );
 340
 341         WallpaperStyle eStyle = aBackground.GetStyle();
 342         Color aBack( aBackground.GetColor());
 343         if( aBack == COL_TRANSPARENT &&
 344             (!aBackground.IsBitmap() ||
 345              aBackground.GetBitmap().IsTransparent() ||
 346              (eStyle != WallpaperStyle::Tile && eStyle != WallpaperStyle::Scale)) )
 347         {
 348             aBackground.SetColor( rStyleSettings.GetFieldColor() );
 349         }
 350         if( aBackground.IsScrollable() )
 351         {
 352             tools::Rectangle aRect;
 353             aRect.SetSize( Size(32765, 32765) );
 354             aBackground.SetRect( aRect );
 355         }
 356         else
 357         {
 358             tools::Rectangle aRect( _pImpl->GetOutputRect() );
 359             aBackground.SetRect( aRect );
 360         }
 361         Control::SetBackground( aBackground );
 362     }
 363
 364     // If text colors are attributed "hard," don't use automatism to select
 365     // a readable text color.
 366     vcl::Font aFont( GetFont() );
 367     aFont.SetColor( rStyleSettings.GetFieldTextColor() );
 368     SetFont( aFont );
 369
 370     Invalidate(InvalidateFlags::NoChildren);
 371 }
 372
 373 void SvtIconChoiceCtrl::RequestHelp( const HelpEvent& rHEvt )
 374 {
 375     if ( !_pImpl->RequestHelp( rHEvt ) )
 376         Control::RequestHelp( rHEvt );
 377 }
 378
 379 void SvtIconChoiceCtrl::SetSelectionMode( SelectionMode eMode )
 380 {
 381     _pImpl->SetSelectionMode( eMode );
 382 }
 383
 384 tools::Rectangle SvtIconChoiceCtrl::GetBoundingBox( SvxIconChoiceCtrlEntry* pEntry ) const
 385 {
 386     return _pImpl->GetEntryBoundRect( pEntry );
 387 }
 388
 389 void SvtIconChoiceCtrl::FillLayoutData() const
 390 {
 391     CreateLayoutData();
 392     const_cast<SvtIconChoiceCtrl*>(this)->Invalidate();
 393 }
 394
 395 tools::Rectangle SvtIconChoiceCtrl::GetEntryCharacterBounds( const sal_Int32 _nEntryPos, const sal_Int32 _nCharacterIndex ) const
 396 {
 397     tools::Rectangle aRect;
 398
 399     Pair aEntryCharacterRange = GetLineStartEnd( _nEntryPos );
 400     if ( aEntryCharacterRange.A() + _nCharacterIndex < aEntryCharacterRange.B() )
 401     {
 402         aRect = GetCharacterBounds( aEntryCharacterRange.A() + _nCharacterIndex );
 403     }
 404
 405     return aRect;
 406 }
 407
 408 void SvtIconChoiceCtrl::SetNoSelection()
 409 {
 410     _pImpl->SetNoSelection();
 411 }
 412
 413 void SvtIconChoiceCtrl::CallImplEventListeners(VclEventId nEvent, void* pData)
 414 {
 415     CallEventListeners(nEvent, pData);
 416 }
 417 css::uno::Reference< XAccessible > SvtIconChoiceCtrl::CreateAccessible()
 418 {
 419     vcl::Window* pParent = GetAccessibleParentWindow();
 420     DBG_ASSERT( pParent, "SvTreeListBox::CreateAccessible - accessible parent not found" );
 421
 422     css::uno::Reference< XAccessible > xAccessible;
 423     if ( pParent )
 424     {
 425         css::uno::Reference< XAccessible > xAccParent = pParent->GetAccessible();
 426         if ( xAccParent.is() )
 427         {
 428             css::uno::Reference< css::awt::XWindowPeer > xTemp(GetComponentInterface());
 429             xAccessible = _pImpl->GetAccessibleFactory().createAccessibleIconChoiceCtrl( *this, xAccParent );
 430         }
 431     }
 432     return xAccessible;
 433 }
 434
 435 struct VerticalTabPageData
 436 {
 437     OString sId;
 438     SvxIconChoiceCtrlEntry* pEntry;
 439     VclPtr<vcl::Window> xPage;      ///< the TabPage itself
 440 };
 441
 442 VerticalTabControl::VerticalTabControl(vcl::Window* pParent)
 443     : VclHBox(pParent)
 444     , m_xChooser(VclPtr<SvtIconChoiceCtrl>::Create(this, WB_3DLOOK | WB_ICON | WB_BORDER |
 445                                                          WB_NOCOLUMNHEADER | WB_HIGHLIGHTFRAME |
 446                                                          WB_NODRAGSELECTION | WB_TABSTOP | WB_CLIPCHILDREN |
 447                                                          WB_ALIGN_LEFT | WB_NOHSCROLL))
 448     , m_xBox(VclPtr<VclVBox>::Create(this))
 449 {
 450     SetType(WindowType::VERTICALTABCONTROL);
 451     m_xChooser->SetClickHdl(LINK(this, VerticalTabControl, ChosePageHdl_Impl));
 452     m_xChooser->set_width_request(110);
 453     m_xChooser->set_height_request(400);
 454     m_xChooser->SetSizePixel(Size(110, 400));
 455     m_xBox->set_vexpand(true);
 456     m_xBox->set_hexpand(true);
 457     m_xBox->set_expand(true);
 458     m_xBox->Show();
 459     m_xChooser->Show();
 460 }
 461
 462 VerticalTabControl::~VerticalTabControl()
 463 {
 464     disposeOnce();
 465 }
 466
 467 void VerticalTabControl::dispose()
 468 {
 469     m_xChooser.disposeAndClear();
 470     m_xBox.disposeAndClear();
 471     VclHBox::dispose();
 472 }
 473
 474 IMPL_LINK_NOARG(VerticalTabControl, ChosePageHdl_Impl, SvtIconChoiceCtrl*, void)
 475 {
 476     SvxIconChoiceCtrlEntry *pEntry = m_xChooser->GetSelectedEntry();
 477     if (!pEntry)
 478         pEntry = m_xChooser->GetCursor();
 479
 480     VerticalTabPageData* pData = GetPageData(pEntry);
 481
 482     if (pData->sId != m_sCurrentPageId)
 483         SetCurPageId(pData->sId);
 484 }
 485
 486 void VerticalTabControl::ActivatePage()
 487 {
 488     m_aActivateHdl.Call( this );
 489 }
 490
 491 bool VerticalTabControl::DeactivatePage()
 492 {
 493     return !m_aDeactivateHdl.IsSet() || m_aDeactivateHdl.Call(this);
 494 }
 495
 496 VerticalTabPageData* VerticalTabControl::GetPageData(const SvxIconChoiceCtrlEntry* pEntry) const
 497 {
 498     VerticalTabPageData* pRet = nullptr;
 499     for (auto & pData : maPageList)
 500     {
 501         if (pData->pEntry == pEntry)
 502         {
 503             pRet = pData.get();
 504             break;
 505         }
 506     }
 507     return pRet;
 508 }
 509
 510 VerticalTabPageData* VerticalTabControl::GetPageData(const OString& rId) const
 511 {
 512     VerticalTabPageData* pRet = nullptr;
 513     for (auto & pData : maPageList)
 514     {
 515         if (pData->sId == rId)
 516         {
 517             pRet = pData.get();
 518             break;
 519         }
 520     }
 521     return pRet;
 522 }
 523
 524 void VerticalTabControl::SetCurPageId(const OString& rId)
 525 {
 526     OString sOldPageId = GetCurPageId();
 527     if (sOldPageId == rId)
 528         return;
 529
 530     VerticalTabPageData* pOldData = GetPageData(sOldPageId);
 531     if (pOldData && pOldData->xPage)
 532     {
 533         if (!DeactivatePage())
 534             return;
 535         pOldData->xPage->Hide();
 536     }
 537
 538     m_sCurrentPageId = "";
 539
 540     VerticalTabPageData* pNewData = GetPageData(rId);
 541     if (pNewData && pNewData->xPage)
 542     {
 543         m_sCurrentPageId = rId;
 544         m_xChooser->SetCursor(pNewData->pEntry);
 545
 546         ActivatePage();
 547         pNewData->xPage->Show();
 548     }
 549 }
 550
 551 OString VerticalTabControl::GetPageId(sal_uInt16 nIndex) const
 552 {
 553     return maPageList[nIndex]->sId;
 554 }
 555
 556 void VerticalTabControl::InsertPage(const rtl::OString &rIdent, const rtl::OUString& rLabel, const Image& rImage,
 557                                     const rtl::OUString& rTooltip, VclPtr<vcl::Window> xPage)
 558 {
 559     SvxIconChoiceCtrlEntry* pEntry = m_xChooser->InsertEntry(rLabel, rImage);
 560     pEntry->SetQuickHelpText(rTooltip);
 561     m_xChooser->ArrangeIcons();
 562     maPageList.emplace_back(new VerticalTabPageData);
 563     VerticalTabPageData* pNew = maPageList.back().get();
 564     pNew->sId = rIdent;
 565     pNew->pEntry = pEntry;
 566     pNew->xPage = xPage;
 567     Size aOrigPrefSize(m_xBox->get_preferred_size());
 568     Size aPagePrefSize(xPage->get_preferred_size());
 569     m_xBox->set_width_request(std::max(aOrigPrefSize.Width(), aPagePrefSize.Width()));
 570     m_xBox->set_height_request(std::max(aOrigPrefSize.Height(), aPagePrefSize.Height()));
 571     pNew->xPage->Hide();
 572 }
 573
 574 void VerticalTabControl::RemovePage(const rtl::OString &rPageId)
 575 {
 576     for (auto it = maPageList.begin(), end = maPageList.end(); it != end; ++it)
 577     {
 578         VerticalTabPageData* pData = it->get();
 579         if (pData->sId == rPageId)
 580         {
 581             sal_Int32 nEntryListPos = m_xChooser->GetEntryListPos(pData->pEntry);
 582             m_xChooser->RemoveEntry(nEntryListPos);
 583             m_xChooser->ArrangeIcons();
 584             maPageList.erase(it);
 585             break;
 586         }
 587     }
 588 }
 589
 590 sal_uInt16 VerticalTabControl::GetPagePos(const OString& rPageId) const
 591 {
 592     VerticalTabPageData* pData = GetPageData(rPageId);
 593     if (!pData)
 594         return TAB_PAGE_NOTFOUND;
 595     return m_xChooser->GetEntryListPos(pData->pEntry);
 596 }
 597
 598 VclPtr<vcl::Window> VerticalTabControl::GetPage(const OString& rPageId)
 599 {
 600     VerticalTabPageData* pData = GetPageData(rPageId);
 601     if (!pData)
 602         return nullptr;
 603     return pData->xPage;
 604 }
 605
 606 OUString VerticalTabControl::GetPageText(const OString& rPageId) const
 607 {
 608     VerticalTabPageData* pData = GetPageData(rPageId);
 609     if (!pData)
 610         return OUString();
 611     return pData->pEntry->GetText();
 612 }
 613
 614 void VerticalTabControl::SetPageText(const OString& rPageId, const OUString& rText)
 615 {
 616     VerticalTabPageData* pData = GetPageData(rPageId);
 617     if (!pData)
 618         return;
 619     pData->pEntry->SetText(rText);
 620 }
 621
 622 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */