/****************************************************************************

**

** Copyright (C) 2010 Nokia Corporation and/or its subsidiary(-ies).

** All rights reserved.

** Contact: Nokia Corporation (qt-info@nokia.com)

**

** This file is part of the QtDeclarative module of the Qt Toolkit.

**

** $QT_BEGIN_LICENSE:LGPL$

** No Commercial Usage

** This file contains pre-release code and may not be distributed.

** You may use this file in accordance with the terms and conditions

** contained in the Technology Preview License Agreement accompanying

** this package.

**

** GNU Lesser General Public License Usage

** Alternatively, this file may be used under the terms of the GNU Lesser

** General Public License version 2.1 as published by the Free Software

** Foundation and appearing in the file LICENSE.LGPL included in the

** packaging of this file.  Please review the following information to

** ensure the GNU Lesser General Public License version 2.1 requirements

** will be met: http://www.gnu.org/licenses/old-licenses/lgpl-2.1.html.

**

** In addition, as a special exception, Nokia gives you certain additional

** rights.  These rights are described in the Nokia Qt LGPL Exception

** version 1.1, included in the file LGPL_EXCEPTION.txt in this package.

**

** If you have questions regarding the use of this file, please contact

** Nokia at qt-info@nokia.com.

**

**

**

**

**

**

**

**

** $QT_END_LICENSE$

**

****************************************************************************/

#include "qdeclarativewebview_p.h"

#include "qdeclarativewebview_p_p.h"

#include <qdeclarative.h>

#include <qdeclarativeengine.h>

#include <qdeclarativecontext.h>

#include <QDebug>

#include <QPen>

#include <QFile>

#include <QEvent>

#include <QMouseEvent>

#include <QKeyEvent>

#include <QBasicTimer>

#include <QApplication>

#include <QGraphicsSceneMouseEvent>

#include <QtWebKit/QWebPage>

#include <QtWebKit/QWebFrame>

#include <QtWebKit/QWebElement>

#include <QtWebKit/QWebSettings>

QT_BEGIN_NAMESPACE

static const int MAX_DOUBLECLICK_TIME=500; // XXX need better gesture system

class QDeclarativeWebViewPrivate

{

public:

    QDeclarativeWebViewPrivate(QDeclarativeWebView* qq)

      : q(qq), page(0), preferredwidth(0), preferredheight(0),

            progress(1.0), status(QDeclarativeWebView::Null), pending(PendingNone),

            newWindowComponent(0), newWindowParent(0),

            pressTime(400),

            rendering(true)

    {

        QObject::connect(q, SIGNAL(focusChanged(bool)), q, SLOT(propagateFocusToWebPage(bool)));

    }

    QDeclarativeWebView *q;

    QUrl url; // page url might be different if it has not loaded yet

    QWebPage *page;

    QGraphicsWebView* view;

    int preferredwidth, preferredheight;

    qreal progress;

    QDeclarativeWebView::Status status;

    QString statusText;

    enum { PendingNone, PendingUrl, PendingHtml, PendingContent } pending;

    QUrl pending_url;

    QString pending_string;

    QByteArray pending_data;

    mutable QDeclarativeWebSettings settings;

    QDeclarativeComponent *newWindowComponent;

    QDeclarativeItem *newWindowParent;

    QBasicTimer pressTimer;

    QPoint pressPoint;

    int pressTime; // milliseconds before it's a "hold"

    static void windowObjects_append(QDeclarativeListProperty<QObject> *prop, QObject *o) {

        static_cast<QDeclarativeWebViewPrivate *>(prop->data)->windowObjects.append(o);

        static_cast<QDeclarativeWebViewPrivate *>(prop->data)->updateWindowObjects();

    }

    void updateWindowObjects();

    QObjectList windowObjects;

    bool rendering;

};

