#include "precompiled.h"

/*
 * wxJavaScript - htmlwin.cpp
 *
 * Copyright (c) 2002-2007 Franky Braem and the wxJavaScript project
 *
 * Project Info: http://www.wxjavascript.net or http://wxjs.sourceforge.net
 *
 * This library is free software; you can redistribute it and/or modify it
 * under the terms of the GNU Lesser General Public License as published by
 * the Free Software Foundation; either version 2.1 of the License, or
 * (at your option) any later version.
 *
 * This library is distributed in the hope that it will be useful, but
 * WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
 * or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public
 * License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with this library; if not, write to the Free Software
 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301,
 * USA.
 *
 * $Id: htmlwin.cpp 598 2007-03-07 20:13:28Z fbraem $
 */
#ifndef WX_PRECOMP
    #include <wx/wx.h>
#endif
#include <wx/filename.h>

/***
 * <file>control/htmlwin</file>
 * <module>gui</module>
 * <class name="wxHtmlWindow" prototype="@wxScrolledWindow">
 *  The purpose of this class is to display HTML pages (either local file or downloaded via HTTP protocol) 
 *  in a window. The width of the window is constant - given in the constructor - and virtual height is changed 
 *  dynamically depending on page size.
 * </class>
 */

#include "../../common/main.h"

#include "../event/evthand.h"
#include "../event/jsevent.h"
#include "../event/htmllink.h"

#include "../misc/size.h"
#include "../misc/point.h"
#include "htmlwin.h"
#include "frame.h"
#include "window.h"

using namespace wxjs;
using namespace wxjs::gui;

WXJS_INIT_CLASS(HtmlWindow, "wxHtmlWindow", 1)

HtmlWindow::HtmlWindow(JSContext *cx, JSObject *obj)
	: wxHtmlWindow()
	, Object(obj, cx)
{
}

HtmlWindow::~HtmlWindow()
{
}

void HtmlWindow::InitClass(JSContext* WXUNUSED(cx), JSObject* WXUNUSED(obj), JSObject* WXUNUSED(proto))
{
    InitConnectEventMap();
}

/***
 * <constants>
 *	<type name="styles">
 *   <constant name="SCROLLBAR_NEVER">Never display scrollbars, not even when the page is larger than the window.</constant>
 *   <constant name="SCROLLBAR_AUTO">Display scrollbars only if page's size exceeds window's size.</constant>
 *   <constant name="NO_SELECTION">Don't allow the user to select text.</constant>
 *   <constant name="DEFAULT_STYLE" />
 *  </type>
 * </constants>
 */

WXJS_BEGIN_CONSTANT_MAP(HtmlWindow)
  WXJS_CONSTANT(wxHW_, SCROLLBAR_NEVER)
  WXJS_CONSTANT(wxHW_, SCROLLBAR_AUTO)
  WXJS_CONSTANT(wxHW_, NO_SELECTION)
  WXJS_CONSTANT(wxHW_, DEFAULT_STYLE)
WXJS_END_CONSTANT_MAP()

/***
 * <properties>
 *  <property name="historyCanBack" type="String" readonly="Y">
 *   Returns true if it is possible to go back in the history (i.e. @wxHtmlWindow#historyBack won't fail).
 *  </property>
 *  <property name="historyCanForward" type="String" readonly="Y">
 *   Returns true if it is possible to go forward in the history (i.e. @wxHtmlWindow#historyForward won't fail).
 *  </property>
 *  <property name="openedAnchor" type="String" readonly="Y">
 *   Returns anchor within currently opened page (see @wxHtmlWindow#openedPage). 
 *   If no page is opened or if the displayed page wasn't produced by call to @wxHtmlWindow#loadPage, 
 *   empty string is returned.
 *  </property>
 *  <property name="openedPage" type="String" readonly="Y">
 *   Returns full location of the opened page. If no page is opened or if the displayed page wasn't 
 *   produced by call to @wxHtmlWindow#loadPage, empty string is returned. 
 *  </property>
 *  <property name="openedPageTitle" type="String" readonly="Y">
 *   Returns title of the opened page or wxEmptyString if current page does not contain &lt;title&gt; tag.
 *  </property>
 *  <property name="relatedFrame" type="@wxFrame">
 *   Gets/Sets the frame in which page title will be displayed.
 *  </property>
 *  <property name="text" type="String">
 *   Returns content of currently displayed page as plain text.
 *  </property>
 * </properties>
 */
