Esempio n. 1
0
static Janet janet_ui_group_set_child(int32_t argc, Janet *argv) {
    janet_fixarity(argc, 2);
    uiGroup *group = janet_getuitype(argv, 0, &group_td);
    uiControl *c = janet_getcontrol(argv, 1);
    uiGroupSetChild(group, c);
    return janet_wrap_boolean(uiGroupMargined(group));
}
Esempio n. 2
0
static int groupMargined(lua_State *L)
{
    assert(yalulCheckControl(L, 1, YALUL_GROUP_LIB));
    int m = uiGroupMargined(CAST_ARG(1, Group));
    lua_pushinteger(L, m);
    return 1;
}
Esempio n. 3
0
static Janet janet_ui_group_margined(int32_t argc, Janet *argv) {
    janet_arity(argc, 1, 2);
    uiGroup *group = janet_getuitype(argv, 0, &group_td);
    if (argc == 2) {
        int margined = janet_getboolean(argv, 1);
        uiGroupSetMargined(group, margined);
        return argv[0];
    }
    return janet_wrap_boolean(uiGroupMargined(group));
}