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

diff --git a/src/cursor-control.cpp b/src/cursor-control.cpp
index 781fed7..c489346 100644
--- a/src/cursor-control.cpp
+++ b/src/cursor-control.cpp
@@ -44,9 +44,19 @@ ICursorControl_setPosition (SCM cursor_control,
   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);
 }