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