accessibility/source/standard/vclxaccessibletabpage.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 <accessibility/standard/vclxaccessibletabpage.hxx>
  21 #include <toolkit/helper/externallock.hxx>
  22 #include <toolkit/helper/convert.hxx>
  23 #include <accessibility/helper/characterattributeshelper.hxx>
  24
  25 #include <com/sun/star/accessibility/AccessibleEventId.hpp>
  26 #include <com/sun/star/accessibility/AccessibleRole.hpp>
  27 #include <com/sun/star/accessibility/AccessibleStateType.hpp>
  28 #include <com/sun/star/datatransfer/clipboard/XClipboard.hpp>
  29 #include <com/sun/star/datatransfer/clipboard/XFlushableClipboard.hpp>
  30 #include <cppuhelper/supportsservice.hxx>
  31 #include <unotools/accessiblestatesethelper.hxx>
  32 #include <unotools/accessiblerelationsethelper.hxx>
  33 #include <vcl/svapp.hxx>
  34 #include <vcl/unohelp2.hxx>
  35 #include <vcl/tabctrl.hxx>
  36 #include <vcl/tabpage.hxx>
  37
  38 #include <memory>
  39
  40
  41 using namespace ::com::sun::star::accessibility;
  42 using namespace ::com::sun::star::uno;
  43 using namespace ::com::sun::star::lang;
  44 using namespace ::com::sun::star::beans;
  45 using namespace ::com::sun::star;
  46 using namespace ::comphelper;
  47
  48
  49 // -----------------------------------------------------------------------------
  50 // class VCLXAccessibleTabPage
  51 // -----------------------------------------------------------------------------
  52
  53 VCLXAccessibleTabPage::VCLXAccessibleTabPage( TabControl* pTabControl, sal_uInt16 nPageId )
  54     :AccessibleTextHelper_BASE( new VCLExternalSolarLock() )
  55     ,m_pTabControl( pTabControl )
  56     ,m_nPageId( nPageId )
  57 {
  58     m_pExternalLock = static_cast< VCLExternalSolarLock* >( getExternalLock() );
  59     m_bFocused  = IsFocused();
  60     m_bSelected = IsSelected();
  61     m_sPageText = GetPageText();
  62 }
  63
  64 // -----------------------------------------------------------------------------
  65
  66 VCLXAccessibleTabPage::~VCLXAccessibleTabPage()
  67 {
  68     delete m_pExternalLock;
  69     m_pExternalLock = NULL;
  70 }
  71
  72 // -----------------------------------------------------------------------------
  73
  74 bool VCLXAccessibleTabPage::IsFocused()
  75 {
  76     bool bFocused = false;
  77
  78     if ( m_pTabControl && m_pTabControl->HasFocus() && m_pTabControl->GetCurPageId() == m_nPageId )
  79         bFocused = true;
  80
  81     return bFocused;
  82 }
  83
  84 // -----------------------------------------------------------------------------
  85
  86 bool VCLXAccessibleTabPage::IsSelected()
  87 {
  88     bool bSelected = false;
  89
  90     if ( m_pTabControl && m_pTabControl->GetCurPageId() == m_nPageId )
  91         bSelected = true;
  92
  93     return bSelected;
  94 }
  95
  96 // -----------------------------------------------------------------------------
  97
  98 void VCLXAccessibleTabPage::SetFocused( bool bFocused )
  99 {
 100     if ( m_bFocused != bFocused )
 101     {
 102         Any aOldValue, aNewValue;
 103         if ( m_bFocused )
 104             aOldValue <<= AccessibleStateType::FOCUSED;
 105         else
 106             aNewValue <<= AccessibleStateType::FOCUSED;
 107         m_bFocused = bFocused;
 108         NotifyAccessibleEvent( AccessibleEventId::STATE_CHANGED, aOldValue, aNewValue );
 109     }
 110 }
 111
 112 // -----------------------------------------------------------------------------
 113
 114 void VCLXAccessibleTabPage::SetSelected( bool bSelected )
 115 {
 116     if ( m_bSelected != bSelected )
 117     {
 118         Any aOldValue, aNewValue;
 119         if ( m_bSelected )
 120             aOldValue <<= AccessibleStateType::SELECTED;
 121         else
 122             aNewValue <<= AccessibleStateType::SELECTED;
 123         m_bSelected = bSelected;
 124         NotifyAccessibleEvent( AccessibleEventId::STATE_CHANGED, aOldValue, aNewValue );
 125     }
 126 }
 127
 128 // -----------------------------------------------------------------------------
 129
 130 void VCLXAccessibleTabPage::SetPageText( const OUString& sPageText )
 131 {
 132     Any aOldValue, aNewValue;
 133     if ( OCommonAccessibleText::implInitTextChangedEvent( m_sPageText, sPageText, aOldValue, aNewValue ) )
 134     {
 135         Any aOldName, aNewName;
 136         aOldName <<= m_sPageText;
 137         aNewName <<= sPageText;
 138         m_sPageText = sPageText;
 139         NotifyAccessibleEvent( AccessibleEventId::NAME_CHANGED, aOldName, aNewName );
 140         NotifyAccessibleEvent( AccessibleEventId::TEXT_CHANGED, aOldValue, aNewValue );
 141     }
 142 }
 143
 144 // -----------------------------------------------------------------------------
 145
 146 OUString VCLXAccessibleTabPage::GetPageText()
 147 {
 148     OUString sText;
 149     if ( m_pTabControl )
 150         sText = OutputDevice::GetNonMnemonicString( m_pTabControl->GetPageText( m_nPageId ) );
 151
 152     return sText;
 153 }
 154
 155 // -----------------------------------------------------------------------------
 156
 157 void VCLXAccessibleTabPage::Update( bool bNew )
 158 {
 159     if ( m_pTabControl )
 160     {
 161         TabPage* pTabPage = m_pTabControl->GetTabPage( m_nPageId );
 162         if ( pTabPage )
 163         {
 164             Reference< XAccessible > xChild( pTabPage->GetAccessible( bNew ) );
 165             if ( xChild.is() )
 166             {
 167                 Any aOldValue, aNewValue;
 168                 if ( bNew )
 169                     aNewValue <<= xChild;
 170                 else
 171                     aOldValue <<= xChild;
 172                 NotifyAccessibleEvent( AccessibleEventId::CHILD, aOldValue, aNewValue );
 173             }
 174         }
 175     }
 176 }
 177
 178 // -----------------------------------------------------------------------------
 179
 180 void VCLXAccessibleTabPage::FillAccessibleStateSet( utl::AccessibleStateSetHelper& rStateSet )
 181 {
 182     rStateSet.AddState( AccessibleStateType::ENABLED );
 183     rStateSet.AddState( AccessibleStateType::SENSITIVE );
 184
 185     rStateSet.AddState( AccessibleStateType::FOCUSABLE );
 186
 187     if ( IsFocused() )
 188         rStateSet.AddState( AccessibleStateType::FOCUSED );
 189
 190     rStateSet.AddState( AccessibleStateType::VISIBLE );
 191
 192     rStateSet.AddState( AccessibleStateType::SHOWING );
 193
 194     rStateSet.AddState( AccessibleStateType::SELECTABLE );
 195
 196     if ( IsSelected() )
 197         rStateSet.AddState( AccessibleStateType::SELECTED );
 198 }
 199
 200 // -----------------------------------------------------------------------------
 201 // OCommonAccessibleComponent
 202 // -----------------------------------------------------------------------------
 203
 204 awt::Rectangle VCLXAccessibleTabPage::implGetBounds() throw (RuntimeException)
 205 {
 206     awt::Rectangle aBounds( 0, 0, 0, 0 );
 207
 208     if ( m_pTabControl )
 209         aBounds = AWTRectangle( m_pTabControl->GetTabBounds( m_nPageId ) );
 210
 211     return aBounds;
 212 }
 213
 214 // -----------------------------------------------------------------------------
 215 // OCommonAccessibleText
 216 // -----------------------------------------------------------------------------
 217
 218 OUString VCLXAccessibleTabPage::implGetText()
 219 {
 220     return GetPageText();
 221 }
 222
 223 // -----------------------------------------------------------------------------
 224
 225 lang::Locale VCLXAccessibleTabPage::implGetLocale()
 226 {
 227     return Application::GetSettings().GetLanguageTag().getLocale();
 228 }
 229
 230 // -----------------------------------------------------------------------------
 231
 232 void VCLXAccessibleTabPage::implGetSelection( sal_Int32& nStartIndex, sal_Int32& nEndIndex )
 233 {
 234     nStartIndex = 0;
 235     nEndIndex = 0;
 236 }
 237
 238 // -----------------------------------------------------------------------------
 239 // XInterface
 240 // -----------------------------------------------------------------------------
 241
 242 IMPLEMENT_FORWARD_XINTERFACE2( VCLXAccessibleTabPage, AccessibleTextHelper_BASE, VCLXAccessibleTabPage_BASE )
 243
 244 // -----------------------------------------------------------------------------
 245 // XTypeProvider
 246 // -----------------------------------------------------------------------------
 247
 248 IMPLEMENT_FORWARD_XTYPEPROVIDER2( VCLXAccessibleTabPage, AccessibleTextHelper_BASE, VCLXAccessibleTabPage_BASE )
 249
 250 // -----------------------------------------------------------------------------
 251 // XComponent
 252 // -----------------------------------------------------------------------------
 253
 254 void VCLXAccessibleTabPage::disposing()
 255 {
 256     AccessibleTextHelper_BASE::disposing();
 257
 258     m_pTabControl = NULL;
 259     m_sPageText = OUString();
 260 }
 261
 262 // -----------------------------------------------------------------------------
 263 // XServiceInfo
 264 // -----------------------------------------------------------------------------
 265
 266 OUString VCLXAccessibleTabPage::getImplementationName() throw (RuntimeException)
 267 {
 268     return OUString( "com.sun.star.comp.toolkit.AccessibleTabPage" );
 269 }
 270
 271 // -----------------------------------------------------------------------------
 272
 273 sal_Bool VCLXAccessibleTabPage::supportsService( const OUString& rServiceName ) throw (RuntimeException)
 274 {
 275     return cppu::supportsService(this, rServiceName);
 276 }
 277
 278 // -----------------------------------------------------------------------------
 279
 280 Sequence< OUString > VCLXAccessibleTabPage::getSupportedServiceNames() throw (RuntimeException)
 281 {
 282     Sequence< OUString > aNames(1);
 283     aNames[0] = "com.sun.star.awt.AccessibleTabPage";
 284     return aNames;
 285 }
 286
 287 // -----------------------------------------------------------------------------
 288 // XAccessible
 289 // -----------------------------------------------------------------------------
 290
 291 Reference< XAccessibleContext > VCLXAccessibleTabPage::getAccessibleContext(  ) throw (RuntimeException)
 292 {
 293     OExternalLockGuard aGuard( this );
 294
 295     return this;
 296 }
 297
 298 // -----------------------------------------------------------------------------
 299 // XAccessibleContext
 300 // -----------------------------------------------------------------------------
 301
 302 sal_Int32 VCLXAccessibleTabPage::getAccessibleChildCount() throw (RuntimeException)
 303 {
 304     OExternalLockGuard aGuard( this );
 305
 306     sal_Int32 nCount = 0;
 307     if ( m_pTabControl )
 308     {
 309         TabPage* pTabPage = m_pTabControl->GetTabPage( m_nPageId );
 310         if ( pTabPage && pTabPage->IsVisible() )
 311             nCount = 1;
 312     }
 313
 314     return nCount;
 315 }
 316
 317 // -----------------------------------------------------------------------------
 318
 319 Reference< XAccessible > VCLXAccessibleTabPage::getAccessibleChild( sal_Int32 i ) throw (IndexOutOfBoundsException, RuntimeException)
 320 {
 321     OExternalLockGuard aGuard( this );
 322
 323     if ( i < 0 || i >= getAccessibleChildCount() )
 324         throw IndexOutOfBoundsException();
 325
 326     Reference< XAccessible > xChild;
 327     if ( m_pTabControl )
 328     {
 329         TabPage* pTabPage = m_pTabControl->GetTabPage( m_nPageId );
 330         if ( pTabPage && pTabPage->IsVisible() )
 331             xChild = pTabPage->GetAccessible();
 332     }
 333
 334     return xChild;
 335 }
 336
 337 // -----------------------------------------------------------------------------
 338
 339 Reference< XAccessible > VCLXAccessibleTabPage::getAccessibleParent(  ) throw (RuntimeException)
 340 {
 341     OExternalLockGuard aGuard( this );
 342
 343     Reference< XAccessible > xParent;
 344     if ( m_pTabControl )
 345         xParent = m_pTabControl->GetAccessible();
 346
 347     return xParent;
 348 }
 349
 350 // -----------------------------------------------------------------------------
 351
 352 sal_Int32 VCLXAccessibleTabPage::getAccessibleIndexInParent(  ) throw (RuntimeException)
 353 {
 354     OExternalLockGuard aGuard( this );
 355
 356     sal_Int32 nIndexInParent = -1;
 357     if ( m_pTabControl )
 358         nIndexInParent = m_pTabControl->GetPagePos( m_nPageId );
 359
 360     return nIndexInParent;
 361 }
 362
 363 // -----------------------------------------------------------------------------
 364
 365 sal_Int16 VCLXAccessibleTabPage::getAccessibleRole(  ) throw (RuntimeException)
 366 {
 367     OExternalLockGuard aGuard( this );
 368
 369     return AccessibleRole::PAGE_TAB;
 370 }
 371
 372 // -----------------------------------------------------------------------------
 373
 374 OUString VCLXAccessibleTabPage::getAccessibleDescription(    ) throw (RuntimeException)
 375 {
 376     OExternalLockGuard aGuard( this );
 377
 378     OUString sDescription;
 379     if ( m_pTabControl )
 380         sDescription = m_pTabControl->GetHelpText( m_nPageId );
 381
 382     return sDescription;
 383 }
 384
 385 // -----------------------------------------------------------------------------
 386
 387 OUString VCLXAccessibleTabPage::getAccessibleName(  ) throw (RuntimeException)
 388 {
 389     OExternalLockGuard aGuard( this );
 390
 391     return GetPageText();
 392 }
 393
 394 // -----------------------------------------------------------------------------
 395
 396 Reference< XAccessibleRelationSet > VCLXAccessibleTabPage::getAccessibleRelationSet(  ) throw (RuntimeException)
 397 {
 398     OExternalLockGuard aGuard( this );
 399
 400     utl::AccessibleRelationSetHelper* pRelationSetHelper = new utl::AccessibleRelationSetHelper;
 401     Reference< XAccessibleRelationSet > xSet = pRelationSetHelper;
 402     return xSet;
 403 }
 404
 405 // -----------------------------------------------------------------------------
 406
 407 Reference< XAccessibleStateSet > VCLXAccessibleTabPage::getAccessibleStateSet(  ) throw (RuntimeException)
 408 {
 409     OExternalLockGuard aGuard( this );
 410
 411     utl::AccessibleStateSetHelper* pStateSetHelper = new utl::AccessibleStateSetHelper;
 412     Reference< XAccessibleStateSet > xSet = pStateSetHelper;
 413
 414     if ( !rBHelper.bDisposed && !rBHelper.bInDispose )
 415     {
 416         FillAccessibleStateSet( *pStateSetHelper );
 417     }
 418     else
 419     {
 420         pStateSetHelper->AddState( AccessibleStateType::DEFUNC );
 421     }
 422
 423     return xSet;
 424 }
 425
 426 // -----------------------------------------------------------------------------
 427
 428 Locale VCLXAccessibleTabPage::getLocale(  ) throw (IllegalAccessibleComponentStateException, RuntimeException)
 429 {
 430     OExternalLockGuard aGuard( this );
 431
 432     return Application::GetSettings().GetLanguageTag().getLocale();
 433 }
 434
 435 // -----------------------------------------------------------------------------
 436 // XAccessibleComponent
 437 // -----------------------------------------------------------------------------
 438
 439 Reference< XAccessible > VCLXAccessibleTabPage::getAccessibleAtPoint( const awt::Point& rPoint ) throw (RuntimeException)
 440 {
 441     OExternalLockGuard aGuard( this );
 442
 443     Reference< XAccessible > xChild;
 444     for ( sal_uInt32 i = 0, nCount = getAccessibleChildCount(); i < nCount; ++i )
 445     {
 446         Reference< XAccessible > xAcc = getAccessibleChild( i );
 447         if ( xAcc.is() )
 448         {
 449             Reference< XAccessibleComponent > xComp( xAcc->getAccessibleContext(), UNO_QUERY );
 450             if ( xComp.is() )
 451             {
 452                 Rectangle aRect = VCLRectangle( xComp->getBounds() );
 453                 Point aPos = VCLPoint( rPoint );
 454                 if ( aRect.IsInside( aPos ) )
 455                 {
 456                     xChild = xAcc;
 457                     break;
 458                 }
 459             }
 460         }
 461     }
 462
 463     return xChild;
 464 }
 465
 466 // -----------------------------------------------------------------------------
 467
 468 void VCLXAccessibleTabPage::grabFocus(  ) throw (RuntimeException)
 469 {
 470     OExternalLockGuard aGuard( this );
 471
 472     if ( m_pTabControl )
 473     {
 474         m_pTabControl->SelectTabPage( m_nPageId );
 475         m_pTabControl->GrabFocus();
 476     }
 477 }
 478
 479 // -----------------------------------------------------------------------------
 480
 481 sal_Int32 VCLXAccessibleTabPage::getForeground( ) throw (RuntimeException)
 482 {
 483     OExternalLockGuard aGuard( this );
 484
 485     sal_Int32 nColor = 0;
 486     Reference< XAccessible > xParent = getAccessibleParent();
 487     if ( xParent.is() )
 488     {
 489         Reference< XAccessibleComponent > xParentComp( xParent->getAccessibleContext(), UNO_QUERY );
 490         if ( xParentComp.is() )
 491             nColor = xParentComp->getForeground();
 492     }
 493
 494     return nColor;
 495 }
 496
 497 // -----------------------------------------------------------------------------
 498
 499 sal_Int32 VCLXAccessibleTabPage::getBackground(  ) throw (RuntimeException)
 500 {
 501     OExternalLockGuard aGuard( this );
 502
 503     sal_Int32 nColor = 0;
 504     Reference< XAccessible > xParent = getAccessibleParent();
 505     if ( xParent.is() )
 506     {
 507         Reference< XAccessibleComponent > xParentComp( xParent->getAccessibleContext(), UNO_QUERY );
 508         if ( xParentComp.is() )
 509             nColor = xParentComp->getBackground();
 510     }
 511
 512     return nColor;
 513 }
 514
 515 // -----------------------------------------------------------------------------
 516 // XAccessibleExtendedComponent
 517 // -----------------------------------------------------------------------------
 518
 519 Reference< awt::XFont > VCLXAccessibleTabPage::getFont(  ) throw (RuntimeException)
 520 {
 521     OExternalLockGuard aGuard( this );
 522
 523     Reference< awt::XFont > xFont;
 524     Reference< XAccessible > xParent = getAccessibleParent();
 525     if ( xParent.is() )
 526     {
 527         Reference< XAccessibleExtendedComponent > xParentComp( xParent->getAccessibleContext(), UNO_QUERY );
 528         if ( xParentComp.is() )
 529             xFont = xParentComp->getFont();
 530     }
 531
 532     return xFont;
 533 }
 534
 535 // -----------------------------------------------------------------------------
 536
 537 OUString VCLXAccessibleTabPage::getTitledBorderText(  ) throw (RuntimeException)
 538 {
 539     OExternalLockGuard aGuard( this );
 540
 541     return OUString();
 542 }
 543
 544 // -----------------------------------------------------------------------------
 545
 546 OUString VCLXAccessibleTabPage::getToolTipText(  ) throw (RuntimeException)
 547 {
 548     OExternalLockGuard aGuard( this );
 549
 550     return OUString();
 551 }
 552
 553 // -----------------------------------------------------------------------------
 554 // XAccessibleText
 555 // -----------------------------------------------------------------------------
 556
 557 sal_Int32 VCLXAccessibleTabPage::getCaretPosition() throw (RuntimeException)
 558 {
 559     OExternalLockGuard aGuard( this );
 560
 561     return -1;
 562 }
 563
 564 // -----------------------------------------------------------------------------
 565
 566 sal_Bool VCLXAccessibleTabPage::setCaretPosition( sal_Int32 nIndex ) throw (IndexOutOfBoundsException, RuntimeException)
 567 {
 568     OExternalLockGuard aGuard( this );
 569
 570     if ( !implIsValidRange( nIndex, nIndex, implGetText().getLength() ) )
 571         throw IndexOutOfBoundsException();
 572
 573     return sal_False;
 574 }
 575
 576 // -----------------------------------------------------------------------------
 577
 578 Sequence< PropertyValue > VCLXAccessibleTabPage::getCharacterAttributes( sal_Int32 nIndex, const Sequence< OUString >& aRequestedAttributes ) throw (IndexOutOfBoundsException, RuntimeException)
 579 {
 580     OExternalLockGuard aGuard( this );
 581
 582     Sequence< PropertyValue > aValues;
 583     OUString sText( implGetText() );
 584
 585     if ( !implIsValidIndex( nIndex, sText.getLength() ) )
 586         throw IndexOutOfBoundsException();
 587
 588     if ( m_pTabControl )
 589     {
 590         Font aFont = m_pTabControl->GetFont();
 591         sal_Int32 nBackColor = getBackground();
 592         sal_Int32 nColor = getForeground();
 593         ::std::auto_ptr< CharacterAttributesHelper > pHelper( new CharacterAttributesHelper( aFont, nBackColor, nColor ) );
 594         aValues = pHelper->GetCharacterAttributes( aRequestedAttributes );
 595     }
 596
 597     return aValues;
 598 }
 599
 600 // -----------------------------------------------------------------------------
 601
 602 awt::Rectangle VCLXAccessibleTabPage::getCharacterBounds( sal_Int32 nIndex ) throw (IndexOutOfBoundsException, RuntimeException)
 603 {
 604     OExternalLockGuard aGuard( this );
 605
 606     if ( !implIsValidIndex( nIndex, implGetText().getLength() ) )
 607         throw IndexOutOfBoundsException();
 608
 609     awt::Rectangle aBounds( 0, 0, 0, 0 );
 610     if ( m_pTabControl )
 611     {
 612         Rectangle aPageRect = m_pTabControl->GetTabBounds( m_nPageId );
 613         Rectangle aCharRect = m_pTabControl->GetCharacterBounds( m_nPageId, nIndex );
 614         aCharRect.Move( -aPageRect.Left(), -aPageRect.Top() );
 615         aBounds = AWTRectangle( aCharRect );
 616     }
 617
 618     return aBounds;
 619 }
 620
 621 // -----------------------------------------------------------------------------
 622
 623 sal_Int32 VCLXAccessibleTabPage::getIndexAtPoint( const awt::Point& aPoint ) throw (RuntimeException)
 624 {
 625     OExternalLockGuard aGuard( this );
 626
 627     sal_Int32 nIndex = -1;
 628     if ( m_pTabControl )
 629     {
 630         sal_uInt16 nPageId = 0;
 631         Rectangle aPageRect = m_pTabControl->GetTabBounds( m_nPageId );
 632         Point aPnt( VCLPoint( aPoint ) );
 633         aPnt += aPageRect.TopLeft();
 634         sal_Int32 nI = m_pTabControl->GetIndexForPoint( aPnt, nPageId );
 635         if ( nI != -1 && m_nPageId == nPageId )
 636             nIndex = nI;
 637     }
 638
 639     return nIndex;
 640 }
 641
 642 // -----------------------------------------------------------------------------
 643
 644 sal_Bool VCLXAccessibleTabPage::setSelection( sal_Int32 nStartIndex, sal_Int32 nEndIndex ) throw (IndexOutOfBoundsException, RuntimeException)
 645 {
 646     OExternalLockGuard aGuard( this );
 647
 648     if ( !implIsValidRange( nStartIndex, nEndIndex, implGetText().getLength() ) )
 649         throw IndexOutOfBoundsException();
 650
 651     return sal_False;
 652 }
 653
 654 // -----------------------------------------------------------------------------
 655
 656 sal_Bool VCLXAccessibleTabPage::copyText( sal_Int32 nStartIndex, sal_Int32 nEndIndex ) throw (IndexOutOfBoundsException, RuntimeException)
 657 {
 658     OExternalLockGuard aGuard( this );
 659
 660     sal_Bool bReturn = sal_False;
 661
 662     if ( m_pTabControl )
 663     {
 664         Reference< datatransfer::clipboard::XClipboard > xClipboard = m_pTabControl->GetClipboard();
 665         if ( xClipboard.is() )
 666         {
 667             OUString sText( getTextRange( nStartIndex, nEndIndex ) );
 668
 669             ::vcl::unohelper::TextDataObject* pDataObj = new ::vcl::unohelper::TextDataObject( sText );
 670             const sal_uInt32 nRef = Application::ReleaseSolarMutex();
 671             xClipboard->setContents( pDataObj, NULL );
 672
 673             Reference< datatransfer::clipboard::XFlushableClipboard > xFlushableClipboard( xClipboard, uno::UNO_QUERY );
 674             if( xFlushableClipboard.is() )
 675                 xFlushableClipboard->flushClipboard();
 676
 677             Application::AcquireSolarMutex( nRef );
 678
 679             bReturn = sal_True;
 680         }
 681     }
 682
 683     return bReturn;
 684 }
 685
 686 // -----------------------------------------------------------------------------
 687
 688 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */