#include "color.h"
#include "gsubr.h"
#include "gui-skin.h"
+#include "wrapped.h"
using namespace irr;
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);
}
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 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 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;
}
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;