/*!

    \qmlclass WebView QDeclarativeWebView

  \since 4.7

    \brief The WebView item allows you to add web content to a canvas.

    \inherits Item

    A WebView renders web content based on a URL.

    This type is made available by importing the \c org.webkit module:

    \bold{import org.webkit 1.0}

    If the width and height of the item is not set, they will

    dynamically adjust to a size appropriate for the content.

    This width may be large for typical online web pages.

    If the width or height is explictly set, the rendered website

    will be clipped, not scaled, to fit into the set dimensions.

    If the preferredWidth is set, the width will be this amount or larger,

    usually laying out the web content to fit the preferredWidth.

    \qml

    import org.webkit 1.0

    WebView {

        url: "http://www.nokia.com"

        preferredWidth: 490

        preferredHeight: 400

        scale: 0.5

        smooth: false

        smoothCache: true

    }

    \endqml

    \image webview.png

    The item includes no scrolling, scaling,

    toolbars, etc., those must be implemented around WebView. See the WebBrowser example

    for a demonstration of this.

*/

/*!

    \internal

    \class QDeclarativeWebView

    \brief The QDeclarativeWebView class allows you to add web content to a QDeclarativeView.

    A WebView renders web content base on a URL.

    \image webview.png

    The item includes no scrolling, scaling,

    toolbars, etc., those must be implemented around WebView. See the WebBrowser example

    for a demonstration of this.

    A QDeclarativeWebView object can be instantiated in Qml using the tag \l WebView.

*/

QDeclarativeWebView::QDeclarativeWebView(QDeclarativeItem *parent)

  : QDeclarativeItem(parent)

{

    init();

}

QDeclarativeWebView::~QDeclarativeWebView()

{

    delete d->page;

    delete d;

}

void QDeclarativeWebView::init()

{

    d = new QDeclarativeWebViewPrivate(this);

    QWebSettings::enablePersistentStorage();

    setAcceptHoverEvents(true);

    setAcceptedMouseButtons(Qt::LeftButton);

    setFlag(QGraphicsItem::ItemHasNoContents, true);

    setClip(true);

    d->page = 0;

    d->view = new QGraphicsWebView(this);

    d->view->setResizesToContents(true);

    d->view->setFlag(QGraphicsItem::ItemStacksBehindParent, true);

    connect(d->view, SIGNAL(geometryChanged()), this, SLOT(updateDeclarativeWebViewSize()));

    connect(d->view, SIGNAL(scaleChanged()), this, SIGNAL(contentsScaleChanged()));

}

void QDeclarativeWebView::componentComplete()

{

    QDeclarativeItem::componentComplete();

    switch (d->pending) {

        case QDeclarativeWebViewPrivate::PendingUrl:

            setUrl(d->pending_url);

            break;

        case QDeclarativeWebViewPrivate::PendingHtml:

            setHtml(d->pending_string, d->pending_url);

            break;

        case QDeclarativeWebViewPrivate::PendingContent:

            setContent(d->pending_data, d->pending_string, d->pending_url);

            break;

        default:

            break;

    }

    d->pending = QDeclarativeWebViewPrivate::PendingNone;

    d->updateWindowObjects();

}

QDeclarativeWebView::Status QDeclarativeWebView::status() const

{

    return d->status;

}

/*!

    \qmlproperty real WebView::progress

    This property holds the progress of loading the current URL, from 0 to 1.

    If you just want to know when progress gets to 1, use

    WebView::onLoadFinished() or WebView::onLoadFailed() instead.

*/

qreal QDeclarativeWebView::progress() const

{

    return d->progress;

}

void QDeclarativeWebView::doLoadStarted()

{

    if (!d->url.isEmpty()) {

        d->status = Loading;

        emit statusChanged(d->status);

    }

    emit loadStarted();

}

void QDeclarativeWebView::doLoadProgress(int p)

{

    if (d->progress == p/100.0)

        return;

    d->progress = p/100.0;

    emit progressChanged();

}

void QDeclarativeWebView::pageUrlChanged()

