toolkit/source/controls/roadmapcontrol.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 <toolkit/controls/roadmapcontrol.hxx>
  22 #include <toolkit/helper/property.hxx>
  23 #include <com/sun/star/awt/XVclWindowPeer.hpp>
  24 #include <com/sun/star/lang/IndexOutOfBoundsException.hpp>
  25 #include <com/sun/star/uno/XComponentContext.hpp>
  26
  27 #include <helper/unopropertyarrayhelper.hxx>
  28
  29 namespace toolkit
  30 {
  31
  32
  33     using namespace ::com::sun::star::uno;
  34     using namespace ::com::sun::star::awt;
  35     using namespace ::com::sun::star::lang;
  36     using namespace ::com::sun::star::beans;
  37     using namespace ::com::sun::star::container;
  38
  39
  40 //  helper
  41
  42
  43 static void lcl_throwIllegalArgumentException( )
  44 {   // throwing is expensive (in terms of code size), thus we hope the compiler does not inline this ....
  45     throw IllegalArgumentException();
  46 }
  47
  48 static void lcl_throwIndexOutOfBoundsException( )
  49 {   // throwing is expensive (in terms of code size), thus we hope the compiler does not inline this ....
  50     throw IndexOutOfBoundsException();
  51 }
  52
  53
  54     // = UnoControlRoadmapModel
  55
  56
  57     UnoControlRoadmapModel::UnoControlRoadmapModel( const Reference< XComponentContext >& i_factory )
  58         :UnoControlRoadmapModel_Base( i_factory )
  59         ,maContainerListeners( *this )
  60     {
  61         ImplRegisterProperty( BASEPROPERTY_BACKGROUNDCOLOR );
  62         ImplRegisterProperty( BASEPROPERTY_BORDER );
  63         ImplRegisterProperty( BASEPROPERTY_BORDERCOLOR );
  64         ImplRegisterProperty( BASEPROPERTY_DEFAULTCONTROL );
  65         ImplRegisterProperty( BASEPROPERTY_FONTDESCRIPTOR );
  66         ImplRegisterProperty( BASEPROPERTY_HELPTEXT );
  67         ImplRegisterProperty( BASEPROPERTY_HELPURL );
  68         ImplRegisterProperty( BASEPROPERTY_IMAGEURL );
  69         ImplRegisterProperty( BASEPROPERTY_GRAPHIC );
  70         ImplRegisterProperty( BASEPROPERTY_PRINTABLE );
  71         ImplRegisterProperty( BASEPROPERTY_COMPLETE );
  72         ImplRegisterProperty( BASEPROPERTY_ACTIVATED );
  73         ImplRegisterProperty( BASEPROPERTY_CURRENTITEMID );
  74         ImplRegisterProperty( BASEPROPERTY_TABSTOP );
  75         ImplRegisterProperty( BASEPROPERTY_TEXT );
  76     }
  77
  78
  79     OUString UnoControlRoadmapModel::getServiceName()
  80     {
  81         return OUString::createFromAscii( szServiceName_UnoControlRoadmapModel );
  82     }
  83
  84     OUString UnoControlRoadmapModel::getImplementationName()
  85     {
  86         return OUString("stardiv.Toolkit.UnoControlRoadmapModel");
  87     }
  88
  89     css::uno::Sequence<OUString>
  90     UnoControlRoadmapModel::getSupportedServiceNames()
  91     {
  92         auto s(UnoControlRoadmapModel_Base::getSupportedServiceNames());
  93         s.realloc(s.getLength() + 2);
  94         s[s.getLength() - 2] = "com.sun.star.awt.UnoControlRoadmapModel";
  95         s[s.getLength() - 1] = "stardiv.vcl.controlmodel.Roadmap";
  96         return s;
  97     }
  98
  99     Any UnoControlRoadmapModel::ImplGetDefaultValue( sal_uInt16 nPropId ) const
 100     {
 101         Any aReturn;
 102         switch (nPropId)
 103         {
 104                 case BASEPROPERTY_COMPLETE:
 105                     aReturn <<= true;
 106                     break;
 107                 case BASEPROPERTY_ACTIVATED:
 108                     aReturn <<= true;
 109                     break;
 110                 case BASEPROPERTY_CURRENTITEMID:
 111                     aReturn <<= sal_Int16(-1);
 112                     break;
 113                 case BASEPROPERTY_TEXT:
 114                    break;
 115                 case BASEPROPERTY_BORDER:
 116                     aReturn <<= sal_Int16(2);              // No Border
 117                     break;
 118                 case BASEPROPERTY_DEFAULTCONTROL:
 119                     aReturn <<= OUString::createFromAscii( szServiceName_UnoControlRoadmap );
 120                     break;
 121             default : aReturn = UnoControlRoadmapModel_Base::ImplGetDefaultValue( nPropId ); break;
 122         }
 123
 124         return aReturn;
 125     }
 126
 127
 128     Reference< XInterface > SAL_CALL UnoControlRoadmapModel::createInstance(  )
 129     {
 130         ORoadmapEntry* pRoadmapItem = new ORoadmapEntry();
 131         Reference< XInterface > xNewRoadmapItem = static_cast<cppu::OWeakObject*>(pRoadmapItem);
 132         return xNewRoadmapItem;
 133     }
 134
 135
 136     Reference< XInterface > SAL_CALL UnoControlRoadmapModel::createInstanceWithArguments( const Sequence< Any >& /*aArguments*/ )
 137     {
 138         // Todo: implementation of the arguments handling
 139         ORoadmapEntry* pRoadmapItem = new ORoadmapEntry();
 140         Reference< XInterface > xNewRoadmapItem = static_cast<cppu::OWeakObject*>(pRoadmapItem);
 141         return xNewRoadmapItem;
 142     }
 143
 144
 145  IMPLEMENT_FORWARD_XTYPEPROVIDER2( UnoControlRoadmapModel, UnoControlRoadmapModel_Base, UnoControlRoadmapModel_IBase )
 146
 147
 148     css::uno::Any  SAL_CALL UnoControlRoadmapModel::queryAggregation( const css::uno::Type & rType )
 149     {
 150         Any aRet = UnoControlRoadmapModel_Base::queryAggregation( rType );
 151         if ( !aRet.hasValue() )
 152             aRet = UnoControlRoadmapModel_IBase::queryInterface( rType );
 153          return aRet;
 154     }
 155
 156
 157     ::cppu::IPropertyArrayHelper& UnoControlRoadmapModel::getInfoHelper()
 158     {
 159         static UnoPropertyArrayHelper* pHelper = nullptr;
 160         if ( !pHelper )
 161         {
 162             Sequence<sal_Int32> aIDs = ImplGetPropertyIds();
 163             pHelper = new UnoPropertyArrayHelper( aIDs );
 164         }
 165         return *pHelper;
 166     }
 167
 168
 169     // beans::XMultiPropertySet
 170
 171     Reference< XPropertySetInfo > UnoControlRoadmapModel::getPropertySetInfo(  )
 172     {
 173         static Reference< XPropertySetInfo > xInfo( createPropertySetInfo( getInfoHelper() ) );
 174         return xInfo;
 175     }
 176
 177
 178     sal_Int32 SAL_CALL UnoControlRoadmapModel::getCount()
 179     {
 180         return maRoadmapItems.size();
 181     }
 182
 183     Any SAL_CALL UnoControlRoadmapModel::getByIndex( sal_Int32 Index )
 184     {
 185         if (( Index >= static_cast<sal_Int32>(maRoadmapItems.size())) || (Index < 0))
 186             lcl_throwIndexOutOfBoundsException( );
 187         Any aAny( maRoadmapItems.at( Index ) );
 188         return aAny;
 189     }
 190
 191
 192     void UnoControlRoadmapModel::MakeRMItemValidation( sal_Int32 Index, const Reference< XInterface >& xRoadmapItem )
 193     {
 194         if ((Index > static_cast<sal_Int32>(maRoadmapItems.size())) || ( Index < 0 ) )
 195             lcl_throwIndexOutOfBoundsException( );
 196         if ( !xRoadmapItem.is() )
 197             lcl_throwIllegalArgumentException();
 198         Reference< XServiceInfo > xServiceInfo( xRoadmapItem, UNO_QUERY );
 199         bool bIsRoadmapItem = xServiceInfo->supportsService("com.sun.star.awt.RoadmapItem");
 200         if ( !bIsRoadmapItem )
 201             lcl_throwIllegalArgumentException();
 202     }
 203
 204
 205     void UnoControlRoadmapModel::SetRMItemDefaultProperties( const Reference< XInterface >& xRoadmapItem)
 206     {
 207         Reference< XPropertySet > xPropertySet( xRoadmapItem, UNO_QUERY );
 208         Reference< XPropertySet > xProps( xRoadmapItem, UNO_QUERY );
 209         if ( xProps.is() )
 210         {
 211             sal_Int32 LocID = 0;
 212             Any aValue = xPropertySet->getPropertyValue("ID");
 213             aValue >>= LocID;
 214             if (LocID < 0)              // index may not be smaller than zero
 215             {
 216                 xPropertySet->setPropertyValue("ID", Any(GetUniqueID()) );
 217             }
 218         }
 219     }
 220
 221
 222 // The performance of this method could certainly be improved.
 223 // As long as only vectors with up to 10 elements are
 224 // involved it should be sufficient
 225        sal_Int32 UnoControlRoadmapModel::GetUniqueID()
 226       {
 227           Any aAny;
 228           bool bIncrement = true;
 229           sal_Int32 CurID = 0;
 230           sal_Int32 n_CurItemID = 0;
 231           Reference< XInterface > CurRoadmapItem;
 232           while ( bIncrement )
 233           {
 234               bIncrement = false;
 235               for ( RoadmapItemHolderList::iterator i = maRoadmapItems.begin(); i < maRoadmapItems.end(); ++i )
 236               {
 237                 CurRoadmapItem = *i;
 238                 Reference< XPropertySet > xPropertySet( CurRoadmapItem, UNO_QUERY );
 239                 aAny = xPropertySet->getPropertyValue("ID");
 240                 aAny >>= n_CurItemID;
 241                 if (n_CurItemID == CurID)
 242                 {
 243                     bIncrement = true;
 244                     CurID++;
 245                     break;
 246                 }
 247             }
 248         }
 249         return CurID;
 250     }
 251
 252
 253     ContainerEvent UnoControlRoadmapModel::GetContainerEvent(sal_Int32 Index, const Reference< XInterface >& xRoadmapItem)
 254     {
 255         ContainerEvent aEvent;
 256         aEvent.Source = *this;
 257         aEvent.Element <<= xRoadmapItem;
 258         aEvent.Accessor <<= Index;
 259         return aEvent;
 260     }
 261
 262
 263     sal_Int16 UnoControlRoadmapModel::GetCurrentItemID( const Reference< XPropertySet >& xPropertySet )
 264     {
 265         Any aAny = xPropertySet->getPropertyValue( GetPropertyName( BASEPROPERTY_CURRENTITEMID ) );
 266         sal_Int16 n_CurrentItemID = 0;
 267         aAny >>= n_CurrentItemID;
 268         return n_CurrentItemID;
 269     }
 270
 271
 272     void SAL_CALL UnoControlRoadmapModel::insertByIndex( const sal_Int32 Index, const Any& Element)
 273     {
 274         if ( ( Index >= ( static_cast<sal_Int32>(maRoadmapItems.size()) + 1 ) ) || (Index < 0))
 275             lcl_throwIndexOutOfBoundsException( );
 276         Reference< XInterface > xRoadmapItem;
 277         Element >>= xRoadmapItem;
 278         MakeRMItemValidation( Index, xRoadmapItem);
 279         SetRMItemDefaultProperties( xRoadmapItem );
 280         maRoadmapItems.insert( maRoadmapItems.begin() + Index, xRoadmapItem);
 281         ContainerEvent aEvent = GetContainerEvent(Index, xRoadmapItem);
 282         maContainerListeners.elementInserted( aEvent );
 283         Reference< XPropertySet > xPropertySet( static_cast<XAggregation*>(static_cast<cppu::OWeakAggObject*>(this)), UNO_QUERY );
 284         sal_Int16 n_CurrentItemID = GetCurrentItemID( xPropertySet );
 285         if ( Index <= n_CurrentItemID )
 286         {
 287             Any aAny(static_cast<sal_Int16>( n_CurrentItemID + 1 ) );
 288             xPropertySet->setPropertyValue( GetPropertyName( BASEPROPERTY_CURRENTITEMID ), aAny );
 289         }
 290     }
 291
 292
 293     void SAL_CALL UnoControlRoadmapModel::removeByIndex( sal_Int32 Index)
 294     {
 295         if (( Index > static_cast<sal_Int32>(maRoadmapItems.size())) || (Index < 0))
 296             lcl_throwIndexOutOfBoundsException( );
 297         Reference< XInterface > xRoadmapItem;
 298         maRoadmapItems.erase( maRoadmapItems.begin() + Index );
 299         ContainerEvent aEvent = GetContainerEvent(Index, xRoadmapItem);
 300         maContainerListeners.elementRemoved( aEvent );
 301         Reference< XPropertySet > xPropertySet( static_cast<XAggregation*>(static_cast<cppu::OWeakAggObject*>(this)), UNO_QUERY );
 302         sal_Int16 n_CurrentItemID = GetCurrentItemID( xPropertySet );
 303         Any aAny;
 304         if ( Index <= n_CurrentItemID )
 305         {
 306             if ( n_CurrentItemID >= static_cast<sal_Int32>(maRoadmapItems.size()) )
 307             {
 308                 n_CurrentItemID = sal::static_int_cast< sal_Int16 >(
 309                     maRoadmapItems.size()-1);
 310                 if ( n_CurrentItemID < 0 )
 311                     return;
 312                 aAny <<= n_CurrentItemID;
 313             }
 314             else if (Index == n_CurrentItemID)
 315                 aAny <<= sal_Int16(-1);
 316             else if( Index < n_CurrentItemID)
 317                 aAny <<= static_cast<sal_Int16>( n_CurrentItemID - 1 );
 318             xPropertySet->setPropertyValue( GetPropertyName( BASEPROPERTY_CURRENTITEMID ), aAny );
 319         }
 320     }
 321
 322
 323     void SAL_CALL UnoControlRoadmapModel::replaceByIndex( const sal_Int32 Index, const Any& Element)
 324     {
 325         Reference< XInterface > xRoadmapItem;
 326         Element >>= xRoadmapItem;
 327         MakeRMItemValidation( Index, xRoadmapItem);
 328         SetRMItemDefaultProperties( xRoadmapItem );
 329         maRoadmapItems.erase( maRoadmapItems.begin() + Index );
 330         maRoadmapItems.insert( maRoadmapItems.begin() + Index, xRoadmapItem);        //push_back( xRoadmapItem );
 331         ContainerEvent aEvent = GetContainerEvent(Index, xRoadmapItem);
 332         maContainerListeners.elementReplaced( aEvent );
 333     }
 334
 335
 336     Type SAL_CALL UnoControlRoadmapModel::getElementType()
 337     {
 338         Type aType = cppu::UnoType<XPropertySet>::get();
 339         return aType;
 340     }
 341
 342
 343     sal_Bool SAL_CALL UnoControlRoadmapModel::hasElements()
 344     {
 345         return !maRoadmapItems.empty();
 346     }
 347
 348
 349     void SAL_CALL UnoControlRoadmapModel::addContainerListener( const css::uno::Reference< css::container::XContainerListener >& xListener )
 350     {
 351         maContainerListeners.addInterface( xListener );
 352     }
 353
 354     void SAL_CALL UnoControlRoadmapModel::removeContainerListener( const css::uno::Reference< css::container::XContainerListener >& xListener )
 355     {
 356         maContainerListeners.removeInterface( xListener );
 357     }
 358
 359
 360     // = UnoRoadmapControl
 361
 362
 363     UnoRoadmapControl::UnoRoadmapControl()
 364         :UnoControlRoadmap_Base()
 365         ,maItemListeners( *this )
 366     {
 367     }
 368
 369 IMPLEMENT_FORWARD_XTYPEPROVIDER2( UnoRoadmapControl, UnoControlRoadmap_Base, UnoControlRoadmap_IBase )
 370 IMPLEMENT_FORWARD_XINTERFACE2( UnoRoadmapControl, UnoControlRoadmap_Base, UnoControlRoadmap_IBase )
 371
 372
 373 sal_Bool SAL_CALL UnoRoadmapControl::setModel(const Reference< XControlModel >& _rModel)
 374     {
 375
 376
 377            Reference< XContainer > xC( getModel(), UNO_QUERY );
 378         if ( xC.is() )
 379             xC->removeContainerListener( this );
 380
 381         bool bReturn = UnoControlBase::setModel( _rModel );
 382
 383         xC.set(getModel(), css::uno::UNO_QUERY);
 384         if ( xC.is() )
 385             xC->addContainerListener( this );
 386
 387         return bReturn;
 388     }
 389
 390
 391     OUString UnoRoadmapControl::GetComponentServiceName()
 392     {
 393         return OUString("Roadmap");
 394     }
 395
 396
 397     void UnoRoadmapControl::dispose()
 398     {
 399         EventObject aEvt;
 400         aEvt.Source = static_cast<cppu::OWeakObject*>(this);
 401         maItemListeners.disposeAndClear( aEvt );
 402         UnoControl::dispose();
 403     }
 404
 405
 406 void UnoRoadmapControl::elementInserted( const ContainerEvent& rEvent )
 407 {
 408     Reference< XInterface > xRoadmapItem;
 409     rEvent.Element >>= xRoadmapItem;
 410     Reference< XPropertySet > xRoadmapPropertySet( xRoadmapItem, UNO_QUERY );
 411     if ( xRoadmapPropertySet.is() )
 412         xRoadmapPropertySet->addPropertyChangeListener( OUString(), this );
 413
 414     Reference< XContainerListener >  xPeer(getPeer(), UNO_QUERY);
 415     if ( xPeer.is() )
 416     {
 417         xPeer->elementInserted( rEvent );
 418         Reference < XPropertySet > xPropertySet( xPeer, UNO_QUERY );
 419         if ( xPropertySet.is() )
 420             xPropertySet->addPropertyChangeListener( OUString(), this );
 421     }
 422 }
 423
 424
 425 void UnoRoadmapControl::elementRemoved( const ContainerEvent& rEvent )
 426 {
 427     Reference< XContainerListener >  xPeer(getPeer(), UNO_QUERY);
 428     if ( xPeer.is() )
 429         xPeer->elementRemoved( rEvent );
 430     Reference< XInterface > xRoadmapItem;
 431     rEvent.Element >>= xRoadmapItem;
 432     Reference< XPropertySet > xPropertySet( xRoadmapItem, UNO_QUERY );
 433     if ( xPropertySet.is() )
 434         xPropertySet->removePropertyChangeListener( OUString(), this );
 435 }
 436
 437
 438 void UnoRoadmapControl::elementReplaced( const ContainerEvent& rEvent )
 439 {
 440     Reference< XContainerListener >  xPeer(getPeer(), UNO_QUERY);
 441     if ( xPeer.is() )
 442         xPeer->elementReplaced( rEvent );
 443 }
 444
 445
 446 void SAL_CALL UnoRoadmapControl::itemStateChanged( const ItemEvent& rEvent )
 447 {
 448     sal_Int16 CurItemIndex = sal::static_int_cast< sal_Int16 >(rEvent.ItemId);
 449     Reference< XControlModel > xModel( getModel( ), UNO_QUERY );
 450     Reference< XPropertySet > xPropertySet( xModel, UNO_QUERY );
 451     xPropertySet->setPropertyValue( GetPropertyName( BASEPROPERTY_CURRENTITEMID ), Any(CurItemIndex) );
 452     if ( maItemListeners.getLength() )
 453         maItemListeners.itemStateChanged( rEvent );
 454 }
 455
 456
 457 void SAL_CALL UnoRoadmapControl::addItemListener( const Reference< XItemListener >& l )
 458 {
 459     maItemListeners.addInterface( l );
 460     if( getPeer().is() && maItemListeners.getLength() == 1 )
 461     {
 462         Reference < XItemEventBroadcaster > xRoadmap( getPeer(), UNO_QUERY );
 463         xRoadmap->addItemListener( this );
 464     }
 465 }
 466
 467
 468 void SAL_CALL UnoRoadmapControl::removeItemListener( const Reference< XItemListener >& l )
 469 {
 470     if( getPeer().is() && maItemListeners.getLength() == 1 )
 471     {
 472         Reference < XItemEventBroadcaster >  xRoadmap( getPeer(), UNO_QUERY );
 473         xRoadmap->removeItemListener( this );
 474     }
 475
 476     maItemListeners.removeInterface( l );
 477 }
 478
 479
 480 void SAL_CALL UnoRoadmapControl::propertyChange( const PropertyChangeEvent& evt )
 481 {
 482     Reference< XPropertyChangeListener >  xPeer(getPeer(), UNO_QUERY);
 483     if ( xPeer.is() )
 484         xPeer->propertyChange( evt );
 485 }
 486
 487 OUString UnoRoadmapControl::getImplementationName()
 488 {
 489     return OUString("stardiv.Toolkit.UnoRoadmapControl");
 490 }
 491
 492 css::uno::Sequence<OUString> UnoRoadmapControl::getSupportedServiceNames()
 493 {
 494     auto s(UnoControlBase::getSupportedServiceNames());
 495     s.realloc(s.getLength() + 2);
 496     s[s.getLength() - 2] = "com.sun.star.awt.UnoControlRoadmap";
 497     s[s.getLength() - 1] = "stardiv.vcl.control.Roadmap";
 498     return s;
 499 }
 500
 501 }
 502
 503 extern "C" SAL_DLLPUBLIC_EXPORT css::uno::XInterface *
 504 stardiv_Toolkit_UnoControlRoadmapModel_get_implementation(
 505     css::uno::XComponentContext *context,
 506     css::uno::Sequence<css::uno::Any> const &)
 507 {
 508     return cppu::acquire(new toolkit::UnoControlRoadmapModel(context));
 509 }
 510
 511 extern "C" SAL_DLLPUBLIC_EXPORT css::uno::XInterface *
 512 stardiv_Toolkit_UnoRoadmapControl_get_implementation(
 513     css::uno::XComponentContext *,
 514     css::uno::Sequence<css::uno::Any> const &)
 515 {
 516     return cppu::acquire(new toolkit::UnoRoadmapControl());
 517 }
 518
 519 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */