X-Git-Url: https://git.jsancho.org/?p=guile-irrlicht.git;a=blobdiff_plain;f=src%2Fgui-skin.cpp;fp=src%2Fgui-skin.cpp;h=019dfdf4696747447ce479051fd2db011a64bdab;hp=a5bfe2630873709ca0391a8a15685588db92f552;hb=65527be1c7ad3f05ba651c25249fd8300f5f4fad;hpb=61aadd8525de89016f63572fd474547a1bb932de

diff --git a/src/gui-skin.cpp b/src/gui-skin.cpp
index a5bfe26..019dfdf 100644
--- a/src/gui-skin.cpp
+++ b/src/gui-skin.cpp
@@ -65,6 +65,17 @@ extern "C" {
     return wrap_gui_font (font);
   }
 
+  SCM
+  irr_gui_IGUISkin_setColor (SCM wrapped_gui_skin,
+                             SCM which,
+                             SCM new_color)
+  {
+    irr::gui::IGUISkin* skin = unwrap_gui_skin (wrapped_gui_skin);
+    skin->setColor (scm_to_default_color (which),
+                    scm_to_color (new_color));
+    return SCM_UNSPECIFIED;
+  }
+
   SCM
   irr_gui_setFont (SCM wrapped_gui_skin,
                    SCM font,