svx/source/unodraw/unomod.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 <sal/config.h>
  21
  22 #include <com/sun/star/lang/IndexOutOfBoundsException.hpp>
  23 #include <com/sun/star/lang/ServiceNotRegisteredException.hpp>
  24 #include <com/sun/star/lang/NoSupportException.hpp>
  25 #include <com/sun/star/drawing/XShape.hpp>
  26 #include <vcl/svapp.hxx>
  27 #include <svl/itempool.hxx>
  28 #include <svtools/unoevent.hxx>
  29 #include <comphelper/sequence.hxx>
  30 #include <cppuhelper/supportsservice.hxx>
  31 #include <tools/debug.hxx>
  32
  33 #include <cppuhelper/implbase.hxx>
  34 #include <svx/unofill.hxx>
  35 #include <editeng/unonrule.hxx>
  36 #include <svtools/unoimap.hxx>
  37 #include <sfx2/event.hxx>
  38 #include <svx/fmdpage.hxx>
  39 #include <svx/fmmodel.hxx>
  40 #include <svx/fmpage.hxx>
  41 #include <svx/unoapi.hxx>
  42
  43 #include <svx/svdmodel.hxx>
  44 #include <svx/unoprov.hxx>
  45 #include <svx/unopage.hxx>
  46 #include <editeng/unofield.hxx>
  47 #include <svx/unomod.hxx>
  48 #include <svx/unomodel.hxx>
  49 #include <svx/svdobj.hxx>
  50 #include <svx/svdpage.hxx>
  51 #include <svx/SvxXTextColumns.hxx>
  52 #include <svx/unoshape.hxx>
  53 #include <svx/xmlgrhlp.hxx>
  54
  55 #include <com/sun/star/text/textfield/Type.hpp>
  56
  57 //-
  58
  59 using namespace ::com::sun::star;
  60
  61 //-
  62
  63 #define QUERYINT( xint ) \
  64     if( rType == cppu::UnoType<xint>::get() ) \
  65         aAny <<= uno::Reference< xint >(this)
  66
  67 //-
  68
  69 class SvxUnoDrawPagesAccess : public ::cppu::WeakImplHelper< css::drawing::XDrawPages, css::lang::XServiceInfo >
  70 {
  71 private:
  72     SvxUnoDrawingModel& mrModel;
  73
  74 public:
  75     explicit SvxUnoDrawPagesAccess( SvxUnoDrawingModel& rMyModel ) noexcept;
  76
  77     // XDrawPages
  78     virtual css::uno::Reference< css::drawing::XDrawPage > SAL_CALL insertNewByIndex( sal_Int32 nIndex ) override;
  79     virtual void SAL_CALL remove( const css::uno::Reference< css::drawing::XDrawPage >& xPage ) override;
  80
  81     // XIndexAccess
  82     virtual sal_Int32 SAL_CALL getCount() override ;
  83     virtual css::uno::Any SAL_CALL getByIndex( sal_Int32 Index ) override;
  84
  85     // XElementAccess
  86     virtual css::uno::Type SAL_CALL getElementType() override;
  87     virtual sal_Bool SAL_CALL hasElements() override;
  88
  89     // XServiceInfo
  90     virtual OUString SAL_CALL getImplementationName(  ) override;
  91     virtual sal_Bool SAL_CALL supportsService( const OUString& ServiceName ) override;
  92     virtual css::uno::Sequence< OUString > SAL_CALL getSupportedServiceNames(  ) override;
  93 };
  94 //-
  95
  96 static const SvEventDescription* ImplGetSupportedMacroItems()
  97 {
  98     static const SvEventDescription aMacroDescriptionsImpl[] =
  99     {
 100         { SvMacroItemId::OnMouseOver, "OnMouseOver" },
 101         { SvMacroItemId::OnMouseOut,  "OnMouseOut" },
 102         { SvMacroItemId::NONE, nullptr }
 103     };
 104
 105     return aMacroDescriptionsImpl;
 106 }
 107
 108 //-
 109
 110 /** fills the given EventObject from the given SdrHint.
 111     @returns
 112         true    if the SdrHint could be translated to an EventObject<br>
 113         false   if not
 114 */
 115 bool SvxUnoDrawMSFactory::createEvent( const SdrModel* pDoc, const SdrHint* pSdrHint, css::document::EventObject& aEvent )
 116 {
 117     const SdrObject* pObj = nullptr;
 118     const SdrPage* pPage = nullptr;
 119
 120     switch( pSdrHint->GetKind() )
 121     {
 122 //              case SdrHintKind::LayerChange:             // layer definition changed
 123 //              case SdrHintKind::LayerOrderChange:        // layer order changed (Insert/Remove/ChangePos)
 124 //              case HINT_LAYERSETCHG:          // layer set changed
 125 //              case HINT_LAYERSETORDERCHG:     // layer set order changed (Insert/Remove/ChangePos)
 126
 127 //      case HINT_PAGECHG:              // page changed
 128 //          aEvent.EventName = "PageModified";
 129 //          pPage = pSdrHint->GetPage();
 130 //          break;
 131         case SdrHintKind::PageOrderChange:         // draw or master page order changed (Insert/Remove/ChangePos)
 132             aEvent.EventName = "PageOrderModified";
 133             pPage = pSdrHint->GetPage();
 134             break;
 135         case SdrHintKind::ObjectChange:               // object changed
 136             aEvent.EventName = "ShapeModified";
 137             pObj = pSdrHint->GetObject();
 138             break;
 139         case SdrHintKind::ObjectInserted:          // add new draw object
 140             aEvent.EventName = "ShapeInserted";
 141             pObj = pSdrHint->GetObject();
 142             break;
 143         case SdrHintKind::ObjectRemoved:           // removed draw object from list
 144             aEvent.EventName = "ShapeRemoved";
 145             pObj = pSdrHint->GetObject();
 146             break;
 147 //                SdrHintKind::DefaultTabChange,   // default tab width changed
 148 //                SdrHintKind::SwitchToPage,    // #94278# UNDO/REDO at an object evtl. on another page
 149 //                HINT_OBJLISTCLEAR     // Is called before an SdrObjList will be cleared
 150         default:
 151             return false;
 152     }
 153
 154     if( pObj )
 155         aEvent.Source = const_cast<SdrObject*>(pObj)->getUnoShape();
 156     else if( pPage )
 157         aEvent.Source = const_cast<SdrPage*>(pPage)->getUnoPage();
 158     else
 159         aEvent.Source = const_cast<SdrModel*>(pDoc)->getUnoModel();
 160
 161     return true;
 162 }
 163
 164 namespace {
 165
 166 css::uno::Reference<css::uno::XInterface> create(
 167     OUString const & rServiceSpecifier, OUString const & referer)
 168 {
 169     if( rServiceSpecifier.startsWith("com.sun.star.drawing.") )
 170     {
 171         sal_uInt32 nType = UHashMap::getId( rServiceSpecifier );
 172         if( nType != UHASHMAP_NOTFOUND )
 173         {
 174             sal_uInt16 nT = static_cast<sal_uInt16>(nType & ~E3D_INVENTOR_FLAG);
 175             SdrInventor nI = (nType & E3D_INVENTOR_FLAG) ? SdrInventor::E3d : SdrInventor::Default;
 176
 177             return uno::Reference< uno::XInterface >( static_cast<drawing::XShape*>(SvxDrawPage::CreateShapeByTypeAndInventor( nT, nI, nullptr, nullptr, referer ).get()) );
 178         }
 179     }
 180     else if (rServiceSpecifier == "com.sun.star.document.ImportGraphicStorageHandler")
 181     {
 182         rtl::Reference<SvXMLGraphicHelper> pGraphicHelper = SvXMLGraphicHelper::Create( SvXMLGraphicHelperMode::Read );
 183         uno::Reference< uno::XInterface> xRet( static_cast< ::cppu::OWeakObject* >( pGraphicHelper.get() ) );
 184         return xRet;
 185     }
 186     else if (rServiceSpecifier == "com.sun.star.text.TextColumns")
 187     {
 188         return SvxXTextColumns_createInstance();
 189     }
 190
 191     uno::Reference< uno::XInterface > xRet( SvxUnoDrawMSFactory::createTextField( rServiceSpecifier ) );
 192     if( !xRet.is() )
 193         throw lang::ServiceNotRegisteredException("unknown service: " + rServiceSpecifier);
 194
 195     return xRet;
 196 }
 197
 198 }
 199
 200 uno::Reference< uno::XInterface > SAL_CALL SvxUnoDrawMSFactory::createInstance( const OUString& rServiceSpecifier )
 201 {
 202     return create(rServiceSpecifier, "");
 203 }
 204
 205 uno::Reference< uno::XInterface > SvxUnoDrawMSFactory::createTextField( const OUString& ServiceSpecifier )
 206 {
 207     return SvxUnoTextCreateTextField( ServiceSpecifier );
 208 }
 209
 210 uno::Reference< uno::XInterface > SAL_CALL SvxUnoDrawMSFactory::createInstanceWithArguments( const OUString& ServiceSpecifier, const uno::Sequence< css::uno::Any >& Arguments )
 211 {
 212     OUString arg;
 213     if ((ServiceSpecifier == "com.sun.star.drawing.GraphicObjectShape"
 214          || ServiceSpecifier == "com.sun.star.drawing.MediaShape")
 215         && Arguments.getLength() == 1 && (Arguments[0] >>= arg))
 216     {
 217         return create(ServiceSpecifier, arg);
 218     }
 219     throw lang::NoSupportException();
 220 }
 221
 222 uno::Sequence< OUString > SAL_CALL SvxUnoDrawMSFactory::getAvailableServiceNames()
 223 {
 224     return UHashMap::getServiceNames();
 225 }
 226
 227 SdrModel& SvxUnoDrawingModel::getSdrModelFromUnoModel() const
 228 {
 229     OSL_ENSURE(mpDoc, "No SdrModel in UnoDrawingModel, should not happen");
 230     return *mpDoc;
 231 }
 232
 233 SvxUnoDrawingModel::SvxUnoDrawingModel(SdrModel* pDoc) noexcept
 234 :   SfxBaseModel(nullptr),
 235     SvxFmMSFactory(),
 236     css::drawing::XDrawPagesSupplier(),
 237     css::lang::XServiceInfo(),
 238     css::ucb::XAnyCompareFactory(),
 239     mpDoc(pDoc),
 240     mxDrawPagesAccess(),
 241     mxDashTable(),
 242     mxGradientTable(),
 243     mxHatchTable(),
 244     mxBitmapTable(),
 245     mxTransGradientTable(),
 246     mxMarkerTable(),
 247     maTypeSequence()
 248 {
 249 }
 250
 251 SvxUnoDrawingModel::~SvxUnoDrawingModel() noexcept
 252 {
 253 }
 254
 255 uno::Any SAL_CALL SvxUnoDrawingModel::queryInterface( const uno::Type & rType )
 256 {
 257     uno::Any aAny;
 258
 259     QUERYINT(lang::XServiceInfo);
 260     else QUERYINT(lang::XMultiServiceFactory);
 261     else QUERYINT(drawing::XDrawPagesSupplier);
 262     else QUERYINT(css::ucb::XAnyCompareFactory);
 263     else
 264         return SfxBaseModel::queryInterface( rType );
 265
 266     return aAny;
 267 }
 268
 269 // XTypeProvider
 270 uno::Sequence< uno::Type > SAL_CALL SvxUnoDrawingModel::getTypes(  )
 271 {
 272     if( !maTypeSequence.hasElements() )
 273     {
 274         maTypeSequence = comphelper::concatSequences( SfxBaseModel::getTypes(),
 275             uno::Sequence {
 276                 cppu::UnoType<lang::XServiceInfo>::get(),
 277                 cppu::UnoType<lang::XMultiServiceFactory>::get(),
 278                 cppu::UnoType<drawing::XDrawPagesSupplier>::get(),
 279                 cppu::UnoType<css::ucb::XAnyCompareFactory>::get() });
 280     }
 281     return maTypeSequence;
 282 }
 283
 284 uno::Sequence< sal_Int8 > SAL_CALL SvxUnoDrawingModel::getImplementationId(  )
 285 {
 286     return css::uno::Sequence<sal_Int8>();
 287 }
 288
 289 void SAL_CALL SvxUnoDrawingModel::lockControllers(  )
 290 {
 291     if( mpDoc )
 292         mpDoc->setLock(true);
 293 }
 294
 295 void SAL_CALL SvxUnoDrawingModel::unlockControllers(  )
 296 {
 297     if( mpDoc && mpDoc->isLocked() )
 298     {
 299         mpDoc->setLock(false);
 300     }
 301 }
 302
 303 sal_Bool SAL_CALL SvxUnoDrawingModel::hasControllersLocked(  )
 304 {
 305     return mpDoc && mpDoc->isLocked();
 306 }
 307
 308 // XDrawPagesSupplier
 309 uno::Reference< drawing::XDrawPages > SAL_CALL SvxUnoDrawingModel::getDrawPages()
 310 {
 311     ::SolarMutexGuard aGuard;
 312
 313     uno::Reference< drawing::XDrawPages >  xDrawPages( mxDrawPagesAccess );
 314
 315     if( !xDrawPages.is() )
 316         mxDrawPagesAccess = xDrawPages = new SvxUnoDrawPagesAccess(*this);
 317
 318     return xDrawPages;
 319 }
 320
 321 // XMultiServiceFactory ( SvxFmMSFactory )
 322 uno::Reference< uno::XInterface > SAL_CALL SvxUnoDrawingModel::createInstance( const OUString& aServiceSpecifier )
 323 {
 324     ::SolarMutexGuard aGuard;
 325
 326     if( aServiceSpecifier == "com.sun.star.drawing.DashTable" )
 327     {
 328         if( !mxDashTable.is() )
 329             mxDashTable = SvxUnoDashTable_createInstance( mpDoc );
 330         return mxDashTable;
 331     }
 332     if( aServiceSpecifier == "com.sun.star.drawing.GradientTable" )
 333     {
 334         if( !mxGradientTable.is() )
 335             mxGradientTable = SvxUnoGradientTable_createInstance( mpDoc );
 336         return mxGradientTable;
 337     }
 338     if( aServiceSpecifier == "com.sun.star.drawing.HatchTable" )
 339     {
 340         if( !mxHatchTable.is() )
 341             mxHatchTable = SvxUnoHatchTable_createInstance( mpDoc );
 342         return mxHatchTable;
 343     }
 344     if( aServiceSpecifier == "com.sun.star.drawing.BitmapTable" )
 345     {
 346         if( !mxBitmapTable.is() )
 347             mxBitmapTable = SvxUnoBitmapTable_createInstance( mpDoc );
 348         return mxBitmapTable;
 349     }
 350     if( aServiceSpecifier == "com.sun.star.drawing.TransparencyGradientTable" )
 351     {
 352         if( !mxTransGradientTable.is() )
 353             mxTransGradientTable = SvxUnoTransGradientTable_createInstance( mpDoc );
 354         return mxTransGradientTable;
 355     }
 356     if( aServiceSpecifier == "com.sun.star.drawing.MarkerTable" )
 357     {
 358         if( !mxMarkerTable.is() )
 359             mxMarkerTable = SvxUnoMarkerTable_createInstance( mpDoc );
 360         return mxMarkerTable;
 361     }
 362     if( aServiceSpecifier == "com.sun.star.text.NumberingRules" )
 363     {
 364         return uno::Reference< uno::XInterface >( SvxCreateNumRule( mpDoc ), uno::UNO_QUERY );
 365     }
 366
 367     if ( aServiceSpecifier == "com.sun.star.image.ImageMapRectangleObject" )
 368     {
 369         return SvUnoImageMapRectangleObject_createInstance( ImplGetSupportedMacroItems() );
 370     }
 371
 372     if ( aServiceSpecifier == "com.sun.star.image.ImageMapCircleObject" )
 373     {
 374         return SvUnoImageMapCircleObject_createInstance( ImplGetSupportedMacroItems() );
 375     }
 376
 377     if ( aServiceSpecifier == "com.sun.star.image.ImageMapPolygonObject" )
 378     {
 379         return SvUnoImageMapPolygonObject_createInstance( ImplGetSupportedMacroItems() );
 380     }
 381
 382     if( aServiceSpecifier == "com.sun.star.text.TextField.DateTime" )
 383     {
 384         return static_cast<cppu::OWeakObject *>(new SvxUnoTextField(text::textfield::Type::DATE));
 385     }
 386
 387     uno::Reference< uno::XInterface > xRet;
 388
 389     static const OUStringLiteral aPackagePrefix( u"com.sun.star.presentation." );
 390     if( aServiceSpecifier.startsWith( aPackagePrefix ) )
 391     {
 392         SvxShape* pShape = nullptr;
 393
 394         sal_uInt16 nType = OBJ_TEXT;
 395         OUString aTypeName = aServiceSpecifier.copy( aPackagePrefix.getLength() );
 396         // create a shape wrapper
 397         if( aTypeName.startsWith("TitleTextShape") )
 398         {
 399             nType = OBJ_TEXT;
 400         }
 401         else if( aTypeName.startsWith( "OutlinerShape" ) )
 402         {
 403             nType = OBJ_TEXT;
 404         }
 405         else if( aTypeName.startsWith( "SubtitleShape" ) )
 406         {
 407             nType = OBJ_TEXT;
 408         }
 409         else if( aTypeName.startsWith( "GraphicObjectShape" ) )
 410         {
 411             nType = OBJ_GRAF;
 412         }
 413         else if( aTypeName.startsWith( "PageShape" ) )
 414         {
 415             nType = OBJ_PAGE;
 416         }
 417         else if( aTypeName.startsWith( "OLE2Shape" ) )
 418         {
 419             nType = OBJ_OLE2;
 420         }
 421         else if( aTypeName.startsWith( "ChartShape" ) )
 422         {
 423             nType = OBJ_OLE2;
 424         }
 425         else if( aTypeName.startsWith( "OrgChartShape" ) )
 426         {
 427             nType = OBJ_OLE2;
 428         }
 429         else if( aTypeName.startsWith( "NotesShape" ) )
 430         {
 431             nType = OBJ_TEXT;
 432         }
 433         else if( aTypeName.startsWith( "HandoutShape" ) )
 434         {
 435             nType = OBJ_PAGE;
 436         }
 437         else if( aTypeName.startsWith( "FooterShape" ) )
 438         {
 439             nType = OBJ_TEXT;
 440         }
 441         else if( aTypeName.startsWith( "HeaderShape" ) )
 442         {
 443             nType = OBJ_TEXT;
 444         }
 445         else if( aTypeName.startsWith( "SlideNumberShape" ) )
 446         {
 447             nType = OBJ_TEXT;
 448         }
 449         else if( aTypeName.startsWith( "DateTimeShape" ) )
 450         {
 451             nType = OBJ_TEXT;
 452         }
 453         else if( aTypeName.startsWith( "TableShape" ) )
 454         {
 455             nType = OBJ_TABLE;
 456         }
 457         else
 458         {
 459             throw lang::ServiceNotRegisteredException();
 460         }
 461
 462         // create the API wrapper
 463         rtl::Reference<SvxShape> xNewShape = CreateSvxShapeByTypeAndInventor( nType, SdrInventor::Default, "" );
 464         pShape = xNewShape.get();
 465
 466         // set shape type
 467         if( pShape )
 468             pShape->SetShapeType(aServiceSpecifier);
 469
 470         xRet = static_cast<uno::XWeak*>(pShape);
 471     }
 472     else
 473     {
 474         xRet = SvxFmMSFactory::createInstance( aServiceSpecifier );
 475     }
 476
 477     return xRet;
 478 }
 479
 480 uno::Sequence< OUString > SAL_CALL SvxUnoDrawingModel::getAvailableServiceNames()
 481 {
 482     const uno::Sequence< OUString > aSNS_ORG( SvxFmMSFactory::getAvailableServiceNames() );
 483
 484     uno::Sequence< OUString > aSNS( 21 );
 485
 486     sal_uInt16 i = 0;
 487
 488     aSNS[i++] = "com.sun.star.drawing.DashTable";
 489     aSNS[i++] = "com.sun.star.drawing.GradientTable";
 490     aSNS[i++] = "com.sun.star.drawing.HatchTable";
 491     aSNS[i++] = "com.sun.star.drawing.BitmapTable";
 492     aSNS[i++] = "com.sun.star.drawing.TransparencyGradientTable";
 493     aSNS[i++] = "com.sun.star.drawing.MarkerTable";
 494     aSNS[i++] = "com.sun.star.text.NumberingRules";
 495     aSNS[i++] = "com.sun.star.image.ImageMapRectangleObject";
 496     aSNS[i++] = "com.sun.star.image.ImageMapCircleObject";
 497     aSNS[i++] = "com.sun.star.image.ImageMapPolygonObject";
 498
 499     aSNS[i++] = "com.sun.star.presentation.TitleTextShape";
 500     aSNS[i++] = "com.sun.star.presentation.OutlinerShape";
 501     aSNS[i++] = "com.sun.star.presentation.SubtitleShape";
 502     aSNS[i++] = "com.sun.star.presentation.GraphicObjectShape";
 503     aSNS[i++] = "com.sun.star.presentation.ChartShape";
 504     aSNS[i++] = "com.sun.star.presentation.PageShape";
 505     aSNS[i++] = "com.sun.star.presentation.OLE2Shape";
 506     aSNS[i++] = "com.sun.star.presentation.TableShape";
 507     aSNS[i++] = "com.sun.star.presentation.OrgChartShape";
 508     aSNS[i++] = "com.sun.star.presentation.NotesShape";
 509     aSNS[i++] = "com.sun.star.presentation.HandoutShape";
 510
 511     DBG_ASSERT( i == aSNS.getLength(), "Sequence overrun!" );
 512
 513     return comphelper::concatSequences( aSNS_ORG, aSNS );
 514 }
 515
 516 // lang::XServiceInfo
 517 OUString SAL_CALL SvxUnoDrawingModel::getImplementationName()
 518 {
 519     return "SvxUnoDrawingModel";
 520 }
 521
 522 sal_Bool SAL_CALL SvxUnoDrawingModel::supportsService( const OUString& ServiceName )
 523 {
 524     return cppu::supportsService( this, ServiceName );
 525 }
 526
 527 uno::Sequence< OUString > SAL_CALL SvxUnoDrawingModel::getSupportedServiceNames()
 528 {
 529     return { "com.sun.star.drawing.DrawingDocument" };
 530 }
 531
 532 // XAnyCompareFactory
 533 uno::Reference< css::ucb::XAnyCompare > SAL_CALL SvxUnoDrawingModel::createAnyCompareByName( const OUString& )
 534 {
 535     return SvxCreateNumRuleCompare();
 536 }
 537
 538 SvxUnoDrawPagesAccess::SvxUnoDrawPagesAccess( SvxUnoDrawingModel& rMyModel )  noexcept
 539 :   mrModel(rMyModel)
 540 {
 541 }
 542
 543 // XIndexAccess
 544 sal_Int32 SAL_CALL SvxUnoDrawPagesAccess::getCount()
 545 {
 546     ::SolarMutexGuard aGuard;
 547
 548     sal_Int32 nCount = 0;
 549
 550     if( mrModel.mpDoc )
 551         nCount = mrModel.mpDoc->GetPageCount();
 552
 553     return nCount;
 554 }
 555
 556 uno::Any SAL_CALL SvxUnoDrawPagesAccess::getByIndex( sal_Int32 Index )
 557 {
 558     ::SolarMutexGuard aGuard;
 559
 560     uno::Any aAny;
 561
 562     if( mrModel.mpDoc )
 563     {
 564         if( (Index < 0) || (Index >= mrModel.mpDoc->GetPageCount() ) )
 565             throw lang::IndexOutOfBoundsException();
 566
 567         SdrPage* pPage = mrModel.mpDoc->GetPage( static_cast<sal_uInt16>(Index) );
 568         if( pPage )
 569         {
 570             uno::Reference< uno::XInterface > xPage( pPage->mxUnoPage );
 571
 572             if( !xPage.is() )
 573             {
 574                 if( dynamic_cast<FmFormModel*>( mrModel.mpDoc )  )
 575                     xPage = static_cast<drawing::XDrawPage*>(new SvxFmDrawPage( pPage ));
 576                 else
 577                     xPage = static_cast<drawing::XDrawPage*>(new SvxDrawPage( pPage ));
 578
 579                 pPage->mxUnoPage = xPage;
 580             }
 581
 582             aAny <<= xPage;
 583         }
 584     }
 585     return aAny;
 586 }
 587
 588 // XElementAccess
 589 uno::Type SAL_CALL SvxUnoDrawPagesAccess::getElementType()
 590 {
 591     return cppu::UnoType<drawing::XDrawPage>::get();
 592 }
 593
 594 sal_Bool SAL_CALL SvxUnoDrawPagesAccess::hasElements()
 595 {
 596     return getCount() > 0;
 597 }
 598
 599 // XDrawPages
 600
 601 // create a new page with model at given position
 602 // and return corresponding SdDrawPage
 603 uno::Reference< drawing::XDrawPage > SAL_CALL SvxUnoDrawPagesAccess::insertNewByIndex( sal_Int32 nIndex )
 604 {
 605     ::SolarMutexGuard aGuard;
 606
 607     uno::Reference< drawing::XDrawPage > xDrawPage;
 608
 609     if( mrModel.mpDoc )
 610     {
 611         rtl::Reference<SdrPage> pPage;
 612
 613         if( auto pFormModel = dynamic_cast<FmFormModel*>( mrModel.mpDoc )  )
 614             pPage = new FmFormPage(*pFormModel);
 615         else
 616             pPage = new SdrPage(*mrModel.mpDoc);
 617
 618         mrModel.mpDoc->InsertPage( pPage.get(), static_cast<sal_uInt16>(nIndex) );
 619         xDrawPage.set( pPage->getUnoPage(), uno::UNO_QUERY );
 620     }
 621
 622     return xDrawPage;
 623 }
 624
 625 void SAL_CALL SvxUnoDrawPagesAccess::remove( const uno::Reference< drawing::XDrawPage >& xPage )
 626 {
 627     ::SolarMutexGuard aGuard;
 628
 629     sal_uInt16 nPageCount = mrModel.mpDoc->GetPageCount();
 630     if( nPageCount <= 1 )
 631         return;
 632
 633     // get pPage from xPage and get Id (nPos)
 634     SvxDrawPage* pSvxPage = comphelper::getUnoTunnelImplementation<SvxDrawPage>( xPage );
 635     if( pSvxPage )
 636     {
 637         SdrPage* pPage = pSvxPage->GetSdrPage();
 638         if(pPage)
 639         {
 640             sal_uInt16 nPage = pPage->GetPageNum();
 641             mrModel.mpDoc->DeletePage( nPage );
 642         }
 643     }
 644 }
 645
 646 // XServiceInfo
 647
 648 OUString SAL_CALL SvxUnoDrawPagesAccess::getImplementationName(  )
 649 {
 650     return "SvxUnoDrawPagesAccess";
 651 }
 652
 653 sal_Bool SAL_CALL SvxUnoDrawPagesAccess::supportsService( const OUString& ServiceName )
 654 {
 655     return cppu::supportsService(this, ServiceName);
 656 }
 657
 658 uno::Sequence< OUString > SAL_CALL SvxUnoDrawPagesAccess::getSupportedServiceNames(  )
 659 {
 660     return { "com.sun.star.drawing.DrawPages" };
 661 }
 662
 663 css::uno::Reference< css::container::XIndexReplace > SvxCreateNumRule(SdrModel* pModel)
 664 {
 665     const SvxNumRule* pDefaultRule = nullptr;
 666     if( pModel )
 667     {
 668         const SvxNumBulletItem* pItem = pModel->GetItemPool().GetSecondaryPool()->GetPoolDefaultItem(EE_PARA_NUMBULLET);
 669         if( pItem )
 670         {
 671             pDefaultRule = &pItem->GetNumRule();
 672         }
 673     }
 674
 675     if( pDefaultRule )
 676     {
 677         return SvxCreateNumRule( *pDefaultRule );
 678     }
 679     else
 680     {
 681         SvxNumRule aTempRule( SvxNumRuleFlags::NONE, 10, false );
 682         return SvxCreateNumRule( aTempRule );
 683     }
 684 }
 685
 686
 687 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */