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
|
#include "lua.h"
#include "luavgl.h"
#include "private.h"
#include <src/widgets/lv_slider.h>
static int luavgl_slider_create(lua_State *L) {
return luavgl_obj_create_helper(L, lv_slider_create);
}
static void _lv_slider_set_range(void *obj, lua_State *L) {
int min = 0, max = 100;
int type = lua_type(L, -1);
if (type == LUA_TTABLE) {
lua_getfield(L, -1, "min");
min = lua_tointeger(L, -1);
lua_pop(L, 1);
lua_getfield(L, -1, "max");
max = luavgl_tointeger(L, -1);
lua_pop(L, 1);
}
lv_slider_set_range(obj, min, max);
}
static void _lv_slider_set_value(void *obj, int value) {
lv_slider_set_value(obj, value, LV_ANIM_OFF);
}
static const luavgl_value_setter_t slider_property_table[] = {
{"range", SETTER_TYPE_STACK, {.setter_stack = _lv_slider_set_range}},
{"value", SETTER_TYPE_INT, {.setter = (setter_int_t)_lv_slider_set_value}},
};
LUALIB_API int luavgl_slider_set_property_kv(lua_State *L, void *data) {
lv_obj_t *obj = data;
int ret = luavgl_set_property(L, obj, slider_property_table);
if (ret == 0) {
return 0;
}
/* a base obj property? */
ret = luavgl_obj_set_property_kv(L, obj);
if (ret != 0) {
debug("unkown property for slider.\n");
}
return ret;
}
static int luavgl_slider_set(lua_State *L) {
lv_obj_t *obj = luavgl_to_obj(L, 1);
if (!lua_istable(L, -1)) {
luaL_error(L, "expect a table on 2nd para.");
return 0;
}
luavgl_iterate(L, -1, luavgl_slider_set_property_kv, obj);
return 0;
}
static int luavgl_slider_value(lua_State *L) {
lv_obj_t *obj = luavgl_to_obj(L, 1);
lua_pushinteger(L, lv_slider_get_value(obj));
return 1;
}
static int luavgl_slider_tostring(lua_State *L) {
lv_obj_t *obj = luavgl_to_obj(L, 1);
lua_pushfstring(L, "lv_slider:%p", obj);
return 1;
}
static int luavgl_slider_is_dragged(lua_State *L) {
lv_obj_t *obj = luavgl_to_obj(L, 1);
bool is_dragged = lv_slider_is_dragged(obj);
lv_group_t * g = lv_obj_get_group(obj);
bool editing = lv_group_get_editing(g);
lua_pushboolean(L, editing || is_dragged);
return 1;
}
static const luaL_Reg luavgl_slider_methods[] = {
{"set", luavgl_slider_set},
{"value", luavgl_slider_value},
{"is_dragged", luavgl_slider_is_dragged},
{NULL, NULL},
};
static void luavgl_slider_init(lua_State *L) {
luavgl_obj_newmetatable(L, &lv_slider_class, "lv_slider",
luavgl_slider_methods);
lua_pushcfunction(L, luavgl_slider_tostring);
lua_setfield(L, -2, "__tostring");
lua_pop(L, 1);
}
|
