+ SCM
+ irr_getCursorControl (SCM wrapped_device)
+ {
+ irr::gui::ICursorControl* cursor_control =
+ unwrap_device (wrapped_device)->getCursorControl ();
+ 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 ());
+ }
+