{

    updateContentsSize();

    if ((d->url.isEmpty() && page()->mainFrame()->url() != QUrl(QLatin1String("about:blank")))

        || (d->url != page()->mainFrame()->url() && !page()->mainFrame()->url().isEmpty()))

    {

        d->url = page()->mainFrame()->url();

        if (d->url == QUrl(QLatin1String("about:blank")))

            d->url = QUrl();

        emit urlChanged();

    }

}

void QDeclarativeWebView::doLoadFinished(bool ok)

{

    if (title().isEmpty())

        pageUrlChanged(); // XXX bug 232556 - pages with no title never get urlChanged()

    if (ok) {

        d->status = d->url.isEmpty() ? Null : Ready;

        emit loadFinished();

    } else {

        d->status = Error;

        emit loadFailed();

    }

    emit statusChanged(d->status);

}

/*!

    \qmlproperty url WebView::url

    This property holds the URL to the page displayed in this item. It can be set,

    but also can change spontaneously (eg. because of network redirection).

    If the url is empty, the page is blank.

    The url is always absolute (QML will resolve relative URL strings in the context

    of the containing QML document).

*/

QUrl QDeclarativeWebView::url() const

{

    return d->url;

}

void QDeclarativeWebView::setUrl(const QUrl &url)

{

    if (url == d->url)

        return;

    if (isComponentComplete()) {

        d->url = url;

        updateContentsSize();

        QUrl seturl = url;

        if (seturl.isEmpty())

            seturl = QUrl(QLatin1String("about:blank"));

        Q_ASSERT(!seturl.isRelative());

        page()->mainFrame()->load(seturl);

        emit urlChanged();

    } else {

        d->pending = d->PendingUrl;

        d->pending_url = url;

    }

}

/*!

    \qmlproperty int WebView::preferredWidth

    This property holds the ideal width for displaying the current URL.

*/

int QDeclarativeWebView::preferredWidth() const

{

    return d->preferredwidth;

}

void QDeclarativeWebView::setPreferredWidth(int iw)

{

    if (d->preferredwidth == iw) return;

    d->preferredwidth = iw;

    updateContentsSize();

    emit preferredWidthChanged();

}

/*!

    \qmlproperty int WebView::preferredHeight

    This property holds the ideal height for displaying the current URL.

    This only affects the area zoomed by heuristicZoom().

*/

int QDeclarativeWebView::preferredHeight() const

{

    return d->preferredheight;

}

void QDeclarativeWebView::setPreferredHeight(int ih)

{

    if (d->preferredheight == ih) return;

    d->preferredheight = ih;

    updateContentsSize();

    emit preferredHeightChanged();

}

/*!

    \qmlmethod bool WebView::evaluateJavaScript(string)

    Evaluates the \a scriptSource JavaScript inside the context of the

    main web frame, and returns the result of the last executed statement.

    Note that this JavaScript does \e not have any access to QML objects

    except as made available as windowObjects.

*/

QVariant QDeclarativeWebView::evaluateJavaScript(const QString &scriptSource)

{

    return this->page()->mainFrame()->evaluateJavaScript(scriptSource);

}

void QDeclarativeWebView::propagateFocusToWebPage(bool hasFocus)

{

    QFocusEvent e(hasFocus ? QEvent::FocusIn : QEvent::FocusOut);

    page()->event(&e);

}

void QDeclarativeWebView::updateDeclarativeWebViewSize()

{

    QSizeF size = d->view->geometry().size() * contentsScale();

    setImplicitWidth(size.width());

    setImplicitHeight(size.height());

}

void QDeclarativeWebView::initialLayout()

{

    // nothing useful to do at this point

}

void QDeclarativeWebView::updateContentsSize()

{

    if (d->page)

        d->page->setPreferredContentsSize(QSize(

            d->preferredwidth>0 ? d->preferredwidth : width(),

            d->preferredheight>0 ? d->preferredheight : height()));

}

void QDeclarativeWebView::geometryChanged(const QRectF &newGeometry,

                                 const QRectF &oldGeometry)

