/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */

/*

 * This file is part of the LibreOffice project.

 *

 * This Source Code Form is subject to the terms of the Mozilla Public

 * License, v. 2.0. If a copy of the MPL was not distributed with this

 * file, You can obtain one at http://mozilla.org/MPL/2.0/.

 *

 * This file incorporates work covered by the following license notice:

 *

 *   Licensed to the Apache Software Foundation (ASF) under one or more

 *   contributor license agreements. See the NOTICE file distributed

 *   with this work for additional information regarding copyright

 *   ownership. The ASF licenses this file to you under the Apache

 *   License, Version 2.0 (the "License"); you may not use this file

 *   except in compliance with the License. You may obtain a copy of

 *   the License at http://www.apache.org/licenses/LICENSE-2.0 .

 */

#include <AccessiblePageShape.hxx>

#include <svx/AccessibleShapeInfo.hxx>

#include <svx/IAccessibleViewForwarder.hxx>

#include <comphelper/diagnose_ex.hxx>

#include <tools/gen.hxx>

#include <sal/log.hxx>

#include <com/sun/star/beans/XPropertySet.hpp>

#include <com/sun/star/drawing/XMasterPageTarget.hpp>

#include <com/sun/star/lang/IndexOutOfBoundsException.hpp>

#include <utility>

using namespace ::com::sun::star;

using namespace ::com::sun::star::uno;

using namespace ::com::sun::star::accessibility;

using ::com::sun::star::uno::Reference;

namespace accessibility {

AccessiblePageShape::AccessiblePageShape (

    uno::Reference<drawing::XDrawPage> xPage,

    const uno::Reference<XAccessible>& rxParent,

    const AccessibleShapeTreeInfo& rShapeTreeInfo)

    : AccessibleShape (AccessibleShapeInfo (nullptr, rxParent), rShapeTreeInfo),

      mxPage (std::move(xPage))

{

    // The main part of the initialization is done in the init method which

    // has to be called from this constructor's caller.

}

AccessiblePageShape::~AccessiblePageShape()

{

}

//=====  XAccessibleContext  ==================================================

sal_Int64 SAL_CALL

       AccessiblePageShape::getAccessibleChildCount()

{

    return 0;

}

/** Forward the request to the shape.  Return the requested shape or throw

    an exception for a wrong index.

*/

uno::Reference<XAccessible> SAL_CALL

