#include "gsubr.h"
#include "gui-skin.h"
-
using namespace irr;
-
SCM
IGUISkin_getColor (SCM gui_skin,
SCM color)
return scm_from_color (scolor);
}
-
SCM
IGUISkin_getFont (SCM gui_skin,
SCM which)
return scm_from_pointer ((void*) font, NULL);
}
-
SCM
IGUISkin_setColor (SCM gui_skin,
SCM which,
return SCM_UNSPECIFIED;
}
-
SCM
IGUISkin_setFont (SCM gui_skin,
SCM font,
return SCM_UNSPECIFIED;
}
-
-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);
}
gui::EGUI_DEFAULT_COLOR
}
}
-
gui::EGUI_DEFAULT_FONT
scm_to_default_font (SCM default_font)
{