/** \brief Test if a checkbox is checked.
* \returns true if the Checkbox is checked.
*/
int UI_Lua::IsChecked(lua_State *L){
int n = lua_gettop(L); // Number of arguments
if (n != 1)
return luaL_error(L, "Got %d arguments expected 1 (self)", n);
Checkbox *box = (Checkbox*)checkWidget(L,1);
luaL_argcheck(L, box->GetMask() & WIDGET_CHECKBOX, 1, "`Checkbox' expected.");
lua_pushboolean(L, (int) box->IsChecked() );
return 1;
}
/** \brief Check or Uncheck a checkbox
*/
int UI_Lua::setChecked(lua_State *L){
int n = lua_gettop(L); // Number of arguments
if (n != 2)
return luaL_error(L, "Got %d arguments expected 2 (self, value)", n);
Checkbox *box = (Checkbox*)checkWidget(L,1);
luaL_argcheck(L, box->GetMask() & WIDGET_CHECKBOX, 1, "`Checkbox' expected.");
bool checked = lua_toboolean(L, 2) != 0;
box->Set(checked);
return 0;
}
