X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=src%2Fcursor-control.cpp;fp=src%2Fcursor-control.cpp;h=1147eab54191ab35ad655b9ef0c6ce103c5ac8c9;hb=8876c6e31fddf00f9764d9fe73930d8dc8fc6c4a;hp=5ff6540d7960e82df57fea5fa40b9049627fed7a;hpb=898d352f35f3f007dd4c1f49091f38bdeb012fd3;p=guile-irrlicht.git

diff --git a/src/cursor-control.cpp b/src/cursor-control.cpp
index 5ff6540..1147eab 100644
--- a/src/cursor-control.cpp
+++ b/src/cursor-control.cpp
@@ -49,6 +49,13 @@ extern "C" {
     return wrap_cursor_control (cursor_control);
   }
 
+  SCM
+  irr_gui_getPosition (SCM wrapped_cursor_control)
+  {
+    irr::gui::ICursorControl* control = unwrap_cursor_control (wrapped_cursor_control);
+    return scm_from_position2d_s32 (control->getPosition ());
+  }
+
   SCM
   irr_gui_setPosition (SCM wrapped_cursor_control,
                        SCM position)