WXJS_BEGIN_PROPERTY_MAP(HtmlWindow)
    WXJS_READONLY_PROPERTY(P_HISTORY_CAN_BACK, "historyCanBack")
    WXJS_READONLY_PROPERTY(P_HISTORY_CAN_FORWARD, "historyCanForward")
    WXJS_READONLY_PROPERTY(P_OPENED_ANCHOR, "openedAnchor")
    WXJS_READONLY_PROPERTY(P_OPENED_PAGE, "openedPage")
    WXJS_READONLY_PROPERTY(P_OPENED_PAGE_TITLE, "openedPageTitle")
    WXJS_PROPERTY(P_RELATED_FRAME, "relatedFrame")
    WXJS_READONLY_PROPERTY(P_TEXT, "text")
    WXJS_READONLY_PROPERTY(P_SELECTION_TEXT, "selectionText")
WXJS_END_PROPERTY_MAP()

bool HtmlWindow::GetProperty(wxHtmlWindow *p, JSContext *cx, JSObject* WXUNUSED(obj), int id, jsval *vp)
{
    switch (id) 
	{
    case P_HISTORY_CAN_BACK:
        *vp = ToJS(cx, p->HistoryCanBack());
        break;
    case P_HISTORY_CAN_FORWARD:
        *vp = ToJS(cx, p->HistoryCanForward());
        break;
    case P_OPENED_ANCHOR:
        *vp = ToJS(cx, p->GetOpenedAnchor());
        break;
    case P_OPENED_PAGE:
        *vp = ToJS(cx, p->GetOpenedPage());
        break;
    case P_OPENED_PAGE_TITLE:
        *vp = ToJS(cx, p->GetOpenedPageTitle());
        break;
    case P_RELATED_FRAME:
        *vp = Frame::CreateObject(cx, p->GetRelatedFrame(), NULL);
        break;
    case P_TEXT:
        *vp = ToJS(cx, p->ToText());
        break;
    case P_SELECTION_TEXT:
        *vp = ToJS(cx, p->SelectionToText());
        break;
    }
    return true;
}

bool HtmlWindow::SetProperty(wxHtmlWindow *p, JSContext *cx, JSObject* WXUNUSED(obj), int id, jsval *vp)
{
    switch (id) 
	{
	case P_RELATED_FRAME:
		{
            wxFrame *frame = Frame::GetPrivate(cx, *vp);
			if ( frame != NULL )
				p->SetRelatedFrame(frame, wxT("%s"));
			break;
		}
	}
    return true;
}

bool HtmlWindow::AddProperty(wxHtmlWindow *p, JSContext* WXUNUSED(cx), JSObject* WXUNUSED(obj), const wxString &prop, jsval* WXUNUSED(vp))
{
    EventConnector<wxHtmlWindow>::ConnectEvent(p, prop);
    return true;
}

/***
 * <ctor>
 *  <function>
 *   <arg name="Parent" type="@wxWindow">The parent window</arg>
 *   <arg name="Id" type="Integer">A windows identifier. Use -1 when you don't need it.</arg>
 *   <arg name="Position" type="@wxPoint" default="wxDefaultPosition">The position of the control on the given parent</arg>
 *   <arg name="Size" type="@wxSize" default="wxDefaultSize">The size of the control</arg>
 *   <arg name="Style" type="Integer" default="wxHtmlWindow.DEFAULT_STYLE">The style of the control</arg>
 *  </function>
 *  <desc>
 *   Constructs a new wxHtmlWindow object.
 *  </desc>
 * </ctor>
 */
