call remote procs from guile code

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

diff --git a/src/gui-skin.cpp b/src/gui-skin.cpp
index b6e0ae1dfcb71f3d5d7fff6a84f83c2f94b83a79..abe13f554f9e600634959e20ed0a2b1d493affb1 100644 (file)
--- a/src/gui-skin.cpp
+++ b/src/gui-skin.cpp
@@ -30,8 +30,8 @@ using namespace irr;
 
 
 SCM
-irr_gui_IGUISkin_getColor (SCM gui_skin,
-                           SCM color)
+IGUISkin_getColor (SCM gui_skin,
+                   SCM color)
 {
   gui::IGUISkin* skin = (gui::IGUISkin*) scm_to_pointer (gui_skin);
   video::SColor scolor = skin->getColor (scm_to_default_color (color));
@@ -40,8 +40,8 @@ irr_gui_IGUISkin_getColor (SCM gui_skin,
 
 
 SCM
-irr_gui_IGUISkin_getFont (SCM gui_skin,
-                          SCM which)
+IGUISkin_getFont (SCM gui_skin,
+                  SCM which)
 {
   gui::IGUISkin* skin = (gui::IGUISkin*) scm_to_pointer (gui_skin);
   gui::IGUIFont* font = skin->getFont (scm_to_default_font (which));
@@ -50,9 +50,9 @@ irr_gui_IGUISkin_getFont (SCM gui_skin,
 
 
 SCM
-irr_gui_IGUISkin_setColor (SCM gui_skin,
-                           SCM which,
-                           SCM new_color)
+IGUISkin_setColor (SCM gui_skin,
+                   SCM which,
+                   SCM new_color)
 {
   gui::IGUISkin* skin = (gui::IGUISkin*) scm_to_pointer (gui_skin);
   skin->setColor (scm_to_default_color (which),
@@ -62,9 +62,9 @@ irr_gui_IGUISkin_setColor (SCM gui_skin,
 
 
 SCM
-irr_gui_IGUISkin_setFont (SCM gui_skin,
-                          SCM font,
-                          SCM which)
+IGUISkin_setFont (SCM gui_skin,
+                  SCM font,
+                  SCM which)
 {
   gui::IGUISkin* skin = (gui::IGUISkin*) scm_to_pointer (gui_skin);
   skin->setFont ((gui::IGUIFont*) scm_to_pointer (font),
@@ -78,10 +78,10 @@ extern "C" {
   void
   init_gui_skin (void)
   {
-    DEFINE_GSUBR ("irr_gui_IGUISkin_getColor", 2, 0, 0, irr_gui_IGUISkin_getColor);
-    DEFINE_GSUBR ("irr_gui_IGUISkin_getFont", 2, 0, 0, irr_gui_IGUISkin_getFont);
-    DEFINE_GSUBR ("irr_gui_IGUISkin_setColor", 3, 0, 0, irr_gui_IGUISkin_setColor);
-    DEFINE_GSUBR ("irr_gui_IGUISkin_setFont", 3, 0, 0, irr_gui_IGUISkin_setFont);
+    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);
   }
 
 }