Checkbox, Slider and ProgressBar components for ui API

8 files changed, 414 insertions, 0 deletions

diff --git a/src/cat/LuaCheckbox.cpp b/src/cat/LuaCheckbox.cpp
new file mode 100644
index 0000000..1ddc0c2
--- /dev/null
+++ b/src/cat/LuaCheckbox.cpp
@@ -0,0 +1,114 @@
+extern "C"
+{
+#include "lua.h"
+#include "lauxlib.h"
+#include "lualib.h"
+}
+
+#include <iostream>
+#include "LuaCheckbox.h"
+#include "LuaScriptInterface.h"
+#include "interface/Checkbox.h"
+
+const char LuaCheckbox::className[] = "Checkbox";
+
+#define method(class, name) {#name, &class::name}
+Luna<LuaCheckbox>::RegType LuaCheckbox::methods[] = {
+	method(LuaCheckbox, action),
+	method(LuaCheckbox, text),
+	method(LuaCheckbox, position),
+	method(LuaCheckbox, size),
+	method(LuaCheckbox, visible),
+	method(LuaCheckbox, checked),
+	{0, 0}
+};
+
+LuaCheckbox::LuaCheckbox(lua_State * l) :
+	LuaComponent(l),
+	actionFunction(0)
+{
+	int posX = luaL_optinteger(l, 1, 0);
+	int posY = luaL_optinteger(l, 2, 0);
+	int sizeX = luaL_optinteger(l, 3, 10);
+	int sizeY = luaL_optinteger(l, 4, 10);
+	std::string text = luaL_optstring(l, 5, "");
+
+	checkbox = new ui::Checkbox(ui::Point(posX, posY), ui::Point(sizeX, sizeY), text);
+	component = checkbox;
+	class ClickAction : public ui::CheckboxAction
+	{
+		LuaCheckbox * luaCheckbox;
+	public:
+		ClickAction(LuaCheckbox * luaCheckbox) : luaCheckbox(luaCheckbox) {}
+		void ActionCallback(ui::Checkbox * sender)
+		{
+			luaCheckbox->triggerAction();
+		}
+	};
+	checkbox->SetActionCallback(new ClickAction(this));
+}
+
+int LuaCheckbox::checked(lua_State * l)
+{
+	int args = lua_gettop(l);
+	if(args)
+	{
+		luaL_checktype(l, 1, LUA_TBOOLEAN);
+		checkbox->SetChecked(lua_toboolean(l, 1));
+		return 0;
+	}
+	else
+	{
+		lua_pushboolean(l, checkbox->GetChecked());
+		return 1;
+	}
+}
+
+int LuaCheckbox::action(lua_State * l)
+{
+	if(lua_type(l, 1) != LUA_TNIL)
+	{
+		luaL_checktype(l, 1, LUA_TFUNCTION);
+		lua_pushvalue(l, 1);
+		actionFunction = luaL_ref(l, LUA_REGISTRYINDEX);
+	}
+	else
+	{
+		actionFunction = 0;
+	}
+	return 0;
+}
+
+int LuaCheckbox::text(lua_State * l)
+{
+	int args = lua_gettop(l);
+	if(args)
+	{
+		luaL_checktype(l, 1, LUA_TSTRING);
+		checkbox->SetText(lua_tostring(l, 1));
+		return 0;
+	}
+	else
+	{
+		lua_pushstring(l, checkbox->GetText().c_str());
+		return 1;
+	}
+}
+
+void LuaCheckbox::triggerAction()
+{
+	if(actionFunction)
+	{
+		lua_rawgeti(l, LUA_REGISTRYINDEX, actionFunction);
+		lua_rawgeti(l, LUA_REGISTRYINDEX, UserData);
+		lua_pushboolean(l, checkbox->GetChecked());
+		if (lua_pcall(l, 2, 0, 0))
+		{
+			ci->Log(CommandInterface::LogError, lua_tostring(l, -1));
+		}
+	}
+}
+
+LuaCheckbox::~LuaCheckbox()
+{
+}
\ No newline at end of file
diff --git a/src/cat/LuaCheckbox.h b/src/cat/LuaCheckbox.h
new file mode 100644
index 0000000..479cab2
--- /dev/null
+++ b/src/cat/LuaCheckbox.h
@@ -0,0 +1,33 @@
+#pragma once
+
+extern "C" {
+	#include "lua.h"
+	#include "lauxlib.h"
+	#include "lualib.h"
+}
+
+#include "LuaLuna.h"
+#include "LuaComponent.h"
+
+namespace ui
+{
+	class Checkbox;
+}
+
+class LuaScriptInterface;
+
+class LuaCheckbox: public LuaComponent
+{
+	ui::Checkbox * checkbox;
+	int actionFunction;
+	void triggerAction();
+	int action(lua_State * l);
+	int checked(lua_State * l);
+	int text(lua_State * l);
+public:
+	static const char className[];
+	static Luna<LuaCheckbox>::RegType methods[];
+
+	LuaCheckbox(lua_State * l);
+	~LuaCheckbox();
+};
\ No newline at end of file
diff --git a/src/cat/LuaProgressBar.cpp b/src/cat/LuaProgressBar.cpp
new file mode 100644
index 0000000..71b8f7b
--- /dev/null
+++ b/src/cat/LuaProgressBar.cpp
@@ -0,0 +1,71 @@
+extern "C"
+{
+#include "lua.h"
+#include "lauxlib.h"
+#include "lualib.h"
+}
+
+#include <iostream>
+#include "LuaProgressBar.h"
+#include "LuaScriptInterface.h"
+#include "interface/ProgressBar.h"
+
+const char LuaProgressBar::className[] = "ProgressBar";
+
+#define method(class, name) {#name, &class::name}
+Luna<LuaProgressBar>::RegType LuaProgressBar::methods[] = {
+	method(LuaProgressBar, position),
+	method(LuaProgressBar, size),
+	method(LuaProgressBar, visible),
+	method(LuaProgressBar, progress),
+	method(LuaProgressBar, status),
+	{0, 0}
+};
+
+LuaProgressBar::LuaProgressBar(lua_State * l) :
+	LuaComponent(l)
+{
+	int posX = luaL_optinteger(l, 1, 0);
+	int posY = luaL_optinteger(l, 2, 0);
+	int sizeX = luaL_optinteger(l, 3, 10);
+	int sizeY = luaL_optinteger(l, 4, 10);
+	int value = luaL_optinteger(l, 5, 0);
+	std::string status = luaL_optstring(l, 6, "");
+
+	progressBar = new ui::ProgressBar(ui::Point(posX, posY), ui::Point(sizeX, sizeY), value, status);
+	component = progressBar;
+}
+
+int LuaProgressBar::progress(lua_State * l)
+{
+	int args = lua_gettop(l);
+	if(args)
+	{
+		progressBar->SetProgress(lua_tointeger(l, 1));
+		return 0;
+	}
+	else
+	{
+		lua_pushinteger(l, progressBar->GetProgress());
+		return 1;
+	}
+}
+
+int LuaProgressBar::status(lua_State * l)
+{
+	int args = lua_gettop(l);
+	if(args)
+	{
+		progressBar->SetStatus(std::string(lua_tostring(l, 1)));
+		return 0;
+	}
+	else
+	{
+		lua_pushstring(l, progressBar->GetStatus().c_str());
+		return 1;
+	}
+}
+
+LuaProgressBar::~LuaProgressBar()
+{
+}
\ No newline at end of file
diff --git a/src/cat/LuaProgressBar.h b/src/cat/LuaProgressBar.h
new file mode 100644
index 0000000..9de56e7
--- /dev/null
+++ b/src/cat/LuaProgressBar.h
@@ -0,0 +1,30 @@
+#pragma once
+
+extern "C" {
+	#include "lua.h"
+	#include "lauxlib.h"
+	#include "lualib.h"
+}
+
+#include "LuaLuna.h"
+#include "LuaComponent.h"
+
+namespace ui
+{
+	class ProgressBar;
+}
+
+class LuaScriptInterface;
+
+class LuaProgressBar: public LuaComponent
+{
+	ui::ProgressBar * progressBar;
+	int progress(lua_State * l);
+	int status(lua_State * l);
+public:
+	static const char className[];
+	static Luna<LuaProgressBar>::RegType methods[];
+
+	LuaProgressBar(lua_State * l);
+	~LuaProgressBar();
+};
\ No newline at end of file
diff --git a/src/cat/LuaScriptInterface.cpp b/src/cat/LuaScriptInterface.cpp
index 98bd5ba..ff282ff 100644
--- a/src/cat/LuaScriptInterface.cpp
+++ b/src/cat/LuaScriptInterface.cpp
@@ -31,6 +31,9 @@
 #include "LuaButton.h"
 #include "LuaLabel.h"
 #include "LuaTextbox.h"