wxHtmlWindow* HtmlWindow::Construct(JSContext *cx, JSObject *obj, uintN argc, jsval *argv, bool WXUNUSED(constructing))
{
	const wxPoint *pt = &wxDefaultPosition;
	const wxSize *size = &wxDefaultSize;
	int style = wxHW_DEFAULT_STYLE;
    int id = -1;

	if ( argc > 5 )
        argc = 5;

	switch(argc)
	{
	case 5:
		if ( ! FromJS(cx, argv[4], style) )
			break;
		// Walk through
	case 4:
		size = Size::GetPrivate(cx, argv[3]);
		if ( size == NULL )
			break;
		// Walk through
	case 3:
		pt = Point::GetPrivate(cx, argv[2]);
		if ( pt == NULL )
			break;
		// Walk through
    case 2:
        if ( ! FromJS(cx, argv[1], id) )
            break;
        // Walk through
	default:

        wxWindow *parent = Window::GetPrivate(cx, argv[0]);
		if ( parent == NULL )
            return NULL;

        Object *wxjsParent = dynamic_cast<Object *>(parent);
        JS_SetParent(cx, obj, wxjsParent->GetObject());

		HtmlWindow *p = new HtmlWindow(cx, obj);
		p->Create(parent, id, *pt, *size, style);
		return p;
	}

	return NULL;
}

WXJS_INIT_EVT_CONNECTOR_MAP(wxHtmlWindow)
WXJS_BEGIN_EVT_CONNECTOR_MAP(HtmlWindow)
    WXJS_EVT_CONNECTOR(wxT("onLinkClicked"), ConnectLinkClicked)
WXJS_END_EVT_CONNECTOR_MAP()

void HtmlWindow::ConnectLinkClicked(wxHtmlWindow *p)
{
    p->Connect(wxEVT_COMMAND_HTML_LINK_CLICKED, wxHtmlLinkEventHandler(HtmlWindow::OnLinkClicked));
}

/***
 * <events>
 *  <event name="onLinkClicked">
 *   This event is triggered when a hyperlinck is clicked. The function receives
 *   a @wxHtmlLinkEvent as argument.
 *  </event>
 * </events>
 */
void HtmlWindow::OnLinkClicked(wxHtmlLinkEvent &event)
{
	PrivHtmlLinkEvent::Fire<HtmlLinkEvent>(this, event, "onLinkClicked");
}

WXJS_BEGIN_METHOD_MAP(HtmlWindow)
    WXJS_METHOD("appendToPage", appendToPage, 1)
    WXJS_METHOD("historyBack", historyBack, 0)
    WXJS_METHOD("historyClear", historyClear, 0)
    WXJS_METHOD("historyBack", historyBack, 0)
    WXJS_METHOD("historyBack", historyBack, 0)
    WXJS_METHOD("loadFile", loadFile, 1)
    WXJS_METHOD("loadPage", loadPage, 1)
    WXJS_METHOD("setPage", setPage, 1)
    WXJS_METHOD("setRelatedFrame", setRelatedFrame, 2)
    WXJS_METHOD("setRelatedStatusBar", setRelatedStatusBar, 0)
    WXJS_METHOD("selectAll", selectAll, 0)
    WXJS_METHOD("selectLine", selectWord, 1)
    WXJS_METHOD("selectWord", selectWord, 1)
    WXJS_METHOD("setBorders", setBorders, 1)
    WXJS_METHOD("setFonts", setFonts, 2)
WXJS_END_METHOD_MAP()

//TODO: AddFilter

/***
 * <method name="appendToPage">
 *  <function returns="Boolean">
 *   <arg name="Source" type="String">HTML fragment</arg>
 *  </function>
 *  <desc>
 *   Appends HTML fragment to currently displayed text and refreshes the window.
 *   False is returned on failure.
 *  </desc>
 * </method>
 */
