init_gui_environment (void)
{
init_gui_environment_type ();
- scm_c_define_gsubr ("add-static-text!", 8, 0, 0, (scm_t_subr)irr_gui_addStaticText);
+ scm_c_define_gsubr ("add-static-text!", 3, 0, 1, (scm_t_subr)irr_gui_addStaticText);
scm_c_define_gsubr ("get-gui-environment", 1, 0, 0, (scm_t_subr)irr_getGUIEnvironment);
+ scm_c_export ("add-static-text!", "get-gui-environment", NULL);
}
DEFINE_WRAPPED_TYPE (irr::gui::IGUIEnvironment*, "gui-environment",
}
SCM
- irr_gui_addStaticText (SCM wrappedGUIEnvironment,
+ irr_gui_addStaticText (SCM wrapped_gui_environment,
SCM text,
SCM rectangle,
- SCM border,
- SCM wordWrap,
- SCM parent,
- SCM id,
- SCM fillBackground)
+ SCM rest)
{
- irr::gui::IGUIEnvironment* guienv = unwrap_gui_environment (wrappedGUIEnvironment);
+ SCM border = scm_from_bool (0);
+ SCM word_wrap = scm_from_bool (1);
+ SCM parent = scm_from_bool (0);
+ SCM id = scm_from_int32 (-1);
+ SCM fill_background = scm_from_bool (0);
+
+ scm_c_bind_keyword_arguments ("add-static-text!", rest, (scm_t_keyword_arguments_flags)0,
+ scm_from_utf8_keyword ("border"), &border,
+ scm_from_utf8_keyword ("word-wrap"), &word_wrap,
+ scm_from_utf8_keyword ("parent"), &parent,
+ scm_from_utf8_keyword ("id"), &id,
+ scm_from_utf8_keyword ("fill-background"), &fill_background,
+ SCM_UNDEFINED);
+
+ irr::gui::IGUIEnvironment* guienv = unwrap_gui_environment (wrapped_gui_environment);
irr::gui::IGUIStaticText* staticText =
guienv->addStaticText (scm_to_wide_char_string (text),
scm_to_rect_s32 (rectangle),
scm_to_bool (border),
- scm_to_bool (wordWrap),
+ scm_to_bool (word_wrap),
scm_is_false (parent) ? 0 : unwrap_gui_element (parent),
scm_to_int32 (id),
- scm_to_bool (fillBackground));
+ scm_to_bool (fill_background));
return wrap_gui_static_text (staticText);
}