X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=src%2Fgui-skin.h;h=d2690167318a76ff8144164bee3e970f3dcdd9d3;hb=65527be1c7ad3f05ba651c25249fd8300f5f4fad;hp=529eb0c4e62852ab1c8d8bdacf6ef71ffaa7a523;hpb=5780991d786b994724112c97f691d9e2b9f2f1c5;p=guile-irrlicht.git

diff --git a/src/gui-skin.h b/src/gui-skin.h
index 529eb0c..d269016 100644
--- a/src/gui-skin.h
+++ b/src/gui-skin.h
@@ -35,13 +35,25 @@ extern "C" {
                         gui_skin_p, wrap_gui_skin, unwrap_gui_skin);
 
   SCM
-  irr_gui_getSkinFont (SCM wrapped_gui_skin,
-                       SCM rest);
+  irr_gui_IGUISkin_getColor (SCM wrapped_gui_skin,
+                             SCM color);
 
   SCM
-  irr_gui_setSkinFont (SCM wrapped_gui_skin,
-                       SCM font,
-                       SCM rest);
+  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);