JSBool HtmlWindow::appendToPage(JSContext *cx, JSObject *obj, uintN WXUNUSED(argc), jsval *argv, jsval *rval)
{
    wxHtmlWindow *p = GetPrivate(cx, obj);
	if ( p == NULL )
		return JS_FALSE;

    wxString html;
    FromJS(cx, argv[0], html);
    *rval = ToJS(cx, p->AppendToPage(html));
	return JS_TRUE;
}

/***
 * <method name="historyBack">
 *  <function returns="Boolean" />
 *  <desc>
 *   Moves back to the previous page. (each page displayed using @wxHtmlWindow#loadPage is stored in history list.)
 *  </desc>
 * </method>
 */
JSBool HtmlWindow::historyBack(JSContext *cx, JSObject *obj, uintN WXUNUSED(argc), jsval* WXUNUSED(argv), jsval *rval)
{
    wxHtmlWindow *p = GetPrivate(cx, obj);
	if ( p == NULL )
		return JS_FALSE;

    *rval = ToJS(cx, p->HistoryBack());
	return JS_TRUE;
}

/***
 * <method name="historyClear">
 *  <function />
 *  <desc>
 *   Clears the history.
 *  </desc>
 * </method>
 */
JSBool HtmlWindow::historyClear(JSContext *cx, JSObject *obj, uintN WXUNUSED(argc), jsval* WXUNUSED(argv), jsval* WXUNUSED(rval))
{
    wxHtmlWindow *p = GetPrivate(cx, obj);
	if ( p == NULL )
		return JS_FALSE;

    p->HistoryClear();
	return JS_TRUE;
}

/***
 * <method name="historyForward">
 *  <function returns="Boolean" />
 *  <desc>
 *   Moves forward to the next page. (each page displayed using @wxHtmlWindow#loadPage is stored in history list.)
 *  </desc>
 * </method>
 */
JSBool HtmlWindow::historyForward(JSContext *cx, JSObject *obj, uintN WXUNUSED(argc), jsval* WXUNUSED(argv), jsval* rval)
{
    wxHtmlWindow *p = GetPrivate(cx, obj);
	if ( p == NULL )
		return JS_FALSE;

    *rval = ToJS(cx, p->HistoryForward());
	return JS_TRUE;
}

/***
 * <method name="loadFile">
 *  <function returns="Boolean">
 *   <arg name="filename" type="@wxFileName">The file to load</arg>
 *  </function>
 *  <function returns="Boolean">
 *   <arg name="filename" type="String">The file to load</arg>
 *  </function>
 *  <desc>
 *   Loads HTML page from file and displays it. Returns false on failure.
 *  </desc>
 * </method>
 */
JSBool HtmlWindow::loadFile(JSContext *cx, JSObject *obj, uintN WXUNUSED(argc), jsval* argv, jsval* rval)
{
    wxHtmlWindow *p = GetPrivate(cx, obj);
	if ( p == NULL )
		return JS_FALSE;

    if ( JSVAL_IS_OBJECT(argv[0]) )
    {
        JSClass *clazz = wxjs::GetClass(cx, "wxFileName");
        if ( clazz != NULL )
        {
            wxFileName *filename = (wxFileName *) JS_GetInstancePrivate(cx, JSVAL_TO_OBJECT(argv[0]), clazz, NULL);
            if ( filename != NULL )
            {
                *rval = ToJS(cx, p->LoadFile(*filename));
                return JS_TRUE;
            }
        }
    }

    wxString filename;
    FromJS(cx, argv[0], filename);
    *rval = ToJS(cx, p->LoadFile(filename));

    return JS_TRUE;
}

/***
 * <method name="loadPage">
 *  <function returns="Boolean">
 *   <arg name="Location" type="String">The address of document</arg>
 *  </function>
 *  <desc>
 *   Unlike @wxHtmlWindow#setPage this function first loads HTML page from location and then displays it.
 *  </desc>
 * </method>
 */
