#include <irrlicht/irrlicht.h>
#include <libguile.h>
+
#include "cursor-control.h"
+#include "device.h"
#include "position2d.h"
#include "wrapped.h"
init_cursor_control (void)
{
init_cursor_control_type ();
+ scm_c_define_gsubr ("get-cursor-control", 1, 0, 0, (scm_t_subr)irr_getCursorControl);
+ scm_c_export ("get-cursor-control", NULL);
}
DEFINE_WRAPPED_TYPE (irr::gui::ICursorControl*, "cursor-control",
init_cursor_control_type, cursor_control_p,
wrap_cursor_control, unwrap_cursor_control);
+ 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_setPosition (SCM wrapped_cursor_control,
SCM position)