X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=src%2Fcursor-control.cpp;h=c4893461281fd7ee61e12246b3df1a791e1e0f21;hb=3bb58c2b45af12c0f9c9eac648e67ac6fa90e104;hp=4a870e81029f47ee7974e0d711ce5fd5b325229f;hpb=2cdd08f70b0a58b2f00b341df5b73704d3febd47;p=guile-irrlicht.git

diff --git a/src/cursor-control.cpp b/src/cursor-control.cpp
index 4a870e8..c489346 100644
--- a/src/cursor-control.cpp
+++ b/src/cursor-control.cpp
@@ -22,35 +22,41 @@
 #include <irrlicht/irrlicht.h>
 #include <libguile.h>
 #include "cursor-control.h"
+#include "gsubr.h"
 #include "position2d.h"
 #include "wrapped.h"
 
-extern "C" {
-
-  void
-  init_cursor_control (void)
-  {
-    init_cursor_control_type ();
-  }
-
-  DEFINE_WRAPPED_TYPE (irr::gui::ICursorControl*, "cursor-control",
-                       init_cursor_control_type, cursor_control_p,
-                       wrap_cursor_control, unwrap_cursor_control);
-
-  SCM
-  irr_gui_setPosition (SCM wrapped_cursor_control,
-                       SCM position)
-  {
-    irr::gui::ICursorControl* control = unwrap_cursor_control (wrapped_cursor_control);
-    if (scm_is_integer (scm_car (position)) && scm_is_integer (scm_cadr (position)))
-      {
-        control->setPosition (scm_to_position2d_s32 (position));
-      }
-    else
-      {
-        control->setPosition (scm_to_position2d_f32 (position));
-      }
-    return SCM_UNSPECIFIED;
-  }
+using namespace irr;
 
+SCM
+ICursorControl_getPosition (SCM cursor_control)
+{
+  return scm_from_position2d_s32
+    (((gui::ICursorControl*)scm_to_irr_pointer (cursor_control))->getPosition ());
+}
+
+SCM
+ICursorControl_setPosition (SCM cursor_control,
+                            SCM position)
+{
+  ((gui::ICursorControl*)scm_to_irr_pointer (cursor_control))->
+    setPosition (scm_to_position2d_s32 (position));
+  return SCM_UNSPECIFIED;
+}
+
+SCM
+ICursorControl_setVisible (SCM cursor_control,
+                           SCM visible)
+{
+  ((gui::ICursorControl*)scm_to_irr_pointer (cursor_control))->
+    setVisible (scm_to_bool (visible));
+  return SCM_UNSPECIFIED;
+}
+
+void
+init_cursor_control (void)
+{
+  DEFINE_GSUBR ("ICursorControl_getPosition", 1, 0, 0, ICursorControl_getPosition);
+  DEFINE_GSUBR ("ICursorControl_setPosition", 2, 0, 0, ICursorControl_setPosition);
+  DEFINE_GSUBR ("ICursorControl_setVisible", 2, 0, 0, ICursorControl_setVisible);
 }