]> git.jsancho.org Git - guile-irrlicht.git/blobdiff - src/gui-in-out-fader.cpp
Some doc
[guile-irrlicht.git] / src / gui-in-out-fader.cpp
index 028c84d19a705a8271fe46c4ac35653c31067be9..ea296a532dfa0a08e36026493b2da32d551b6de0 100644 (file)
 #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);
 }