+#include "LuaCheckbox.h"
+#include "LuaSlider.h"
+#include "LuaProgressBar.h"
 
 #ifdef WIN
 #include <direct.h>
@@ -301,6 +304,9 @@ void LuaScriptInterface::initInterfaceAPI()
 	Luna<LuaButton>::Register(l);
 	Luna<LuaLabel>::Register(l);
 	Luna<LuaTextbox>::Register(l);
+	Luna<LuaCheckbox>::Register(l);
+	Luna<LuaSlider>::Register(l);
+	Luna<LuaProgressBar>::Register(l);
 }
 
 int LuaScriptInterface::interface_addComponent(lua_State * l)
@@ -313,6 +319,12 @@ int LuaScriptInterface::interface_addComponent(lua_State * l)
 		component = Luna<LuaLabel>::get(luaComponent)->GetComponent();
 	else if(luaComponent = Luna<LuaTextbox>::tryGet(l, 1))
 		component = Luna<LuaTextbox>::get(luaComponent)->GetComponent();
+	else if(luaComponent = Luna<LuaCheckbox>::tryGet(l, 1))
+		component = Luna<LuaCheckbox>::get(luaComponent)->GetComponent();
+	else if(luaComponent = Luna<LuaSlider>::tryGet(l, 1))
+		component = Luna<LuaSlider>::get(luaComponent)->GetComponent();
+	else if(luaComponent = Luna<LuaProgressBar>::tryGet(l, 1))
+		component = Luna<LuaProgressBar>::get(luaComponent)->GetComponent();
 	else
 		luaL_typerror(l, 1, "Component");
 	if(luacon_ci->Window && component)