JSBool HtmlWindow::loadPage(JSContext *cx, JSObject *obj, uintN WXUNUSED(argc), jsval* argv, jsval* rval)
{
    wxHtmlWindow *p = GetPrivate(cx, obj);
	if ( p == NULL )
		return JS_FALSE;

    wxString location;
    FromJS(cx, argv[0], location);
    *rval = ToJS(cx, p->LoadPage(location));

    return JS_TRUE;
}

//TODO: readCustomization

/***
 * <method name="selectAll">
 *  <function />
 *  <desc>
 *   Selects all text in the window.
 *  </desc>
 * </method>
 */
JSBool HtmlWindow::selectAll(JSContext *cx, JSObject *obj, uintN WXUNUSED(argc), jsval* WXUNUSED(argv), jsval* WXUNUSED(rval))
{
    wxHtmlWindow *p = GetPrivate(cx, obj);
	if ( p == NULL )
		return JS_FALSE;

    p->SelectAll();

    return JS_TRUE;
}

/***
 * <method name="selectLine">
 *  <function>
 *   <arg name="Pos" type="@wxPoint" />
 *  </function>
 *  <desc>
 *   Selects the line of text that pos points at. Note that pos is relative to the top of displayed page, 
 *   not to window's origin, use @wxScrolledWindow#calcUnscrolledPosition to convert physical coordinate. 
 *  </desc>
 * </method>
 */
JSBool HtmlWindow::selectLine(JSContext *cx, JSObject *obj, uintN WXUNUSED(argc), jsval* argv, jsval* WXUNUSED(rval))
{
    wxHtmlWindow *p = GetPrivate(cx, obj);
	if ( p == NULL )
		return JS_FALSE;

    wxPoint *pos = Point::GetPrivate(cx, argv[0]);
    if ( pos != NULL )
    {
        p->SelectLine(*pos);
    }
    return JS_TRUE;
}

/***
 * <method name="selectWord">
 *  <function>
 *   <arg name="Pos" type="@wxPoint" />
 *  </function>
 *  <desc>
 *   Selects the word at position pos. Note that pos is relative to the top of displayed page,
 *   not to window's origin, use @wxScrolledWindow#calcUnscrolledPosition to convert physical coordinate.
 *  </desc>
 * </method>
 */
JSBool HtmlWindow::selectWord(JSContext *cx, JSObject *obj, uintN WXUNUSED(argc), jsval* argv, jsval* WXUNUSED(rval))
{
    wxHtmlWindow *p = GetPrivate(cx, obj);
	if ( p == NULL )
		return JS_FALSE;

    wxPoint *pos = Point::GetPrivate(cx, argv[0]);
    if ( pos != NULL )
    {
        p->SelectWord(*pos);
    }
    return JS_TRUE;
}

/***
 * <method name="setBorders">
 *  <function>
 *   <arg name="Border" type="Integer" />
 *  </function>
 *  <desc>
 *   This function sets the space between border of window and HTML contents.
 *  </desc>
 * </method>
 */
JSBool HtmlWindow::setBorders(JSContext *cx, JSObject *obj, uintN WXUNUSED(argc), jsval* argv, jsval* WXUNUSED(rval))
{
    wxHtmlWindow *p = GetPrivate(cx, obj);
	if ( p == NULL )
		return JS_FALSE;

    int border;
    if ( FromJS(cx, argv[0], border) )
    {
        p->SetBorders(border);
    }
    return JS_TRUE;
}

/***
 * <method name="setFonts">
 *  <function>
 *   <arg name="NormalFace" type="String">
 *    This is face name for normal (i.e. non-fixed) font. It can be either empty string 
 *    (then the default face is chosen) or platform-specific face name. Examples are 
 *    "helvetica" under Unix or "Times New Roman" under Windows.
 *   </arg>
 *   <arg name="FixedFace" type="String">
 *    The same thing for fixed face
 *   </arg>
 *   <arg name="Sizes" type="Array" default="null">
 *    This is an array of 7 items of Integer type. The values represent size of font with HTML size 
 *    from -2 to +4 ( &lt;FONT SIZE=-2&gt; to &lt;FONT SIZE=+4&gt; ). Default sizes are used if sizes is null.
 *   </arg>
 *  </function>
 *  <desc>
 *   This function sets font sizes and faces
 *  </desc>
 * </method>
 */
