video::SColor scolor = skin->getColor (scm_to_default_color (color));
return scm_from_color (scolor);
}
video::SColor scolor = skin->getColor (scm_to_default_color (color));
return scm_from_color (scolor);
}
skin->setColor (scm_to_default_color (which),
scm_to_color (new_color));
return SCM_UNSPECIFIED;
}
skin->setColor (scm_to_default_color (which),
scm_to_color (new_color));
return SCM_UNSPECIFIED;
}
- gui::IGUISkin* skin = (gui::IGUISkin*) scm_to_pointer (gui_skin);
- skin->setFont ((gui::IGUIFont*) scm_to_pointer (font),
+ gui::IGUISkin* skin = (gui::IGUISkin*) scm_to_irr_pointer (gui_skin);
+ skin->setFont ((gui::IGUIFont*) scm_to_irr_pointer (font),
-
-extern "C" {
-
- void
- init_gui_skin (void)
- {
- DEFINE_GSUBR ("IGUISkin_getColor", 2, 0, 0, IGUISkin_getColor);
- DEFINE_GSUBR ("IGUISkin_getFont", 2, 0, 0, IGUISkin_getFont);
- DEFINE_GSUBR ("IGUISkin_setColor", 3, 0, 0, IGUISkin_setColor);
- DEFINE_GSUBR ("IGUISkin_setFont", 3, 0, 0, IGUISkin_setFont);
- }
-
+void
+init_gui_skin (void)
+{
+ DEFINE_GSUBR ("IGUISkin_getColor", 2, 0, 0, IGUISkin_getColor);
+ DEFINE_GSUBR ("IGUISkin_getFont", 2, 0, 0, IGUISkin_getFont);
+ DEFINE_GSUBR ("IGUISkin_setColor", 3, 0, 0, IGUISkin_setColor);
+ DEFINE_GSUBR ("IGUISkin_setFont", 3, 0, 0, IGUISkin_setFont);
- char* color = scm_to_utf8_stringn (scm_symbol_to_string (default_color), NULL);
- if (!strcmp (color, "3d-dark-shadow"))
+ char* color_name = scm_to_utf8_string (scm_symbol_to_string (default_color));
+ gui::EGUI_DEFAULT_COLOR color;
+
+ if (!strcmp (color_name, "3d-dark-shadow"))
}
else
{
scm_error (scm_arg_type_key, NULL, "Wrong default color: ~S",
scm_list_1 (default_color), scm_list_1 (default_color));
}
}
else
{
scm_error (scm_arg_type_key, NULL, "Wrong default color: ~S",
scm_list_1 (default_color), scm_list_1 (default_color));
}
- char* font = scm_to_utf8_stringn (scm_symbol_to_string (default_font), NULL);
- if (!strcmp (font, "default"))
+ char* font_name = scm_to_utf8_string (scm_symbol_to_string (default_font));
+ gui::EGUI_DEFAULT_FONT font;
+
+ if (!strcmp (font_name, "default"))
}
else
{
scm_error (scm_arg_type_key, NULL, "Wrong default font: ~S",
scm_list_1 (default_font), scm_list_1 (default_font));
}
}
else
{
scm_error (scm_arg_type_key, NULL, "Wrong default font: ~S",
scm_list_1 (default_font), scm_list_1 (default_font));
}