{

    if (newGeometry.size() != oldGeometry.size() && d->page) {

        QSize cs = d->page->preferredContentsSize();

        if (widthValid())

            cs.setWidth(width());

        if (heightValid())

            cs.setHeight(height());

        if (cs != d->page->preferredContentsSize())

            d->page->setPreferredContentsSize(cs);

    }

    QDeclarativeItem::geometryChanged(newGeometry, oldGeometry);

}

/*!

    \qmlproperty list<object> WebView::javaScriptWindowObjects

    A list of QML objects to expose to the web page.

    Each object will be added as a property of the web frame's window object.  The

    property name is controlled by the value of \c WebView.windowObjectName 

    attached property.

    Exposing QML objects to a web page allows JavaScript executing in the web 

    page itself to communicate with QML, by reading and writing properties and

    by calling methods of the exposed QML objects.

    This example shows how to call into a QML method using a window object.

    \qml

    WebView {

        javaScriptWindowObjects: QtObject {

            WebView.windowObjectName: "qml"

            function qmlCall() { 

                console.log("This call is in QML!");

            }

        }

        html: "<script>console.log(\"This is in WebKit!\"); window.qml.qmlCall();</script>"

    }

    \endqml

    The output of the example will be:

    \code

    This is in WebKit!

    This call is in QML!

    \endcode

    If Javascript is not enabled for the page, then this property does nothing.

*/

QDeclarativeListProperty<QObject> QDeclarativeWebView::javaScriptWindowObjects()

{

    return QDeclarativeListProperty<QObject>(this, d, &QDeclarativeWebViewPrivate::windowObjects_append);

}

QDeclarativeWebViewAttached *QDeclarativeWebView::qmlAttachedProperties(QObject *o)

{

    return new QDeclarativeWebViewAttached(o);

}

void QDeclarativeWebViewPrivate::updateWindowObjects()

{

    if (!q->isComponentCompletePublic() || !page)

        return;

    for (int ii = 0; ii < windowObjects.count(); ++ii) {

        QObject *object = windowObjects.at(ii);

        QDeclarativeWebViewAttached *attached = static_cast<QDeclarativeWebViewAttached *>(qmlAttachedPropertiesObject<QDeclarativeWebView>(object));

        if (attached && !attached->windowObjectName().isEmpty()) {

            page->mainFrame()->addToJavaScriptWindowObject(attached->windowObjectName(), object);

        }

    }

}

bool QDeclarativeWebView::renderingEnabled() const

{

    return d->rendering;

}

void QDeclarativeWebView::setRenderingEnabled(bool enabled)

{

    if (d->rendering == enabled)

        return;

    d->rendering = enabled;

    emit renderingEnabledChanged();

    d->view->setTiledBackingStoreFrozen(!enabled);

}

QMouseEvent *QDeclarativeWebView::sceneMouseEventToMouseEvent(QGraphicsSceneMouseEvent *e)

{

    QEvent::Type t;

    switch(e->type()) {

    default:

    case QEvent::GraphicsSceneMousePress:

        t = QEvent::MouseButtonPress;

        break;

    case QEvent::GraphicsSceneMouseRelease:

        t = QEvent::MouseButtonRelease;

        break;

    case QEvent::GraphicsSceneMouseMove:

        t = QEvent::MouseMove;

        break;

    case QGraphicsSceneEvent::GraphicsSceneMouseDoubleClick:

        t = QEvent::MouseButtonDblClick;

        break;

    }

    QMouseEvent *me = new QMouseEvent(t, (e->pos()/contentsScale()).toPoint(), e->button(), e->buttons(), 0);

    return me;

}

QMouseEvent *QDeclarativeWebView::sceneHoverMoveEventToMouseEvent(QGraphicsSceneHoverEvent *e)

{

    QEvent::Type t = QEvent::MouseMove;

    QMouseEvent *me = new QMouseEvent(t, (e->pos()/contentsScale()).toPoint(), Qt::NoButton, Qt::NoButton, 0);

    return me;

}

/*!

    \qmlsignal WebView::onDoubleClick(clickx,clicky)

    The WebView does not pass double-click events to the web engine, but rather

    emits this signals.