#include "color.h"
#include "gsubr.h"
#include "gui-skin.h"
-
+#include "wrapped.h"
using namespace irr;
-
SCM
-irr_gui_IGUISkin_getColor (SCM gui_skin,
- SCM color)
+IGUISkin_getColor (SCM gui_skin,
+ SCM color)
{
- gui::IGUISkin* skin = (gui::IGUISkin*) scm_to_pointer (gui_skin);
+ gui::IGUISkin* skin = (gui::IGUISkin*) scm_to_irr_pointer (gui_skin);
video::SColor scolor = skin->getColor (scm_to_default_color (color));
return scm_from_color (scolor);
}
-
SCM
-irr_gui_IGUISkin_getFont (SCM gui_skin,
- SCM which)
+IGUISkin_getFont (SCM gui_skin,
+ SCM which)
{
- gui::IGUISkin* skin = (gui::IGUISkin*) scm_to_pointer (gui_skin);
+ gui::IGUISkin* skin = (gui::IGUISkin*) scm_to_irr_pointer (gui_skin);
gui::IGUIFont* font = skin->getFont (scm_to_default_font (which));
return scm_from_pointer ((void*) font, NULL);
}
-
SCM
-irr_gui_IGUISkin_setColor (SCM gui_skin,
- SCM which,
- SCM new_color)
+IGUISkin_setColor (SCM gui_skin,
+ SCM which,
+ SCM new_color)
{
- gui::IGUISkin* skin = (gui::IGUISkin*) scm_to_pointer (gui_skin);
+ gui::IGUISkin* skin = (gui::IGUISkin*) scm_to_irr_pointer (gui_skin);
skin->setColor (scm_to_default_color (which),
scm_to_color (new_color));
return SCM_UNSPECIFIED;
}
-
SCM
-irr_gui_IGUISkin_setFont (SCM gui_skin,
- SCM font,
- SCM which)
+IGUISkin_setFont (SCM gui_skin,
+ SCM font,
+ SCM which)
{
- 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),
scm_to_default_font (which));
return SCM_UNSPECIFIED;
}
-
-extern "C" {
-
- void
- init_gui_skin (void)
- {
- DEFINE_GSUBR ("irr_gui_IGUISkin_getColor", 2, 0, 0, irr_gui_IGUISkin_getColor);
- DEFINE_GSUBR ("irr_gui_IGUISkin_getFont", 2, 0, 0, irr_gui_IGUISkin_getFont);
- DEFINE_GSUBR ("irr_gui_IGUISkin_setColor", 3, 0, 0, irr_gui_IGUISkin_setColor);
- DEFINE_GSUBR ("irr_gui_IGUISkin_setFont", 3, 0, 0, irr_gui_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);
}
gui::EGUI_DEFAULT_COLOR
scm_to_default_color (SCM default_color)
{
- char* color = scm_to_utf8_stringn (scm_symbol_to_string (default_color), NULL);
+ char* color = scm_to_utf8_string (scm_symbol_to_string (default_color));
if (!strcmp (color, "3d-dark-shadow"))
{
return gui::EGDC_3D_DARK_SHADOW;
}
}
-
gui::EGUI_DEFAULT_FONT
scm_to_default_font (SCM default_font)
{
- char* font = scm_to_utf8_stringn (scm_symbol_to_string (default_font), NULL);
+ char* font = scm_to_utf8_string (scm_symbol_to_string (default_font));
if (!strcmp (font, "default"))
{
return gui::EGDF_DEFAULT;