svx/source/accessibility/AccessibleContextBase.cxx

   1 /*************************************************************************
   2  *
   3  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4  *
   5  * Copyright 2008 by Sun Microsystems, Inc.
   6  *
   7  * OpenOffice.org - a multi-platform office productivity suite
   8  *
   9  * $RCSfile: AccessibleContextBase.cxx,v $
  10  * $Revision: 1.28.144.1 $
  11  *
  12  * This file is part of OpenOffice.org.
  13  *
  14  * OpenOffice.org is free software: you can redistribute it and/or modify
  15  * it under the terms of the GNU Lesser General Public License version 3
  16  * only, as published by the Free Software Foundation.
  17  *
  18  * OpenOffice.org is distributed in the hope that it will be useful,
  19  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  20  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  21  * GNU Lesser General Public License version 3 for more details
  22  * (a copy is included in the LICENSE file that accompanied this code).
  23  *
  24  * You should have received a copy of the GNU Lesser General Public License
  25  * version 3 along with OpenOffice.org.  If not, see
  26  * <http://www.openoffice.org/license.html>
  27  * for a copy of the LGPLv3 License.
  28  *
  29  ************************************************************************/
  30
  31 // MARKER(update_precomp.py): autogen include statement, do not remove
  32 #include "precompiled_svx.hxx"
  33
  34
  35 #include <svx/AccessibleContextBase.hxx>
  36 #include <com/sun/star/accessibility/AccessibleRole.hpp>
  37
  38
  39 #include <com/sun/star/beans/PropertyChangeEvent.hpp>
  40 #include <com/sun/star/accessibility/XAccessibleEventListener.hpp>
  41 #include <com/sun/star/accessibility/AccessibleStateType.hpp>
  42 #include <com/sun/star/accessibility/AccessibleRelationType.hpp>
  43 #include <unotools/accessiblestatesethelper.hxx>
  44 #include <unotools/accessiblerelationsethelper.hxx>
  45 #include <comphelper/accessibleeventnotifier.hxx>
  46 #include <rtl/uuid.h>
  47
  48 #include <vos/mutex.hxx>
  49 #include <vcl/svapp.hxx>
  50
  51 #include <utility>
  52
  53 using namespace ::rtl;
  54 using namespace ::com::sun::star;
  55 using namespace ::com::sun::star::accessibility;
  56 using ::com::sun::star::uno::Reference;
  57
  58 namespace accessibility {
  59
  60 //=====  internal  ============================================================
  61
  62 // Define a shortcut for the somewhot longish base class name.
  63 typedef ::cppu::WeakComponentImplHelper4<
  64     ::com::sun::star::accessibility::XAccessible,
  65     ::com::sun::star::accessibility::XAccessibleContext,
  66     ::com::sun::star::accessibility::XAccessibleEventBroadcaster,
  67     ::com::sun::star::lang::XServiceInfo> BaseClass;
  68
  69 AccessibleContextBase::AccessibleContextBase (
  70         const uno::Reference<XAccessible>& rxParent,
  71         const sal_Int16 aRole)
  72     :   BaseClass (MutexOwner::maMutex),
  73         mxStateSet (NULL),
  74         mxRelationSet (NULL),
  75         mxParent(rxParent),
  76         msDescription(),
  77         meDescriptionOrigin(NotSet),
  78         msName(),
  79         meNameOrigin(NotSet),
  80         mnClientId(0),
  81         maRole(aRole)
  82 {
  83     // Create the state set.
  84     ::utl::AccessibleStateSetHelper* pStateSet  = new ::utl::AccessibleStateSetHelper ();
  85     mxStateSet = pStateSet;
  86
  87     // Set some states.  Don't use the SetState method because no events
  88     // shall be broadcastet (that is not yet initialized anyway).
  89     if (pStateSet != NULL)
  90     {
  91         pStateSet->AddState (AccessibleStateType::ENABLED);
  92         pStateSet->AddState (AccessibleStateType::SENSITIVE);
  93         pStateSet->AddState (AccessibleStateType::SHOWING);
  94         pStateSet->AddState (AccessibleStateType::VISIBLE);
  95         pStateSet->AddState (AccessibleStateType::FOCUSABLE);
  96         pStateSet->AddState (AccessibleStateType::SELECTABLE);
  97     }
  98
  99     // Create the relation set.
 100     ::utl::AccessibleRelationSetHelper* pRelationSet = new ::utl::AccessibleRelationSetHelper ();
 101     mxRelationSet = pRelationSet;
 102 }
 103
 104
 105
 106
 107 AccessibleContextBase::~AccessibleContextBase(void)
 108 {
 109 }
 110
 111
 112
 113
 114 sal_Bool AccessibleContextBase::SetState (sal_Int16 aState)
 115 {
 116     ::osl::ClearableMutexGuard aGuard (maMutex);
 117     ::utl::AccessibleStateSetHelper* pStateSet =
 118         static_cast< ::utl::AccessibleStateSetHelper*>(mxStateSet.get());
 119     if ((pStateSet != NULL) && !pStateSet->contains(aState))
 120     {
 121         pStateSet->AddState (aState);
 122         // Clear the mutex guard so that it is not locked during calls to
 123         // listeners.
 124         aGuard.clear();
 125
 126         // Send event for all states except the DEFUNC state.
 127         if (aState != AccessibleStateType::DEFUNC)
 128         {
 129             uno::Any aNewValue;
 130             aNewValue <<= aState;
 131             CommitChange(
 132                 AccessibleEventId::STATE_CHANGED,
 133                 aNewValue,
 134                 uno::Any());
 135         }
 136         return sal_True;
 137     }
 138     else
 139         return sal_False;
 140 }
 141
 142
 143
 144
 145 sal_Bool AccessibleContextBase::ResetState (sal_Int16 aState)
 146 {
 147     ::osl::ClearableMutexGuard aGuard (maMutex);
 148     ::utl::AccessibleStateSetHelper* pStateSet =
 149         static_cast< ::utl::AccessibleStateSetHelper*>(mxStateSet.get());
 150     if ((pStateSet != NULL) && pStateSet->contains(aState))
 151     {
 152         pStateSet->RemoveState (aState);
 153         // Clear the mutex guard so that it is not locked during calls to listeners.
 154         aGuard.clear();
 155
 156         uno::Any aOldValue;
 157         aOldValue <<= aState;
 158         CommitChange(
 159             AccessibleEventId::STATE_CHANGED,
 160             uno::Any(),
 161             aOldValue);
 162         return sal_True;
 163     }
 164     else
 165         return sal_False;
 166 }
 167
 168
 169
 170
 171 sal_Bool AccessibleContextBase::GetState (sal_Int16 aState)
 172 {
 173     ::osl::MutexGuard aGuard (maMutex);
 174     ::utl::AccessibleStateSetHelper* pStateSet =
 175         static_cast< ::utl::AccessibleStateSetHelper*>(mxStateSet.get());
 176     if (pStateSet != NULL)
 177         return pStateSet->contains(aState);
 178     else
 179         // If there is no state set then return false as a default value.
 180         return sal_False;
 181 }
 182
 183
 184
 185
 186 void AccessibleContextBase::SetRelationSet (
 187     const uno::Reference<XAccessibleRelationSet>& rxNewRelationSet)
 188     throw (::com::sun::star::uno::RuntimeException)
 189 {
 190     OSL_TRACE ("setting relation set");
 191
 192     // Try to emit some meaningfull events indicating differing relations in
 193     // both sets.
 194     typedef std::pair<short int,short int> RD;
 195     const RD aRelationDescriptors[] = {
 196         RD(AccessibleRelationType::CONTROLLED_BY, AccessibleEventId::CONTROLLED_BY_RELATION_CHANGED),
 197         RD(AccessibleRelationType::CONTROLLER_FOR, AccessibleEventId::CONTROLLER_FOR_RELATION_CHANGED),
 198         RD(AccessibleRelationType::LABELED_BY, AccessibleEventId::LABELED_BY_RELATION_CHANGED),
 199         RD(AccessibleRelationType::LABEL_FOR, AccessibleEventId::LABEL_FOR_RELATION_CHANGED),
 200         RD(AccessibleRelationType::MEMBER_OF, AccessibleEventId::MEMBER_OF_RELATION_CHANGED),
 201         RD(AccessibleRelationType::INVALID, -1),
 202     };
 203     for (int i=0; aRelationDescriptors[i].first!=AccessibleRelationType::INVALID; i++)
 204         if (mxRelationSet->containsRelation(aRelationDescriptors[i].first)
 205         != rxNewRelationSet->containsRelation(aRelationDescriptors[i].first))
 206         CommitChange (aRelationDescriptors[i].second, uno::Any(), uno::Any());
 207
 208     mxRelationSet = rxNewRelationSet;
 209 }
 210
 211
 212
 213
 214 //=====  XAccessible  =========================================================
 215
 216 uno::Reference< XAccessibleContext> SAL_CALL
 217     AccessibleContextBase::getAccessibleContext (void)
 218     throw (uno::RuntimeException)
 219 {
 220     ThrowIfDisposed ();
 221     return this;
 222 }
 223
 224
 225
 226
 227 //=====  XAccessibleContext  ==================================================
 228
 229 /** No children.
 230 */
 231 sal_Int32 SAL_CALL
 232        AccessibleContextBase::getAccessibleChildCount (void)
 233     throw (uno::RuntimeException)
 234 {
 235     ThrowIfDisposed ();
 236     return 0;
 237 }
 238
 239
 240
 241
 242 /** Forward the request to the shape.  Return the requested shape or throw
 243     an exception for a wrong index.
 244 */
 245 uno::Reference<XAccessible> SAL_CALL
 246     AccessibleContextBase::getAccessibleChild (sal_Int32 nIndex)
 247     throw (::com::sun::star::lang::IndexOutOfBoundsException, ::com::sun::star::uno::RuntimeException)
 248 {
 249     ThrowIfDisposed ();
 250     throw lang::IndexOutOfBoundsException (
 251         ::rtl::OUString::createFromAscii ("no child with index " + nIndex),
 252         NULL);
 253 }
 254
 255
 256
 257
 258 uno::Reference<XAccessible> SAL_CALL
 259        AccessibleContextBase::getAccessibleParent (void)
 260     throw (::com::sun::star::uno::RuntimeException)
 261 {
 262     ThrowIfDisposed ();
 263     return mxParent;
 264 }
 265
 266
 267
 268
 269 sal_Int32 SAL_CALL
 270        AccessibleContextBase::getAccessibleIndexInParent (void)
 271     throw (::com::sun::star::uno::RuntimeException)
 272 {
 273     ThrowIfDisposed ();
 274     //  Use a simple but slow solution for now.  Optimize later.
 275
 276     //  Iterate over all the parent's children and search for this object.
 277     if (mxParent.is())
 278     {
 279         uno::Reference<XAccessibleContext> xParentContext (
 280             mxParent->getAccessibleContext());
 281         if (xParentContext.is())
 282         {
 283             sal_Int32 nChildCount = xParentContext->getAccessibleChildCount();
 284             for (sal_Int32 i=0; i<nChildCount; i++)
 285             {
 286                 uno::Reference<XAccessible> xChild (xParentContext->getAccessibleChild (i));
 287                 if (xChild.is())
 288                 {
 289                     uno::Reference<XAccessibleContext> xChildContext = xChild->getAccessibleContext();
 290                     if (xChildContext == (XAccessibleContext*)this)
 291                         return i;
 292                 }
 293             }
 294         }
 295    }
 296
 297    //   Return -1 to indicate that this object's parent does not know about the
 298    //   object.
 299    return -1;
 300 }
 301
 302
 303
 304
 305 sal_Int16 SAL_CALL
 306     AccessibleContextBase::getAccessibleRole (void)
 307     throw (::com::sun::star::uno::RuntimeException)
 308 {
 309     ThrowIfDisposed ();
 310     return maRole;
 311 }
 312
 313
 314
 315
 316 ::rtl::OUString SAL_CALL
 317        AccessibleContextBase::getAccessibleDescription (void)
 318     throw (::com::sun::star::uno::RuntimeException)
 319 {
 320     ThrowIfDisposed ();
 321
 322     return msDescription;
 323 }
 324
 325
 326
 327
 328 OUString SAL_CALL
 329        AccessibleContextBase::getAccessibleName (void)
 330     throw (::com::sun::star::uno::RuntimeException)
 331 {
 332     ThrowIfDisposed ();
 333
 334     if (meNameOrigin == NotSet)
 335     {
 336         // Do not send an event because this is the first time it has been
 337         // requested.
 338         msName = CreateAccessibleName();
 339         meNameOrigin = AutomaticallyCreated;
 340     }
 341
 342     return msName;
 343 }
 344
 345
 346
 347
 348 /**     Return a copy of the relation set.
 349 */
 350 uno::Reference<XAccessibleRelationSet> SAL_CALL
 351        AccessibleContextBase::getAccessibleRelationSet (void)
 352     throw (::com::sun::star::uno::RuntimeException)
 353 {
 354     ThrowIfDisposed ();
 355
 356     // Create a copy of the relation set and return it.
 357     ::utl::AccessibleRelationSetHelper* pRelationSet =
 358         static_cast< ::utl::AccessibleRelationSetHelper*>(mxRelationSet.get());
 359     if (pRelationSet != NULL)
 360     {
 361         return uno::Reference<XAccessibleRelationSet> (
 362             new ::utl::AccessibleRelationSetHelper (*pRelationSet));
 363     }
 364     else
 365         return uno::Reference<XAccessibleRelationSet>(NULL);
 366 }
 367
 368
 369
 370
 371 /**     Return a copy of the state set.
 372     Possible states are:
 373         ENABLED
 374         SHOWING
 375         VISIBLE
 376 */
 377 uno::Reference<XAccessibleStateSet> SAL_CALL
 378     AccessibleContextBase::getAccessibleStateSet (void)
 379     throw (::com::sun::star::uno::RuntimeException)
 380 {
 381     ::utl::AccessibleStateSetHelper* pStateSet = NULL;
 382
 383     if (rBHelper.bDisposed)
 384     {
 385         // We are already disposed!
 386         // Create a new state set that has only set the DEFUNC state.
 387         pStateSet = new ::utl::AccessibleStateSetHelper ();
 388         if (pStateSet != NULL)
 389             pStateSet->AddState (AccessibleStateType::DEFUNC);
 390     }
 391     else
 392     {
 393         // Create a copy of the state set and return it.
 394         pStateSet = static_cast< ::utl::AccessibleStateSetHelper*>(mxStateSet.get());
 395
 396         // Merge current focused state from edit engine.
 397 #if 0
 398         if (aState == AccessibleStateType::FOCUSED
 399             && pStateSet != NULL
 400             && mpText != NULL)
 401         {
 402             if (mpText->GetFocusedState ())
 403                 pStateSet->AddState (aState);
 404             else
 405                 pStateSet->RemoveState (aState);
 406         }
 407 #endif
 408         if (pStateSet != NULL)
 409             pStateSet = new ::utl::AccessibleStateSetHelper (*pStateSet);
 410     }
 411
 412     return uno::Reference<XAccessibleStateSet>(pStateSet);
 413 }
 414
 415
 416
 417
 418 lang::Locale SAL_CALL
 419        AccessibleContextBase::getLocale (void)
 420     throw (IllegalAccessibleComponentStateException,
 421         ::com::sun::star::uno::RuntimeException)
 422 {
 423     ThrowIfDisposed ();
 424     // Delegate request to parent.
 425     if (mxParent.is())
 426     {
 427         uno::Reference<XAccessibleContext> xParentContext (
 428             mxParent->getAccessibleContext());
 429         if (xParentContext.is())
 430             return xParentContext->getLocale ();
 431     }
 432
 433     //  No locale and no parent.  Therefore throw exception to indicate this
 434     //  cluelessness.
 435     throw IllegalAccessibleComponentStateException ();
 436 }
 437
 438
 439
 440
 441 //=====  XAccessibleEventListener  ============================================
 442
 443 void SAL_CALL
 444     AccessibleContextBase::addEventListener (
 445         const uno::Reference<XAccessibleEventListener >& rxListener)
 446     throw (uno::RuntimeException)
 447 {
 448     if (rxListener.is())
 449     {
 450         if (rBHelper.bDisposed || rBHelper.bInDispose)
 451         {
 452             uno::Reference<uno::XInterface> x ((lang::XComponent *)this, uno::UNO_QUERY);
 453             rxListener->disposing (lang::EventObject (x));
 454         }
 455         else
 456         {
 457             if (!mnClientId)
 458                 mnClientId = comphelper::AccessibleEventNotifier::registerClient( );
 459             comphelper::AccessibleEventNotifier::addEventListener( mnClientId, rxListener );
 460         }
 461     }
 462 }
 463
 464
 465
 466
 467 void SAL_CALL
 468     AccessibleContextBase::removeEventListener (
 469         const uno::Reference<XAccessibleEventListener >& rxListener )
 470     throw (uno::RuntimeException)
 471 {
 472     ThrowIfDisposed ();
 473     if (rxListener.is())
 474     {
 475         sal_Int32 nListenerCount = comphelper::AccessibleEventNotifier::removeEventListener( mnClientId, rxListener );
 476         if ( !nListenerCount )
 477         {
 478             // no listeners anymore
 479             // -> revoke ourself. This may lead to the notifier thread dying (if we were the last client),
 480             // and at least to us not firing any events anymore, in case somebody calls
 481             // NotifyAccessibleEvent, again
 482             comphelper::AccessibleEventNotifier::revokeClient( mnClientId );
 483             mnClientId = 0;
 484         }
 485     }
 486 }
 487
 488
 489
 490
 491 //=====  XServiceInfo  ========================================================
 492
 493 ::rtl::OUString SAL_CALL
 494        AccessibleContextBase::getImplementationName (void)
 495     throw (::com::sun::star::uno::RuntimeException)
 496 {
 497     ThrowIfDisposed ();
 498     return OUString(RTL_CONSTASCII_USTRINGPARAM("AccessibleContextBase"));
 499 }
 500
 501
 502
 503
 504 sal_Bool SAL_CALL
 505      AccessibleContextBase::supportsService (const OUString& sServiceName)
 506     throw (::com::sun::star::uno::RuntimeException)
 507 {
 508     ThrowIfDisposed ();
 509     //  Iterate over all supported service names and return true if on of them
 510     //  matches the given name.
 511     uno::Sequence< ::rtl::OUString> aSupportedServices (
 512         getSupportedServiceNames ());
 513     for (int i=0; i<aSupportedServices.getLength(); i++)
 514         if (sServiceName == aSupportedServices[i])
 515             return sal_True;
 516     return sal_False;
 517 }
 518
 519
 520
 521
 522 uno::Sequence< ::rtl::OUString> SAL_CALL
 523        AccessibleContextBase::getSupportedServiceNames (void)
 524     throw (::com::sun::star::uno::RuntimeException)
 525 {
 526     ThrowIfDisposed ();
 527     static const OUString sServiceNames[2] = {
 528         OUString(RTL_CONSTASCII_USTRINGPARAM(
 529             "com.sun.star.accessibility.Accessible")),
 530         OUString(RTL_CONSTASCII_USTRINGPARAM(
 531             "com.sun.star.accessibility.AccessibleContext"))
 532     };
 533     return uno::Sequence<OUString> (sServiceNames, 2);
 534 }
 535
 536
 537
 538
 539 //=====  XTypeProvider  =======================================================
 540
 541 uno::Sequence< ::com::sun::star::uno::Type>
 542     AccessibleContextBase::getTypes (void)
 543     throw (::com::sun::star::uno::RuntimeException)
 544 {
 545     ThrowIfDisposed ();
 546
 547     // This class supports no interfaces on its own.  Just return those
 548     // supported by the base class.
 549     return BaseClass::getTypes();
 550 }
 551
 552
 553
 554
 555 uno::Sequence<sal_Int8> SAL_CALL
 556     AccessibleContextBase::getImplementationId (void)
 557     throw (::com::sun::star::uno::RuntimeException)
 558 {
 559     ThrowIfDisposed ();
 560     static uno::Sequence<sal_Int8> aId;
 561     if (aId.getLength() == 0)
 562     {
 563         ::osl::MutexGuard aGuard (maMutex);
 564         aId.realloc (16);
 565         rtl_createUuid ((sal_uInt8 *)aId.getArray(), 0, sal_True);
 566     }
 567     return aId;
 568 }
 569
 570
 571
 572
 573 //=====  internal  ============================================================
 574
 575 void SAL_CALL AccessibleContextBase::disposing (void)
 576 {
 577     SetState (AccessibleStateType::DEFUNC);
 578
 579     ::osl::MutexGuard aGuard (maMutex);
 580
 581     // Send a disposing to all listeners.
 582     if ( mnClientId )
 583     {
 584         comphelper::AccessibleEventNotifier::revokeClientNotifyDisposing( mnClientId, *this );
 585         mnClientId =  0;
 586     }
 587 }
 588
 589
 590
 591
 592 void AccessibleContextBase::SetAccessibleDescription (
 593     const ::rtl::OUString& rDescription,
 594     StringOrigin eDescriptionOrigin)
 595     throw (uno::RuntimeException)
 596 {
 597     if (eDescriptionOrigin < meDescriptionOrigin
 598         || (eDescriptionOrigin == meDescriptionOrigin && msDescription != rDescription))
 599     {
 600         uno::Any aOldValue, aNewValue;
 601         aOldValue <<= msDescription;
 602         aNewValue <<= rDescription;
 603
 604         msDescription = rDescription;
 605         meDescriptionOrigin = eDescriptionOrigin;
 606
 607         CommitChange(
 608             AccessibleEventId::DESCRIPTION_CHANGED,
 609             aNewValue,
 610             aOldValue);
 611     }
 612 }
 613
 614
 615
 616
 617 void AccessibleContextBase::SetAccessibleName (
 618     const ::rtl::OUString& rName,
 619     StringOrigin eNameOrigin)
 620     throw (uno::RuntimeException)
 621 {
 622     if (eNameOrigin < meNameOrigin
 623         || (eNameOrigin == meNameOrigin && msName != rName))
 624     {
 625         uno::Any aOldValue, aNewValue;
 626         aOldValue <<= msName;
 627         aNewValue <<= rName;
 628
 629         msName = rName;
 630         meNameOrigin = eNameOrigin;
 631
 632         CommitChange(
 633             AccessibleEventId::NAME_CHANGED,
 634             aNewValue,
 635             aOldValue);
 636     }
 637 }
 638
 639
 640
 641
 642 ::rtl::OUString AccessibleContextBase::CreateAccessibleDescription (void)
 643     throw (::com::sun::star::uno::RuntimeException)
 644 {
 645     return ::rtl::OUString::createFromAscii ("Empty Description");
 646 }
 647
 648
 649
 650
 651 ::rtl::OUString AccessibleContextBase::CreateAccessibleName (void)
 652     throw (::com::sun::star::uno::RuntimeException)
 653 {
 654     return ::rtl::OUString::createFromAscii ("Empty Name");
 655 }
 656
 657
 658
 659
 660 void AccessibleContextBase::CommitChange (
 661     sal_Int16 nEventId,
 662     const uno::Any& rNewValue,
 663     const uno::Any& rOldValue)
 664 {
 665     // Do not call FireEvent and do not even create the event object when no
 666     // listener has been registered yet.  Creating the event object can
 667     // otherwise lead to a crash.  See issue 93419 for details.
 668     if (mnClientId != 0)
 669     {
 670         AccessibleEventObject aEvent (
 671             static_cast<XAccessibleContext*>(this),
 672             nEventId,
 673             rNewValue,
 674             rOldValue);
 675
 676         FireEvent (aEvent);
 677     }
 678 }
 679
 680
 681
 682
 683 void AccessibleContextBase::FireEvent (const AccessibleEventObject& aEvent)
 684 {
 685     if (mnClientId)
 686         comphelper::AccessibleEventNotifier::addEvent( mnClientId, aEvent );
 687 }
 688
 689
 690
 691
 692 void AccessibleContextBase::ThrowIfDisposed (void)
 693     throw (::com::sun::star::lang::DisposedException)
 694 {
 695     if (rBHelper.bDisposed || rBHelper.bInDispose)
 696     {
 697         OSL_TRACE ("Calling disposed object. Throwing exception:");
 698         throw lang::DisposedException (
 699             OUString(RTL_CONSTASCII_USTRINGPARAM("object has been already disposed")),
 700             static_cast<uno::XWeak*>(this));
 701     }
 702 }
 703
 704
 705
 706 sal_Bool AccessibleContextBase::IsDisposed (void)
 707 {
 708     return (rBHelper.bDisposed || rBHelper.bInDispose);
 709 }
 710
 711
 712
 713 void AccessibleContextBase::SetAccessibleRole( sal_Int16 _nRole )
 714 {
 715     maRole = _nRole;
 716 }
 717
 718
 719 } // end of namespace accessibility