1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
|
#ifdef LUACONSOLE
extern "C"
{
#include "lua.h"
#include "lauxlib.h"
#include "lualib.h"
}
#include <iostream>
#include "LuaSlider.h"
#include "LuaScriptInterface.h"
#include "gui/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()
{
}
#endif
|