JSBool HtmlWindow::setFonts(JSContext *cx, JSObject *obj, uintN argc, jsval* argv, jsval* WXUNUSED(rval))
{
    wxHtmlWindow *p = GetPrivate(cx, obj);
	if ( p == NULL )
		return JS_FALSE;

    wxString normalFace;
    wxString fixedFace;
    int *sizes = NULL;
    if (    argc > 2 
         && JSVAL_IS_OBJECT(argv[2]) )
    {
        JSObject *objArr = JSVAL_TO_OBJECT(argv[2]);
        if ( JS_IsArrayObject(cx, objArr) )
        {
		    jsuint length = 0;
		    JS_GetArrayLength(cx, objArr, &length);
		    sizes = new int[length];
		    for(jsuint i =0; i < length; i++)
		    {
			    jsval element;
			    JS_GetElement(cx, objArr, i, &element);
                FromJS(cx, element, sizes[i]);
		    }
        }
    }
    
    p->SetFonts(normalFace, fixedFace, sizes);
    delete[] sizes;

    return JS_TRUE;
}

/***
 * <method name="setPage">
 *  <function returns="Boolean">
 *   <arg name="Source" type="String">The HTML source</arg>
 *  </function>
 *  <desc>
 *   Sets HTML page and display it. This won't load the page!! It will display the source
 *  </desc>
 * </method>
 */
JSBool HtmlWindow::setPage(JSContext *cx, JSObject *obj, uintN WXUNUSED(argc), jsval* argv, jsval* rval)
{
    wxHtmlWindow *p = GetPrivate(cx, obj);
	if ( p == NULL )
		return JS_FALSE;

    wxString source;
    FromJS(cx, argv[0], source);
    *rval = ToJS(cx, p->SetPage(source));

    return JS_TRUE;
}

/***
 * <method name="setRelatedFrame">
 *  <function>
 *   <arg name="Frame" type="@wxFrame" />
 *   <arg name="Format" type="String" />
 *  </function>
 *  <desc>
 *   Sets the frame in which page title will be displayed. 
 *   format is format of frame title, e.g. "HtmlHelp : %s". 
 *   It must contain exactly one %s. This %s is substituted with HTML page title. 
 *  </desc>
 * </method>
 */
JSBool HtmlWindow::setRelatedFrame(JSContext *cx, JSObject *obj, uintN WXUNUSED(argc), jsval* argv, jsval* WXUNUSED(rval))
{
    wxHtmlWindow *p = GetPrivate(cx, obj);
	if ( p == NULL )
		return JS_FALSE;

    wxFrame *frame = Frame::GetPrivate(cx, argv[0]);
    if ( frame == NULL )
    {
        JS_ReportError(cx, "Argument %d must be a %s in %s", 1, "wxFrame", "setRelatedFrame");
        return JS_FALSE;
    }

    wxString format;
    FromJS(cx, argv[1], format);
    p->SetRelatedFrame(frame, format);

    return JS_TRUE;
}

/***
 * <method name="setRelatedStatusBar">
 *  <function>
 *   <arg name="Bar" type="Integer" default="-1" />
 *  </function>
 *  <desc>
 *   After calling @wxHtmlWindow#setRelatedFrame, this sets statusbar slot where messages 
 *   will be displayed. (Default is -1 = no messages.)
 *  </desc>
 * </method>
 */
JSBool HtmlWindow::setRelatedStatusBar(JSContext *cx, JSObject *obj, uintN argc, jsval* argv, jsval* WXUNUSED(rval))
{
    wxHtmlWindow *p = GetPrivate(cx, obj);
	if ( p == NULL )
		return JS_FALSE;

    int bar = -1; 
    if ( argc > 0 )
        FromJS(cx, argv[0], bar);
    p->SetRelatedStatusBar(bar);

    return JS_TRUE;
}

//TODO: WriteCustomization