X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=src%2Fcursor-control.cpp;h=781fed770b9a6d363b8a41a69b345c08440e2cdb;hb=c4d9e46f268b4f7f738dd77685c632991125cec9;hp=4efe056d14627248c4a2e2a76de6f5e57711fdad;hpb=d78951bd91783c61b312451198beb31f70b0f8b2;p=guile-irrlicht.git

diff --git a/src/cursor-control.cpp b/src/cursor-control.cpp
index 4efe056..781fed7 100644
--- a/src/cursor-control.cpp
+++ b/src/cursor-control.cpp
@@ -24,38 +24,29 @@
 #include "cursor-control.h"
 #include "gsubr.h"
 #include "position2d.h"
-
+#include "wrapped.h"
 
 using namespace irr;
 
-
 SCM
-gui_ICursorControl_getPosition (SCM cursor_control)
+ICursorControl_getPosition (SCM cursor_control)
 {
   return scm_from_position2d_s32
-    (((gui::ICursorControl*)scm_to_pointer (cursor_control))->getPosition ());
+    (((gui::ICursorControl*)scm_to_irr_pointer (cursor_control))->getPosition ());
 }
 
-
 SCM
-gui_ICursorControl_setPosition (SCM cursor_control,
-                                SCM position)
+ICursorControl_setPosition (SCM cursor_control,
+                            SCM position)
 {
-  ((gui::ICursorControl*)scm_to_pointer (cursor_control))->
+  ((gui::ICursorControl*)scm_to_irr_pointer (cursor_control))->
     setPosition (scm_to_position2d_s32 (position));
   return SCM_UNSPECIFIED;
 }
 
-
-extern "C" {
-
-  void
-  init_cursor_control (void)
-  {
-    DEFINE_GSUBR ("gui_ICursorControl_getPosition", 1, 0, 0,
-                  gui_ICursorControl_getPosition);
-    DEFINE_GSUBR ("gui_ICursorControl_setPosition", 2, 0, 0,
-                  gui_ICursorControl_setPosition);
-  }
-
+void
+init_cursor_control (void)
+{
+  DEFINE_GSUBR ("ICursorControl_getPosition", 1, 0, 0, ICursorControl_getPosition);
+  DEFINE_GSUBR ("ICursorControl_setPosition", 2, 0, 0, ICursorControl_setPosition);
 }