X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=src%2Fgui-in-out-fader.cpp;h=ea296a532dfa0a08e36026493b2da32d551b6de0;hb=79e12d94cc21232477796a4e76fc2ddb5d88f9dc;hp=e571b30530d5e9e35262edf3abf41d3dfa177285;hpb=ada2b81f3dde8085dd583dd71674a7575d096fda;p=guile-irrlicht.git

diff --git a/src/gui-in-out-fader.cpp b/src/gui-in-out-fader.cpp
index e571b30..ea296a5 100644
--- a/src/gui-in-out-fader.cpp
+++ b/src/gui-in-out-fader.cpp
@@ -24,17 +24,16 @@
 #include "color.h"
 #include "gsubr.h"
 #include "gui-in-out-fader.h"
-
+#include "wrapped.h"
 
 using namespace irr;
 
-
 SCM
-gui_IGUIInOutFader_setColor (SCM in_out_fader,
-                             SCM color,
-                             SCM dest_color)
+IGUIInOutFader_setColor (SCM in_out_fader,
+                         SCM color,
+                         SCM dest_color)
 {
-  gui::IGUIInOutFader* fader = (gui::IGUIInOutFader*)scm_to_pointer (in_out_fader);
+  gui::IGUIInOutFader* fader = (gui::IGUIInOutFader*)scm_to_irr_pointer (in_out_fader);
   if (dest_color == SCM_UNDEFINED)
     {
       fader->setColor (scm_to_color (color));
@@ -47,13 +46,8 @@ gui_IGUIInOutFader_setColor (SCM in_out_fader,
   return SCM_UNSPECIFIED;
 }
 
-
-extern "C" {
-
-  void
-  init_gui_in_out_fader (void)
-  {
-    DEFINE_GSUBR ("gui_IGUIInOutFader_setColor", 2, 1, 0, gui_IGUIInOutFader_setColor);
-  }
-
+void
+init_gui_in_out_fader (void)
+{
+  DEFINE_GSUBR ("IGUIInOutFader_setColor", 2, 1, 0, IGUIInOutFader_setColor);
 }