set-color!

[guile-irrlicht.git] / src / gui-skin.cpp

diff --git a/src/gui-skin.cpp b/src/gui-skin.cpp
index a5bfe2630873709ca0391a8a15685588db92f552..019dfdf4696747447ce479051fd2db011a64bdab 100644 (file)
--- 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,