X-Git-Url: https://git.jsancho.org/?p=guile-irrlicht.git;a=blobdiff_plain;f=src%2Fgui-skin.h;h=57a31d956b7b0a6e3289615b73de303bc9c9256d;hp=d2690167318a76ff8144164bee3e970f3dcdd9d3;hb=3bb58c2b45af12c0f9c9eac648e67ac6fa90e104;hpb=65527be1c7ad3f05ba651c25249fd8300f5f4fad diff --git a/src/gui-skin.h b/src/gui-skin.h index d269016..57a31d9 100644 --- a/src/gui-skin.h +++ b/src/gui-skin.h @@ -24,40 +24,14 @@ #include #include -#include "wrapped.h" -extern "C" { +void +init_gui_skin (void); - void - init_gui_skin (void); +irr::gui::EGUI_DEFAULT_COLOR +scm_to_default_color (SCM default_color); - DECLARE_WRAPPED_TYPE (irr::gui::IGUISkin*, init_gui_skin_type, - gui_skin_p, wrap_gui_skin, unwrap_gui_skin); - - SCM - irr_gui_IGUISkin_getColor (SCM wrapped_gui_skin, - SCM color); - - SCM - irr_gui_IGUISkin_getFont (SCM wrapped_gui_skin, - SCM rest); - - SCM - irr_gui_IGUISkin_setColor (SCM wrapped_gui_skin, - SCM which, - SCM new_color); - - SCM - irr_gui_setFont (SCM wrapped_gui_skin, - SCM font, - SCM rest); - - irr::gui::EGUI_DEFAULT_COLOR - scm_to_default_color (SCM default_color); - - irr::gui::EGUI_DEFAULT_FONT - scm_to_default_font (SCM default_font); - -} +irr::gui::EGUI_DEFAULT_FONT +scm_to_default_font (SCM default_font); #endif