X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=src%2Fgui-in-out-fader.cpp;h=ea296a532dfa0a08e36026493b2da32d551b6de0;hb=3bb58c2b45af12c0f9c9eac648e67ac6fa90e104;hp=028c84d19a705a8271fe46c4ac35653c31067be9;hpb=98052b04792129db97286fdd77ef3b0de8912286;p=guile-irrlicht.git

diff --git a/src/gui-in-out-fader.cpp b/src/gui-in-out-fader.cpp
index 028c84d..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
 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 @@ IGUIInOutFader_setColor (SCM in_out_fader,
   return SCM_UNSPECIFIED;
 }
 
-
-extern "C" {
-
-  void
-  init_gui_in_out_fader (void)
-  {
-    DEFINE_GSUBR ("IGUIInOutFader_setColor", 2, 1, 0, IGUIInOutFader_setColor);
-  }
-
+void
+init_gui_in_out_fader (void)
+{
+  DEFINE_GSUBR ("IGUIInOutFader_setColor", 2, 1, 0, IGUIInOutFader_setColor);
 }