diff --git a/src/cat/LuaSlider.cpp b/src/cat/LuaSlider.cpp
new file mode 100644
index 0000000..0fedbfb
--- /dev/null
+++ b/src/cat/LuaSlider.cpp
@@ -0,0 +1,112 @@
+extern "C"
+{
+#include "lua.h"
+#include "lauxlib.h"
+#include "lualib.h"
+}
+
+#include <iostream>
+#include "LuaSlider.h"
+#include "LuaScriptInterface.h"
+#include "interface/Slider.h"
+
+const char LuaSlider::className[] = "Slider";
+
+#define method(class, name) {#name, &class::name}
+Luna<LuaSlider>::RegType LuaSlider::methods[] = {
+	method(LuaSlider, onValueChanged),
+	method(LuaSlider, position),
+	method(LuaSlider, size),
+	method(LuaSlider, visible),
+	method(LuaSlider, value),
+	method(LuaSlider, steps),
+	{0, 0}
+};
+
+LuaSlider::LuaSlider(lua_State * l) :
+	LuaComponent(l),
+	onValueChangedFunction(0)
+{
+	int posX = luaL_optinteger(l, 1, 0);
+	int posY = luaL_optinteger(l, 2, 0);
+	int sizeX = luaL_optinteger(l, 3, 10);
+	int sizeY = luaL_optinteger(l, 4, 10);
+	int steps = luaL_optinteger(l, 5, 10);
+
+	slider = new ui::Slider(ui::Point(posX, posY), ui::Point(sizeX, sizeY), steps);
+	component = slider;
+	class ValueAction : public ui::SliderAction
+	{
+		LuaSlider * luaSlider;
+	public:
+		ValueAction(LuaSlider * luaSlider) : luaSlider(luaSlider) {}
+		void ValueChangedCallback(ui::Slider * sender)
+		{
+			luaSlider->triggerOnValueChanged();
+		}
+	};
+	slider->SetActionCallback(new ValueAction(this));
+}
+
+int LuaSlider::steps(lua_State * l)
+{
+	int args = lua_gettop(l);
+	if(args)
+	{
+		slider->SetSteps(lua_tointeger(l, 1));
+		return 0;
+	}
+	else
+	{
+		lua_pushinteger(l, slider->GetSteps());
+		return 1;
+	}
+}
+
+int LuaSlider::onValueChanged(lua_State * l)
+{
+	if(lua_type(l, 1) != LUA_TNIL)
+	{
+		luaL_checktype(l, 1, LUA_TFUNCTION);
+		lua_pushvalue(l, 1);
+		onValueChangedFunction = luaL_ref(l, LUA_REGISTRYINDEX);
+	}
+	else
+	{
+		onValueChangedFunction = 0;
+	}
+	return 0;
+}
+
+int LuaSlider::value(lua_State * l)
+{
+	int args = lua_gettop(l);
+	if(args)
+	{
+		slider->SetValue(lua_tointeger(l, 1));
+		return 0;
+	}
+	else
+	{
+		lua_pushinteger(l, slider->GetValue());
+		return 1;
+	}
+}
+
+void LuaSlider::triggerOnValueChanged()
+{
+	if(onValueChangedFunction)
+	{
+		lua_rawgeti(l, LUA_REGISTRYINDEX, onValueChangedFunction);
+		lua_rawgeti(l, LUA_REGISTRYINDEX, UserData);
+		lua_pushinteger(l, slider->GetValue());
+		if (lua_pcall(l, 2, 0, 0))
+		{
+			ci->Log(CommandInterface::LogError, lua_tostring(l, -1));
+		}
+	}
+}
+
+LuaSlider::~LuaSlider()
+{
+}
\ No newline at end of file
diff --git a/src/cat/LuaSlider.h b/src/cat/LuaSlider.h
new file mode 100644
index 0000000..f9f327e
--- /dev/null
+++ b/src/cat/LuaSlider.h
@@ -0,0 +1,33 @@
+#pragma once
+
+extern "C" {
+	#include "lua.h"
+	#include "lauxlib.h"
+	#include "lualib.h"
+}
+
+#include "LuaLuna.h"
+#include "LuaComponent.h"
+
+namespace ui
+{
+	class Slider;
+}
+
+class LuaScriptInterface;
+
+class LuaSlider: public LuaComponent
+{
+	ui::Slider * slider;
+	int onValueChangedFunction;
+	void triggerOnValueChanged();
+	int onValueChanged(lua_State * l);
+	int steps(lua_State * l);
+	int value(lua_State * l);
+public:
+	static const char className[];
+	static Luna<LuaSlider>::RegType methods[];
+
+	LuaSlider(lua_State * l);
+	~LuaSlider();
+};
\ No newline at end of file
diff --git a/src/cat/LuaWindow.cpp b/src/cat/LuaWindow.cpp
index 16553d8..433e4d1 100644
--- a/src/cat/LuaWindow.cpp
+++ b/src/cat/LuaWindow.cpp
@@ -11,6 +11,9 @@ extern "C"
 #include "LuaButton.h"
 #include "LuaLabel.h"
 #include "LuaTextbox.h"
+#include "LuaCheckbox.h"
+#include "LuaSlider.h"
+#include "LuaProgressBar.h"
 #include "interface/Button.h"
 #include "interface/Label.h"
 #include "interface/Window.h"
@@ -106,6 +109,12 @@ int LuaWindow::addComponent(lua_State * l)
 		component = Luna<LuaLabel>::get(luaComponent)->GetComponent();
 	else if(luaComponent = Luna<LuaTextbox>::tryGet(l, 1))
 		component = Luna<LuaTextbox>::get(luaComponent)->GetComponent();
+	else if(luaComponent = Luna<LuaCheckbox>::tryGet(l, 1))
+		component = Luna<LuaCheckbox>::get(luaComponent)->GetComponent();
+	else if(luaComponent = Luna<LuaSlider>::tryGet(l, 1))
+		component = Luna<LuaSlider>::get(luaComponent)->GetComponent();
+	else if(luaComponent = Luna<LuaProgressBar>::tryGet(l, 1))
+		component = Luna<LuaProgressBar>::get(luaComponent)->GetComponent();
 	else
 		luaL_typerror(l, 1, "Component");
 	if(component)