    AccessiblePageShape::getAccessibleChild( sal_Int64 )

{

    throw lang::IndexOutOfBoundsException (u"page shape has no children"_ustr,

        static_cast<uno::XWeak*>(this));

}

// OAccessible

awt::Rectangle AccessiblePageShape::implGetBounds()

{

    awt::Rectangle aBoundingBox;

    if (maShapeTreeInfo.GetViewForwarder() != nullptr)

    {

        uno::Reference<beans::XPropertySet> xSet (mxPage, uno::UNO_QUERY);

        if (xSet.is())

        {

            uno::Any aValue;

            aValue = xSet->getPropertyValue (u"BorderLeft"_ustr);

            aValue >>= aBoundingBox.X;

            aValue = xSet->getPropertyValue (u"BorderTop"_ustr);

            aValue >>= aBoundingBox.Y;

            aValue = xSet->getPropertyValue (u"Width"_ustr);

            aValue >>= aBoundingBox.Width;

            aValue = xSet->getPropertyValue (u"Height"_ustr);

            aValue >>= aBoundingBox.Height;

        }

        // Transform coordinates from internal to pixel.

        ::Size aPixelSize = maShapeTreeInfo.GetViewForwarder()->LogicToPixel (

            ::Size (aBoundingBox.Width, aBoundingBox.Height));

        ::Point aPixelPosition = maShapeTreeInfo.GetViewForwarder()->LogicToPixel (

            ::Point (aBoundingBox.X, aBoundingBox.Y));

        // Clip the shape's bounding box with the bounding box of its parent.

        Reference<XAccessibleComponent> xParentComponent (

            getAccessibleParent(), uno::UNO_QUERY);

        if (xParentComponent.is())

        {

            // Make the coordinates relative to the parent.

            awt::Point aParentLocation (xParentComponent->getLocationOnScreen());

            int x = aPixelPosition.getX() - aParentLocation.X;

            int y = aPixelPosition.getY() - aParentLocation.Y;

            // Clip with parent (with coordinates relative to itself).

            ::tools::Rectangle aBBox (

                x, y, x + aPixelSize.getWidth(), y + aPixelSize.getHeight());

            awt::Size aParentSize (xParentComponent->getSize());

            ::tools::Rectangle aParentBBox (0,0, aParentSize.Width, aParentSize.Height);

            aBBox = aBBox.GetIntersection (aParentBBox);

            aBoundingBox = awt::Rectangle (

                aBBox.Left(),

                aBBox.Top(),

                aBBox.getOpenWidth(),

                aBBox.getOpenHeight());

        }

        else

            aBoundingBox = awt::Rectangle (

                aPixelPosition.getX(), aPixelPosition.getY(),

                aPixelSize.getWidth(), aPixelSize.getHeight());

    }

    return aBoundingBox;

}

//=====  XAccessibleComponent  ================================================

sal_Int32 SAL_CALL AccessiblePageShape::getForeground()

{

    ensureAlive();

    sal_Int32 nColor (0x0ffffffL);

    try

    {

        uno::Reference<beans::XPropertySet> aSet (mxPage, uno::UNO_QUERY);

        if (aSet.is())

        {

            uno::Any aColor = aSet->getPropertyValue (u"LineColor"_ustr);

            aColor >>= nColor;

        }

    }

    catch (const css::beans::UnknownPropertyException&)

    {

        // Ignore exception and return default color.

    }

    return nColor;

}

/** Extract the background color from the Background property of the

    draw page or its master page.

*/

sal_Int32 SAL_CALL AccessiblePageShape::getBackground()

{

    ensureAlive();

    sal_Int32 nColor (0x01020ffL);

    try

    {

        uno::Reference<beans::XPropertySet> xSet (mxPage, uno::UNO_QUERY);

        if (xSet.is())

        {

            uno::Any aBGSet = xSet->getPropertyValue (u"Background"_ustr);

            Reference<beans::XPropertySet> xBGSet (aBGSet, uno::UNO_QUERY);

            if ( ! xBGSet.is())

            {

                // Draw page has no Background property.  Try the master

                // page instead.

                Reference<drawing::XMasterPageTarget> xTarget (mxPage, uno::UNO_QUERY);

                if (xTarget.is())

                {

                    xSet.set(xTarget->getMasterPage(), uno::UNO_QUERY);

                    aBGSet = xSet->getPropertyValue (u"Background"_ustr);

                    xBGSet.set(aBGSet, uno::UNO_QUERY);

                }

            }

            // Fetch the fill color.  Has to be extended to cope with

            // gradients, hashes, and bitmaps.

            if (xBGSet.is())

            {

                uno::Any aColor = xBGSet->getPropertyValue (u"FillColor"_ustr);

                aColor >>= nColor;

            }

            else

                SAL_WARN("sd", "no Background property in page");

        }

    }

    catch (const css::beans::UnknownPropertyException&)

    {

        TOOLS_WARN_EXCEPTION("sd", "caught exception due to unknown property");

        // Ignore exception and return default color.

    }

    return nColor;

}

// XServiceInfo

OUString SAL_CALL

    AccessiblePageShape::getImplementationName()

{

    ensureAlive();

    return u"AccessiblePageShape"_ustr;

}

css::uno::Sequence< OUString> SAL_CALL

    AccessiblePageShape::getSupportedServiceNames()

{

    ensureAlive();

    return AccessibleShape::getSupportedServiceNames();

}

//=====  XComponent  ==========================================================

void AccessiblePageShape::dispose()

{

    // Cleanup.

    mxShape = nullptr;

    // Call base classes.

    AccessibleContextBase::dispose ();

}

//=====  protected internal  ==================================================

OUString

    AccessiblePageShape::CreateAccessibleBaseName()

{

    return u"PageShape"_ustr;

}

OUString

    AccessiblePageShape::CreateAccessibleName()

{

    Reference<beans::XPropertySet> xPageProperties (mxPage, UNO_QUERY);

    // Get name of the current slide.

    OUString sCurrentSlideName;

    try

    {

        if (xPageProperties.is())

        {

            xPageProperties->getPropertyValue( u"LinkDisplayName"_ustr ) >>= sCurrentSlideName;

        }

    }

    catch (const beans::UnknownPropertyException&)

    {

    }

    return CreateAccessibleBaseName()+": "+sCurrentSlideName;

}

} // end of namespace accessibility

/* vim:set shiftwidth=4 softtabstop=4 expandtab: */