SCM rest)
{
SCM use_alpha_channel = SCM_BOOL_T;
- SCM parent = SCM_BOOL_F;
+ SCM parent = SCM_UNDEFINED;
SCM id = scm_from_int32 (-1);
- SCM text = SCM_BOOL_F;
+ SCM text = SCM_UNDEFINED;
scm_c_bind_keyword_arguments ("add-image!", rest, (scm_t_keyword_arguments_flags)0,
scm_from_utf8_keyword ("use_alpha_channel"), &use_alpha_channel,
guienv->addImage (unwrap_texture (image),
scm_to_position2d_s32 (position),
scm_to_bool (use_alpha_channel),
- scm_is_false (parent) ? 0 : unwrap_gui_element (parent),
+ parent == SCM_UNDEFINED ? 0 : unwrap_gui_element (parent),
scm_to_int32 (id),
- scm_is_false (text) ? 0 : scm_to_wide_char_string (text));
+ text == SCM_UNDEFINED ? 0 : scm_to_wide_char_string (text));
return wrap_gui_image (guiImage);
}
SCM rest)
{
SCM border = SCM_BOOL_T;
- SCM parent = SCM_BOOL_F;
+ SCM parent = SCM_UNDEFINED;
SCM id = scm_from_int32 (-1);
scm_c_bind_keyword_arguments ("add-editbox!", rest, (scm_t_keyword_arguments_flags)0,
guienv->addEditBox (scm_to_wide_char_string (text),
scm_to_rect_s32 (rectangle),
scm_to_bool (border),
- scm_is_false (parent) ? 0 : unwrap_gui_element (parent),
+ parent == SCM_UNDEFINED ? 0 : unwrap_gui_element (parent),
scm_to_int32 (id));
return wrap_gui_editbox (editbox);
}
SCM rectangle,
SCM rest)
{
- SCM parent = SCM_BOOL_F;
+ SCM parent = SCM_UNDEFINED;
SCM id = scm_from_int32 (-1);
SCM draw_background = SCM_BOOL_F;
irr::gui::IGUIEnvironment* guienv = unwrap_gui_environment (wrapped_gui_environment);
irr::gui::IGUIListBox* listbox =
guienv->addListBox (scm_to_rect_s32 (rectangle),
- scm_is_false (parent) ? 0 : unwrap_gui_element (parent),
+ parent == SCM_UNDEFINED ? 0 : unwrap_gui_element (parent),
scm_to_int32 (id),
scm_to_bool (draw_background));
return wrap_gui_listbox (listbox);
SCM rectangle,
SCM rest)
{
- SCM parent = SCM_BOOL_F;
+ SCM parent = SCM_UNDEFINED;
SCM id = scm_from_int32 (-1);
scm_c_bind_keyword_arguments ("add-scrollbar!", rest, (scm_t_keyword_arguments_flags)0,
irr::gui::IGUIScrollBar* scrollbar =
guienv->addScrollBar (scm_to_bool (horizontal),
scm_to_rect_s32 (rectangle),
- scm_is_false (parent) ? 0 : unwrap_gui_element (parent),
+ parent == SCM_UNDEFINED ? 0 : unwrap_gui_element (parent),
scm_to_int32 (id));
return wrap_gui_scrollbar (scrollbar);
}
{
SCM border = SCM_BOOL_F;
SCM word_wrap = SCM_BOOL_T;
- SCM parent = SCM_BOOL_F;
+ SCM parent = SCM_UNDEFINED;
SCM id = scm_from_int32 (-1);
SCM fill_background = SCM_BOOL_F;
scm_to_rect_s32 (rectangle),
scm_to_bool (border),
scm_to_bool (word_wrap),
- scm_is_false (parent) ? 0 : unwrap_gui_element (parent),
+ parent == SCM_UNDEFINED ? 0 : unwrap_gui_element (parent),
scm_to_int32 (id),
scm_to_bool (fill_background));
return wrap_gui_static_text (staticText);
SCM rest)
{
SCM modal = SCM_BOOL_F;
- SCM text = SCM_BOOL_F;
- SCM parent = SCM_BOOL_F;
+ SCM text = SCM_UNDEFINED;
+ SCM parent = SCM_UNDEFINED;
SCM id = scm_from_int32 (-1);
scm_c_bind_keyword_arguments ("add-window!", rest, (scm_t_keyword_arguments_flags)0,
irr::gui::IGUIWindow* window =
guienv->addWindow (scm_to_rect_s32 (rectangle),
scm_to_bool (modal),
- scm_is_false (text) ? 0 : scm_to_wide_char_string (text),
- scm_is_false (parent) ? 0 : unwrap_gui_element (parent),
+ text == SCM_UNDEFINED ? 0 : scm_to_wide_char_string (text),
+ parent == SCM_UNDEFINED ? 0 : unwrap_gui_element (parent),
scm_to_int32 (id));
return wrap_gui_window (window);
}
SCM rectangle,
SCM rest)
{
- SCM parent = SCM_BOOL_F;
+ SCM parent = SCM_UNDEFINED;
SCM id = scm_from_int32 (-1);
- SCM text = SCM_BOOL_F;
- SCM tooltiptext = SCM_BOOL_F;
+ SCM text = SCM_UNDEFINED;
+ SCM tooltiptext = SCM_UNDEFINED;
scm_c_bind_keyword_arguments ("add-button!", rest, (scm_t_keyword_arguments_flags)0,
scm_from_utf8_keyword ("parent"), &parent,
irr::gui::IGUIEnvironment* guienv = unwrap_gui_environment (wrapped_gui_environment);
irr::gui::IGUIButton* button =
guienv->addButton (scm_to_rect_s32 (rectangle),
- scm_is_false (parent) ? 0 : unwrap_gui_element (parent),
+ parent == SCM_UNDEFINED ? 0 : unwrap_gui_element (parent),
scm_to_int32 (id),
- scm_is_false (text) ? 0 : scm_to_wide_char_string (text),
- scm_is_false (tooltiptext) ? 0 : scm_to_wide_char_string (tooltiptext));
+ text == SCM_UNDEFINED ? 0 : scm_to_wide_char_string (text),
+ tooltiptext == SCM_UNDEFINED ? 0 : scm_to_wide_char_string (tooltiptext));
return wrap_gui_button (button);
}