1
0
forked from 0ad/0ad
0ad/source/tools/atlas/wxJS/gui/control/toolbar.cpp
Ykkrosh 53bcba3368 Atlas: Updated wxJS to latest SVN version. Made the JS runtime have a greater lifetime than all the wx windows, to avoid garbage collection problems.
IGUIObject: Cache the JSObject*, to prevent some frequent allocation
while running GUI scripts.
JSInterface_IGUIObject: Fixed garbage collection issues.
JSInterface_IGUIObject, ScriptGlue: Changed to the JS_THREADSAFE form of
JS_GetClass.
Util: Avoid startup warnings on Linux caused by using unimplemented
cpu_* functions that aren't needed for anything important yet.
sysdep/unix: Changed to native line endings.

This was SVN commit r5154.
2007-06-08 22:56:01 +00:00

1377 lines
37 KiB
C++

#include "precompiled.h"
/*
* wxJavaScript - toolbar.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: toolbar.cpp 708 2007-05-14 15:30:45Z fbraem $
*/
#include <wx/wxprec.h>
#ifndef WX_PRECOMP
#include <wx/wx.h>
#endif
#include <wx/toolbar.h>
#include "../../common/main.h"
#include "../misc/app.h"
#include "../event/jsevent.h"
#include "../event/command.h"
#include "window.h"
#include "control.h"
#include "toolbar.h"
#include "tbartool.h"
#include "../misc/point.h"
#include "../misc/bitmap.h"
#include "../misc/size.h"
#include "../errors.h"
using namespace wxjs;
using namespace wxjs::gui;
bool ToolBar::DoDeleteTool(size_t pos, wxToolBarToolBase *tool)
{
if ( ! tool->IsControl() )
{
ToolBarToolData *data
= dynamic_cast<ToolBarToolData*>(tool->GetClientData());
if ( data )
{
delete data;
}
}
return wxToolBar::DoDeleteTool(pos, tool);
}
/***
* <file>control/toolbar</file>
* <module>gui</module>
* <class name="wxToolBar" prototype="@wxControl">
* A toolbar. <br /><br />
* Event handling is done as follows:
* When the tool has a function set as @wxToolBarTool#onTool, then that
* function will be executed.
* When a menu exists with the same id of the selected tool, the menu action is executed.
* When there is no menu, the action associated with the toolbar is executed.
* See @wxToolBar#actions and @wxMenu#actions
* <br /><br />
* See also @wxFrame#createToolBar
* </class>
*/
WXJS_INIT_CLASS(ToolBar, "wxToolBar", 2)
/***
* <properties>
* <property name="actions" type="Array">
* An array containing the function callbacks. A function will be called when a tool is selected.
* Use the id as index of the array.
* </property>
* <property name="margins" type="@wxSize">
* Gets/Sets the left/right and top/bottom margins, which are also used for inter-toolspacing.
* </property>
* <property name="toolBitmapSize" type="@wxSize">
* Gets/Sets the size of bitmap that the toolbar expects to have.
* The default bitmap size is 16 by 15 pixels.
* </property>
* <property name="toolPacking" type="Integer">
* Gets/Sets the value used for spacing tools. The default value is 1.
* The packing is used for spacing in the vertical direction if the toolbar is horizontal,
* and for spacing in the horizontal direction if the toolbar is vertical.
* </property>
* <property name="toolSeparation" type="Integer">
* Gets/Sets the separator size. The default value is 5.
* </property>
* <property name="toolSize" type="@wxSize" readonly="Y">
* Gets the size of a whole button, which is usually larger than a tool bitmap
* because of added 3D effects.
* </property>
* </properties>
*/
WXJS_BEGIN_PROPERTY_MAP(ToolBar)
WXJS_PROPERTY(P_TOOL_SIZE, "margins")
WXJS_READONLY_PROPERTY(P_TOOL_SIZE, "toolSize")
WXJS_PROPERTY(P_TOOL_BITMAP_SIZE, "toolBitmapSize")
WXJS_PROPERTY(P_TOOL_PACKING, "toolPacking")
WXJS_PROPERTY(P_TOOL_SEPARATION, "toolSeparation")
WXJS_END_PROPERTY_MAP()
bool ToolBar::GetProperty(wxToolBar* p,
JSContext* cx,
JSObject* WXUNUSED(obj),
int id,
jsval* vp)
{
switch (id)
{
case P_TOOL_SIZE:
{
const wxSize &size = p->GetToolSize();
*vp = Size::CreateObject(cx, new wxSize(size));
break;
}
case P_TOOL_BITMAP_SIZE:
{
const wxSize &size = p->GetToolBitmapSize();
*vp = Size::CreateObject(cx, new wxSize(size));
break;
}
case P_MARGINS:
*vp = Size::CreateObject(cx, new wxSize(p->GetMargins()));
break;
case P_TOOL_PACKING:
*vp = ToJS(cx, p->GetToolPacking());
break;
case P_TOOL_SEPARATION:
*vp = ToJS(cx, p->GetToolSeparation());
break;
}
return true;
}
bool ToolBar::SetProperty(wxToolBar* p,
JSContext* cx,
JSObject* WXUNUSED(obj),
int id,
jsval *vp)
{
switch (id)
{
case P_TOOL_BITMAP_SIZE:
{
wxSize *size = Size::GetPrivate(cx, *vp);
if ( size != NULL )
p->SetToolBitmapSize(*size);
break;
}
case P_MARGINS:
{
wxSize *size = Size::GetPrivate(cx, *vp);
if ( size != NULL )
p->SetMargins(size->GetWidth(), size->GetHeight());
break;
}
case P_TOOL_PACKING:
{
int pack;
if ( FromJS(cx, *vp, pack) )
p->SetToolPacking(pack);
break;
}
case P_TOOL_SEPARATION:
{
int size;
if ( FromJS(cx, *vp, size) )
p->SetToolSeparation(size);
break;
}
}
return true;
}
/***
* <constants>
* <type name="Styles">
* <constant name="FLAT">
* Gives the toolbar a flat look ('coolbar' or 'flatbar' style).
* Windows 95 and GTK 1.2 only.
* </constant>
* <constant name="DOCKABLE">
* Makes the toolbar floatable and dockable. GTK only.
* </constant>
* <constant name="HORIZONTAL">Specifies horizontal layout.</constant>
* <constant name="VERTICAL">
* Specifies vertical layout (not available for the GTK and Windows
* 95 toolbar).
* </constant>
* <constant name="3DBUTTONS">
* Gives wxToolBarSimple a mild 3D look to its buttons.
* </constant>
* <constant name="TEXT">
* Show the text in the toolbar buttons; by default only icons are shown.
* </constant>
* <constant name="NOICONS">
* Specifies no icons in the toolbar buttons; by default they are shown.
* </constant>
* <constant name="NODIVIDER">
* Specifies no divider above the toolbar; by default it is shown.
* Windows only.
* </constant>
* <constant name="NOALIGN">
* Specifies no alignment with the parent window. Windows only.
* </constant>
* </type>
* </constants>
*/
WXJS_BEGIN_CONSTANT_MAP(ToolBar)
WXJS_CONSTANT(wxTB_, FLAT)
WXJS_CONSTANT(wxTB_, DOCKABLE)
WXJS_CONSTANT(wxTB_, HORIZONTAL)
WXJS_CONSTANT(wxTB_, VERTICAL)
WXJS_CONSTANT(wxTB_, 3DBUTTONS)
WXJS_CONSTANT(wxTB_, TEXT)
WXJS_CONSTANT(wxTB_, NOICONS)
WXJS_CONSTANT(wxTB_, NODIVIDER)
WXJS_CONSTANT(wxTB_, NOALIGN)
WXJS_END_CONSTANT_MAP()
/***
* <ctor>
* <function />
* <function>
* <arg name="Parent" type="@wxWindow">
* The parent of wxToolBar.
* </arg>
* <arg name="Id" type="Integer">
* An window identifier. Use -1 when you don't need it.
* </arg>
* <arg name="Position" type="@wxPoint" default="wxDefaultPosition">
* The position of the ToolBar control on the given parent.
* </arg>
* <arg name="Size" type="@wxSize">
* The size of the ToolBar control.
* </arg>
* <arg name="Style" type="Integer"
* default="wxToolBar.HORIZONTAL | wxToolBar.NO_BORDER">
* The wxToolBar style.
* </arg>
* </function>
* <desc>
* Constructs a new wxToolBar object.
* </desc>
* </ctor>
*/
wxToolBar* ToolBar::Construct(JSContext *cx,
JSObject *obj,
uintN argc,
jsval *argv,
bool WXUNUSED(constructing))
{
ToolBar *p = new ToolBar();
SetPrivate(cx, obj, p);
if ( argc > 0 )
{
jsval rval;
create(cx, obj, argc, argv, &rval);
}
return p;
}
WXJS_BEGIN_METHOD_MAP(ToolBar)
WXJS_METHOD("create", create, 2)
WXJS_METHOD("addControl", addControl, 1)
WXJS_METHOD("addSeparator", addSeparator, 0)
WXJS_METHOD("addTool", addTool, 3)
WXJS_METHOD("addCheckTool", addCheckTool, 4)
WXJS_METHOD("addRadioTool", addRadioTool, 4)
WXJS_METHOD("deleteTool", deleteTool, 1)
WXJS_METHOD("deleteToolByPos", deleteToolByPos, 1)
WXJS_METHOD("enableTool", enableTool, 2)
WXJS_METHOD("findControl", findControl, 1)
WXJS_METHOD("getToolEnabled", getToolEnabled, 1)
WXJS_METHOD("getToolLongHelp", getToolLongHelp, 1)
WXJS_METHOD("getToolShortHelp", getToolShortHelp, 1)
WXJS_METHOD("getToolState", getToolState, 1)
WXJS_METHOD("insertControl", insertControl, 2)
WXJS_METHOD("insertSeparator", insertSeparator, 1)
WXJS_METHOD("insertTool", insertTool, 3)
WXJS_METHOD("realize", realize, 0)
WXJS_METHOD("setToolLongHelp", setToolLongHelp, 2)
WXJS_METHOD("setToolShortHelp", setToolShortHelp, 2)
WXJS_METHOD("toggleTool", toggleTool, 2)
WXJS_END_METHOD_MAP()
/***
* <method name="create">
* <function returns="Boolean">
* <arg name="Parent" type="@wxWindow">
* The parent of wxToolBar.
* </arg>
* <arg name="Id" type="Integer">
* An window identifier. Use -1 when you don't need it.
* </arg>
* <arg name="Position" type="@wxPoint" default="wxDefaultPosition">
* The position of the ToolBar control on the given parent.
* </arg>
* <arg name="Size" type="@wxSize">
* The size of the ToolBar control.
* </arg>
* <arg name="Style" type="Integer"
* default="wxToolBar.HORIZONTAL | wxToolBar.NO_BORDER">
* The wxToolBar style.
* </arg>
* </function>
* <desc>
* Constructs a new wxToolBar object.
* </desc>
* </method>
*/
JSBool ToolBar::create(JSContext *cx,
JSObject *obj,
uintN argc,
jsval *argv,
jsval *rval)
{
wxToolBar *p = GetPrivate(cx, obj);
*rval = JSVAL_FALSE;
if ( argc > 5 )
argc = 5;
int style = wxTB_HORIZONTAL | wxNO_BORDER;
const wxPoint *pt = &wxDefaultPosition;
const wxSize *size = &wxDefaultSize;
switch(argc)
{
case 5:
if ( ! FromJS(cx, argv[4], style) )
{
JS_ReportError(cx, WXJS_INVALID_ARG_TYPE, 5, "Integer");
return JS_FALSE;
}
// Fall through
case 4:
size = Size::GetPrivate(cx, argv[3]);
if ( size == NULL )
{
JS_ReportError(cx, WXJS_INVALID_ARG_TYPE, 4, "wxSize");
return JS_FALSE;
}
// Fall through
case 3:
pt = Point::GetPrivate(cx, argv[2]);
if ( pt == NULL )
{
JS_ReportError(cx, WXJS_INVALID_ARG_TYPE, 4, "wxPoint");
return JS_FALSE;
}
// Fall through
default:
int id;
if ( ! FromJS(cx, argv[1], id) )
{
JS_ReportError(cx, WXJS_INVALID_ARG_TYPE, 2, "Integer");
return JS_FALSE;
}
wxWindow *parent = Window::GetPrivate(cx, argv[0]);
if ( parent == NULL )
{
JS_ReportError(cx, WXJS_NO_PARENT_ERROR, GetClass()->name);
return JS_FALSE;
}
JavaScriptClientData *clntParent =
dynamic_cast<JavaScriptClientData *>(parent->GetClientObject());
if ( clntParent == NULL )
{
JS_ReportError(cx, WXJS_NO_PARENT_ERROR, GetClass()->name);
return JS_FALSE;
}
JS_SetParent(cx, obj, clntParent->GetObject());
if ( p->Create(parent, id, *pt, *size, style) )
{
*rval = JS_TRUE;
p->SetClientObject(new JavaScriptClientData(cx, obj, true, false));
JSObject *objActionArray = JS_NewArrayObject(cx, 0, NULL);
JS_DefineProperty(cx, obj, "actions", OBJECT_TO_JSVAL(objActionArray),
NULL, NULL, JSPROP_ENUMERATE |JSPROP_PERMANENT);
p->Connect(wxID_ANY, wxID_ANY, wxEVT_COMMAND_TOOL_CLICKED,
wxCommandEventHandler(ToolEventHandler::OnTool));
}
}
return JS_TRUE;
}
/***
* <method name="addControl">
* <function>
* <arg name="Control" type="@wxControl" />
* </function>
* <desc>
* Adds a control to the toolbar.
* </desc>
* </method>
*/
JSBool ToolBar::addControl(JSContext *cx,
JSObject *obj,
uintN WXUNUSED(argc),
jsval *argv,
jsval* WXUNUSED(rval))
{
wxToolBar *p = ToolBar::GetPrivate(cx, obj);
if ( p == NULL )
return JS_FALSE;
wxControl *control = Control::GetPrivate(cx, argv[0]);
if ( control != NULL )
{
p->AddControl(control);
return JS_TRUE;
}
return JS_FALSE;
}
/***
* <method name="addSeparator">
* <function />
* <desc>
* Adds a separator for spacing groups of tools.
* </desc>
* </method>
*/
JSBool ToolBar::addSeparator(JSContext *cx,
JSObject *obj,
uintN WXUNUSED(argc),
jsval* WXUNUSED(argv),
jsval* WXUNUSED(rval))
{
wxToolBar *p = GetPrivate(cx, obj);
if ( p == NULL )
return JS_FALSE;
p->AddSeparator();
return JS_TRUE;
}
/***
* <method name="addTool">
* <function returns="@wxToolBarTool">
* <arg name="Id" type="Integer">
* An integer that may be used to identify this tool
* </arg>
* <arg name="Label" type="String" />
* <arg name="Bitmap1" type="wxBitmap">
* The primary tool bitmap for toggle and button tools.
* </arg>
* <arg name="ShortHelp" type="String" default="">
* Used for tooltips
* </arg>
* <arg name="Kind" type="Integer" default="wxItemKind.NORMAL">
* May be wxItemKind.NORMAL for a normal button (default),
* wxItemKind.CHECK for a checkable tool (such tool stays pressed after it had been toggled)
* or wxItemKind.RADIO for a checkable tool which makes part of a radio group of tools each
* of which is automatically unchecked whenever another button in the group is checked.
* </arg>
* </function>
* <function>
* <arg name="Id" type="Integer">
* An integer that may be used to identify this tool
* </arg>
* <arg name="Label" type="String" />
* <arg name="Bitmap1" type="wxBitmap">
* The primary tool bitmap for toggle and button tools.
* </arg>
* <arg name="Bitmap2" type="wxBitmap">
* The second bitmap specifies the on-state bitmap for a toggle tool
* </arg>
* <arg name="Kind" type="Integer" default="wxItemKind.NORMAL">
* May be wxItemKind.NORMAL for a normal button (default),
* wxItemKind.CHECK for a checkable tool (such tool stays pressed after it had been toggled)
* or wxItemKind.RADIO for a checkable tool which makes part of a radio group of tools each
* of which is automatically unchecked whenever another button in the group is checked.
* </arg>
* <arg name="ShortHelp" type="String" default="">
* Used for tooltips
* </arg>
* <arg name="LongHelp" type="String" default="">
* String shown in the statusbar.
* </arg>
* </function>
* <desc>
* Adds a tool to the toolbar.
* </desc>
* </method>
*/
JSBool ToolBar::addTool(JSContext* cx,
JSObject* obj,
uintN argc,
jsval* argv,
jsval* rval)
{
wxToolBar *p = GetPrivate(cx, obj);
if ( p == NULL )
return JS_FALSE;
int id;
if ( ! FromJS(cx, argv[0], id) )
return JS_FALSE;
wxString label;
FromJS(cx, argv[1], label);
wxBitmap *bmp1 = Bitmap::GetPrivate(cx, argv[2]);
if ( bmp1 == NULL )
{
JS_ReportError(cx, WXJS_INVALID_ARG_TYPE, 2, "wxBitmap");
return JS_FALSE;
}
wxToolBarToolBase *tool = NULL;
if ( argc > 3 )
{
wxString shortHelp = wxEmptyString;
int kind = wxITEM_NORMAL;
wxBitmap *bmp2 = Bitmap::GetPrivate(cx, argv[3], false);
if ( bmp2 == NULL )
{
if ( argc > 5 )
argc = 5;
switch(argc)
{
case 5:
if ( ! FromJS(cx, argv[4], kind) )
{
JS_ReportError(cx, WXJS_INVALID_ARG_TYPE, 2, "Integer");
return JS_FALSE;
}
case 4:
FromJS(cx, argv[3], shortHelp);
}
tool = p->AddTool(id, label, *bmp1, shortHelp, (wxItemKind) kind);
}
else
{
wxString longHelp = wxEmptyString;
if ( argc > 7 )
argc = 7;
switch(argc)
{
case 7:
FromJS(cx, argv[6], longHelp);
case 6:
FromJS(cx, argv[5], shortHelp);
case 5:
if ( ! FromJS(cx, argv[4], kind) )
{
JS_ReportError(cx, WXJS_INVALID_ARG_TYPE, 5, "Integer");
return JS_FALSE;
}
}
tool = p->AddTool(id, label, *bmp1, *bmp2, (wxItemKind) kind,
shortHelp, longHelp);
}
}
else
tool = p->AddTool(id, label, *bmp1);
if ( tool != NULL )
{
*rval = ToolBarToolBase::CreateObject(cx, tool);
tool->SetClientData(new ToolBarToolData(cx, JSVAL_TO_OBJECT(*rval)));
}
return JS_TRUE;
}
/***
* <method name="addCheckTool">
* <function returns="@wxToolBarTool">
* <arg name="Id" type="Integer">
* An integer that may be used to identify this tool
* </arg>
* <arg name="Label" type="String" />
* <arg name="Bitmap1" type="wxBitmap">
* The primary tool bitmap for toggle and button tools.
* </arg>
* <arg name="Bitmap2" type="wxBitmap">
* The second bitmap specifies the on-state bitmap for a toggle tool
* </arg>
* <arg name="ShortHelp" type="String" default="">
* Used for tooltips
* </arg>
* <arg name="LongHelp" type="String" default="">
* String shown in the statusbar.
* </arg>
* </function>
* <desc>
* Adds a new check (or toggle) tool to the toolbar.
* </desc>
* </method>
*/
JSBool ToolBar::addCheckTool(JSContext *cx,
JSObject *obj,
uintN argc,
jsval *argv,
jsval *rval)
{
wxToolBar *p = GetPrivate(cx, obj);
if ( p == NULL )
return JS_FALSE;
wxString longHelp = wxEmptyString;
wxString shortHelp = wxEmptyString;
if ( argc > 6 )
argc = 6;
switch(argc)
{
case 6:
FromJS(cx, argv[5], longHelp);
case 5:
FromJS(cx, argv[4], shortHelp);
default:
{
int id;
if ( ! FromJS(cx, argv[0], id) )
{
JS_ReportError(cx, WXJS_INVALID_ARG_TYPE, 1, "Integer");
return JS_FALSE;
}
wxString label;
FromJS(cx, argv[1], label);
wxBitmap *bmp1 = Bitmap::GetPrivate(cx, argv[2]);
if ( bmp1 == NULL )
{
JS_ReportError(cx, WXJS_INVALID_ARG_TYPE, 3, "wxBitmap");
return JS_FALSE;
}
wxBitmap *bmp2 = Bitmap::GetPrivate(cx, argv[3]);
if ( bmp2 == NULL )
{
JS_ReportError(cx, WXJS_INVALID_ARG_TYPE, 4, "wxBitmap");
return JS_FALSE;
}
wxToolBarToolBase *tool = p->AddCheckTool(id, label,
*bmp1, *bmp2,
shortHelp, longHelp);
if ( tool != NULL )
{
*rval = ToolBarToolBase::CreateObject(cx, tool);
tool->SetClientData(new ToolBarToolData(cx, JSVAL_TO_OBJECT(*rval)));
}
}
}
return JS_TRUE;
}
/***
* <method name="addRadioTool">
* <function>
* <arg name="Id" type="Integer">
* An integer that may be used to identify this tool
* </arg>
* <arg name="Label" type="String" />
* <arg name="Bitmap1" type="wxBitmap">
* The primary tool bitmap for toggle and button tools.
* </arg>
* <arg name="Bitmap2" type="wxBitmap">
* The second bitmap specifies the on-state bitmap for a toggle tool
* </arg>
* <arg name="ShortHelp" type="String" default="">
* Used for tooltips
* </arg>
* <arg name="LongHelp" type="String" default="">
* String shown in the statusbar.
* </arg>
* </function>
* <desc>
* Adds a new radio tool to the toolbar. Consecutive radio tools form a radio group
* such that exactly one button in the group is pressed at any moment, in other words
* whenever a button in the group is pressed the previously pressed button is
* automatically released. You should avoid having the radio groups of only one
* element as it would be impossible for the user to use such button.
* <br /><br />
* By default, the first button in the radio group is initially pressed, the others are not.
* </desc>
* </method>
*/
JSBool ToolBar::addRadioTool(JSContext *cx,
JSObject *obj,
uintN argc,
jsval *argv,
jsval *rval)
{
wxToolBar *p = GetPrivate(cx, obj);
if ( p == NULL )
return JS_FALSE;
wxString longHelp = wxEmptyString;
wxString shortHelp = wxEmptyString;
if ( argc > 6 )
argc = 6;
switch(argc)
{
case 6:
FromJS(cx, argv[5], longHelp);
case 5:
FromJS(cx, argv[4], shortHelp);
default:
{
int id;
if ( ! FromJS(cx, argv[0], id) )
{
JS_ReportError(cx, WXJS_INVALID_ARG_TYPE, 1, "Integer");
return JS_FALSE;
}
wxString label;
FromJS(cx, argv[1], label);
wxBitmap *bmp1 = Bitmap::GetPrivate(cx, argv[2]);
if ( bmp1 == NULL )
{
JS_ReportError(cx, WXJS_INVALID_ARG_TYPE, 3, "wxBitmap");
return JS_FALSE;
}
wxBitmap *bmp2 = Bitmap::GetPrivate(cx, argv[3]);
if ( bmp2 == NULL )
{
JS_ReportError(cx, WXJS_INVALID_ARG_TYPE, 4, "wxBitmap");
return JS_FALSE;
}
wxToolBarToolBase *tool = p->AddRadioTool(id, label,
*bmp1, *bmp2,
shortHelp, longHelp);
if ( tool != NULL )
{
*rval = ToolBarToolBase::CreateObject(cx, tool);
tool->SetClientData(new ToolBarToolData(cx, JSVAL_TO_OBJECT(*rval)));
}
}
}
return JS_TRUE;
}
/***
* <method name="deleteTool">
* <function returns="Boolean">
* <arg name="Id" type="Integer" />
* </function>
* <desc>
* Deletes the tool with the given id.
* </desc>
* </method>
*/
JSBool ToolBar::deleteTool(JSContext *cx,
JSObject *obj,
uintN WXUNUSED(argc),
jsval *argv,
jsval *rval)
{
wxToolBar *p = GetPrivate(cx, obj);
if ( p == NULL )
return JS_FALSE;
int id;
if ( FromJS(cx, argv[0], id) )
{
*rval = ToJS(cx, p->DeleteTool(id));
return JS_TRUE;
}
return JS_FALSE;
}
/***
* <method name="deleteToolByPos">
* <function returns="Boolean">
* <arg name="Pos" type="Integer" />
* </function>
* <desc>
* Deletes the tool on the given position.
* </desc>
* </method>
*/
JSBool ToolBar::deleteToolByPos(JSContext *cx,
JSObject *obj,
uintN WXUNUSED(argc),
jsval *argv,
jsval *rval)
{
wxToolBar *p = GetPrivate(cx, obj);
if ( p == NULL )
return JS_FALSE;
int id;
if ( FromJS(cx, argv[0], id) )
{
*rval = ToJS(cx, p->DeleteToolByPos(id));
return JS_TRUE;
}
return JS_FALSE;
}
/***
* <method name="enableTool">
* <function returns="Boolean">
* <arg name="Id" type="Integer">
* The tool identifier
* </arg>
* <arg name="Enable" type="Boolean">
* Enable/disable the tool
* </arg>
* </function>
* <desc>
* Enables/disables the tool with the given id.
* </desc>
* </method>
*/
JSBool ToolBar::enableTool(JSContext *cx,
JSObject *obj,
uintN WXUNUSED(argc),
jsval *argv,
jsval *WXUNUSED(rval))
{
wxToolBar *p = GetPrivate(cx, obj);
if ( p == NULL )
return JS_FALSE;
int id;
bool enable;
if ( FromJS(cx, argv[0], id)
&& FromJS(cx, argv[1], enable) )
{
p->EnableTool(id, enable);
return JS_TRUE;
}
return JS_FALSE;
}
/***
* <method name="findControl">
* <function returns="@wxControl">
* <arg name="Id" type="Integer">
* The tool identifier
* </arg>
* </function>
* <desc>
* Returns the control identified by Id or null when not found.
* </desc>
* </method>
*/
JSBool ToolBar::findControl(JSContext *cx,
JSObject *obj,
uintN WXUNUSED(argc),
jsval *argv,
jsval *rval)
{
wxToolBar *p = GetPrivate(cx, obj);
if ( p == NULL )
return JS_FALSE;
int id;
if ( FromJS(cx, argv[0], id) )
{
wxControl *ctrl = p->FindControl(id);
if ( ctrl == NULL )
{
*rval = JSVAL_VOID;
}
else
{
JavaScriptClientData *data
= dynamic_cast<JavaScriptClientData*>(ctrl->GetClientObject());
if ( data )
{
*rval = OBJECT_TO_JSVAL(data->GetObject());
}
}
return JS_TRUE;
}
return JS_FALSE;
}
/***
* <method name="getToolEnabled">
* <function returns="Boolean">
* <arg name="Id" type="Integer">
* The tool identifier
* </arg>
* </function>
* <desc>
* Returns true when the tool with the given id is enabled.
* See @wxToolBar#enableTool
* </desc>
* </method>
*/
JSBool ToolBar::getToolEnabled(JSContext *cx,
JSObject *obj,
uintN WXUNUSED(argc),
jsval *argv,
jsval *rval)
{
wxToolBar *p = GetPrivate(cx, obj);
if ( p == NULL )
return JS_FALSE;
int id;
if ( FromJS(cx, argv[0], id) )
{
*rval = ToJS(cx, p->GetToolEnabled(id));
return JS_TRUE;
}
return JS_FALSE;
}
/***
* <method name="getToolLongHelp">
* <function returns="String">
* <arg name="Id" type="Integer">
* The tool identifier
* </arg>
* </function>
* <desc>
* Returns the long help from the tool with the given id.
* </desc>
* </method>
*/
JSBool ToolBar::getToolLongHelp(JSContext *cx,
JSObject *obj,
uintN WXUNUSED(argc),
jsval *argv,
jsval *rval)
{
wxToolBar *p = GetPrivate(cx, obj);
if ( p == NULL )
return JS_FALSE;
int id;
if ( FromJS(cx, argv[0], id) )
{
*rval = ToJS(cx, p->GetToolLongHelp(id));
return JS_TRUE;
}
return JS_FALSE;
}
/***
* <method name="getToolShortHelp">
* <function returns="String">
* <arg name="Id" type="Integer">
* The tool identifier
* </arg>
* </function>
* <desc>
* Returns the short help from the tool with the given id.
* </desc>
* </method>
*/
JSBool ToolBar::getToolShortHelp(JSContext *cx,
JSObject *obj,
uintN WXUNUSED(argc),
jsval *argv,
jsval *rval)
{
wxToolBar *p = GetPrivate(cx, obj);
if ( p == NULL )
return JS_FALSE;
int id;
if ( FromJS(cx, argv[0], id) )
{
*rval = ToJS(cx, p->GetToolShortHelp(id));
return JS_TRUE;
}
return JS_FALSE;
}
/***
* <method name="getToolState">
* <function>
* <arg name="Id" type="Integer">
* The tool identifier
* </arg>
* </function>
* <desc>
* Returns true when the tool with the given id is toggled on.
* </desc>
* </method>
*/
JSBool ToolBar::getToolState(JSContext *cx,
JSObject *obj,
uintN WXUNUSED(argc),
jsval *argv,
jsval *rval)
{
wxToolBar *p = GetPrivate(cx, obj);
if ( p == NULL )
return JS_FALSE;
int id;
if ( FromJS(cx, argv[0], id) )
{
*rval = ToJS(cx, p->GetToolState(id));
return JS_TRUE;
}
return JS_FALSE;
}
/***
* <method name="insertControl">
* <function>
* <arg name="Pos" type="Integer" />
* <arg name="Control" type="@wxControl" />
* </function>
* <desc>
* Inserts the control into the toolbar at the given position.
* You must call @wxToolBar#realize for the change to take place.
* </desc>
* </method>
*/
JSBool ToolBar::insertControl(JSContext *cx,
JSObject *obj,
uintN WXUNUSED(argc),
jsval *argv,
jsval* WXUNUSED(rval))
{
wxToolBar *p = GetPrivate(cx, obj);
if ( p == NULL )
return JS_FALSE;
int pos;
if ( FromJS(cx, argv[0], pos ) )
{
wxControl *control = Control::GetPrivate(cx, argv[1]);
if ( control != NULL )
{
p->InsertControl(pos, control);
return JS_TRUE;
}
}
return JS_FALSE;
}
/***
* <method name="insertSeparator">
* <function>
* <arg name="Pos" type="Integer" />
* </function>
* <desc>
* Inserts a separator into the toolbar at the given position.
* You must call @wxToolBar#realize for the change to take place.
* </desc>
* </method>
*/
JSBool ToolBar::insertSeparator(JSContext *cx,
JSObject *obj,
uintN WXUNUSED(argc),
jsval *argv,
jsval* WXUNUSED(rval))
{
wxToolBar *p = GetPrivate(cx, obj);
if ( p == NULL )
return JS_FALSE;
int pos;
if ( FromJS(cx, argv[0], pos ) )
{
p->InsertSeparator(pos);
return JS_TRUE;
}
return JS_FALSE;
}
/***
* <method name="insertTool">
* <function returns="@wxToolBarTool">
* <arg name="Pos" type="Integer" />
* <arg name="Id" type="Integer">
* An integer that may be used to identify this tool
* </arg>
* <arg name="Label" type="String" />
* <arg name="Bitmap1" type="wxBitmap">
* The primary tool bitmap for toggle and button tools.
* </arg>
* <arg name="Bitmap2" type="wxBitmap">
* The second bitmap specifies the on-state bitmap for a toggle tool
* </arg>
* <arg name="Toogle" type="Boolean" default="false">
* Is the tool a toggle tool?
* </arg>
* <arg name="ShortHelp" type="String" default="">
* Used for tooltips
* </arg>
* <arg name="LongHelp" type="String" default="">
* String shown in the statusbar.
* </arg>
* </function>
* <desc>
* Inserts the tool to the toolbar at the given position.
* </desc>
* </method>
*/
JSBool ToolBar::insertTool(JSContext *cx,
JSObject *obj,
uintN argc,
jsval *argv,
jsval* rval)
{
wxToolBar *p = GetPrivate(cx, obj);
if ( p == NULL )
return JS_FALSE;
wxString longHelp = wxEmptyString;
wxString shortHelp = wxEmptyString;
bool toggle = false;
wxBitmap *bmp2 = NULL;
switch(argc)
{
case 7:
FromJS(cx, argv[7], longHelp);
// Fall through
case 6:
FromJS(cx, argv[6], shortHelp);
// Fall through
case 5:
if ( ! FromJS(cx, argv[4], toggle) )
{
JS_ReportError(cx, WXJS_INVALID_ARG_TYPE, 5, "Boolean");
return JS_FALSE;
}
// Fall through
case 4:
bmp2 = Bitmap::GetPrivate(cx, argv[3]);
if ( bmp2 == NULL )
{
JS_ReportError(cx, WXJS_INVALID_ARG_TYPE, 4, "wxBitmap");
return JS_FALSE;
}
// Fall through
default:
wxBitmap *bmp1 = Bitmap::GetPrivate(cx, argv[2]);
if ( bmp1 == NULL )
{
JS_ReportError(cx, WXJS_INVALID_ARG_TYPE, 3, "wxBitmap");
return JS_FALSE;
}
int id;
int pos;
if ( ! FromJS(cx, argv[1], id) )
{
JS_ReportError(cx, WXJS_INVALID_ARG_TYPE, 2, "Integer");
return JS_FALSE;
}
if ( ! FromJS(cx, argv[0], pos) )
{
JS_ReportError(cx, WXJS_INVALID_ARG_TYPE, 1, "Integer");
return JS_FALSE;
}
wxToolBarToolBase *tool = p->InsertTool(pos, id, *bmp1,
bmp2 == NULL ? wxNullBitmap : *bmp2,
toggle, NULL, shortHelp, longHelp);
if ( tool != NULL )
{
*rval = ToolBarToolBase::CreateObject(cx, tool);
tool->SetClientData(new ToolBarToolData(cx, JSVAL_TO_OBJECT(*rval)));
}
}
return JS_FALSE;
}
/***
* <method name="realize">
* <function returns="Boolean" />
* <desc>
* Call this method after you have added tools.
* </desc>
* </method>
*/
JSBool ToolBar::realize(JSContext *cx,
JSObject *obj,
uintN WXUNUSED(argc),
jsval* WXUNUSED(argv),
jsval *rval)
{
wxToolBar *p = GetPrivate(cx, obj);
if ( p == NULL )
return JS_FALSE;
*rval = ToJS(cx, p->Realize());
return JS_TRUE;
}
/***
* <method name="setToolLongHelp">
* <function>
* <arg name="Id" type="Integer">
* The tool identifier
* </arg>
* <arg name="Help" type="String" />
* </function>
* <desc>
* Sets the long help from the tool with the given id.
* </desc>
* </method>
*/
JSBool ToolBar::setToolLongHelp(JSContext *cx,
JSObject *obj,
uintN WXUNUSED(argc),
jsval* argv,
jsval* WXUNUSED(rval))
{
wxToolBar *p = GetPrivate(cx, obj);
if ( p == NULL )
return JS_FALSE;
int id;
if ( FromJS(cx, argv[0], id) )
{
wxString longHelp;
FromJS(cx, argv[1], longHelp);
p->SetToolLongHelp(id, longHelp);
return JS_TRUE;
}
return JS_FALSE;
}
/***
* <method name="setToolShortHelp">
* <function>
* <arg name="Id" type="Integer">
* The tool identifier
* </arg>
* <arg name="Help" type="String" />
* </function>
* <desc>
* Sets the short help for the tool with the given id. The short help will be used
* to show a tooltip.
* </desc>
* </method>
*/
JSBool ToolBar::setToolShortHelp(JSContext *cx,
JSObject *obj,
uintN WXUNUSED(argc),
jsval *argv,
jsval* WXUNUSED(rval))
{
wxToolBar *p = GetPrivate(cx, obj);
if ( p == NULL )
return JS_FALSE;
int id;
if ( FromJS(cx, argv[0], id) )
{
wxString longHelp;
FromJS(cx, argv[1], longHelp);
p->SetToolShortHelp(id, longHelp);
return JS_TRUE;
}
return JS_FALSE;
}
/***
* <method name="toggleTool">
* <function>
* <arg name="Id" type="Integer">
* The tool identifier
* </arg>
* <arg name="Toggle" type="Boolean" />
* </function>
* <desc>
* Toggles a tool on or off.
* See @wxToolBar#getToolState.
* </desc>
* </method>
*/
JSBool ToolBar::toggleTool(JSContext *cx,
JSObject *obj,
uintN WXUNUSED(argc),
jsval *argv,
jsval* WXUNUSED(rval))
{
wxToolBar *p = GetPrivate(cx, obj);
if ( p == NULL )
return JS_FALSE;
int id;
bool toggle;
if ( FromJS(cx, argv[0], id)
&& FromJS(cx, argv[1], toggle) )
{
p->ToggleTool(id, toggle);
return JS_TRUE;
}
return JS_FALSE;
}
void ToolEventHandler::OnTool(wxCommandEvent &event)
{
ToolBar *p = dynamic_cast<ToolBar *>(event.GetEventObject());
wxToolBarToolBase *tool = p->FindById(event.GetId());
if ( tool == NULL )
return;
if ( tool->IsControl() )
return;
ToolBarToolData *data
= dynamic_cast<ToolBarToolData*>(tool->GetClientData());
JSContext *cx = data->GetContext();
jsval jsAction;
if ( JS_GetProperty(cx, data->GetObject(), "onTool", &jsAction) == JS_TRUE )
{
if ( jsAction == JSVAL_VOID )
{
// No action found, skip the event and when a menu item with the same
// id exists, it will try to run the associated action of that item
event.Skip();
}
else
{
JSFunction *fnAction = JS_ValueToFunction(cx, jsAction);
if ( fnAction != NULL )
{
PrivCommandEvent *wxjsEvent = new PrivCommandEvent(event);
jsval argv[] = { CommandEvent::CreateObject(cx, wxjsEvent) };
jsval rval;
JSBool result = JS_CallFunction(cx, data->GetObject(),
fnAction, 1, argv, &rval);
if ( result == JS_FALSE )
{
JS_ReportPendingException(cx);
}
}
}
}
}