示例#1
0
文件: main.c 项目: janet-lang/janetui
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));
}
示例#2
0
文件: group.c 项目: padicao2010/yalul
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;
}
示例#3
0
文件: main.c 项目: janet-lang/janetui
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));
}