#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;
}