X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=src%2Fcursor-control.cpp;h=55f6622e8997350ebfd0d0ef5f5911acc084bfe8;hb=6bcbb2cefb0e69afae9b1de828b85f506b1bef19;hp=fba412c0f4092df9926d0a9fcf0409296460673b;hpb=0193dc05fd03de73ef1e87a5e98a5d4060e07af8;p=guile-irrlicht.git diff --git a/src/cursor-control.cpp b/src/cursor-control.cpp index fba412c..55f6622 100644 --- a/src/cursor-control.cpp +++ b/src/cursor-control.cpp @@ -25,37 +25,27 @@ #include "gsubr.h" #include "position2d.h" - using namespace irr; - SCM -irr_gui_ICursorControl_getPosition (SCM cursor_control) +ICursorControl_getPosition (SCM cursor_control) { return scm_from_position2d_s32 (((gui::ICursorControl*)scm_to_pointer (cursor_control))->getPosition ()); } - SCM -irr_gui_ICursorControl_setPosition (SCM cursor_control, - SCM position) +ICursorControl_setPosition (SCM cursor_control, + SCM position) { ((gui::ICursorControl*)scm_to_pointer (cursor_control))-> setPosition (scm_to_position2d_s32 (position)); return SCM_UNSPECIFIED; } - -extern "C" { - - void - init_cursor_control (void) - { - DEFINE_GSUBR ("irr_gui_ICursorControl_getPosition", 1, 0, 0, - irr_gui_ICursorControl_getPosition); - DEFINE_GSUBR ("irr_gui_ICursorControl_setPosition", 2, 0, 0, - irr_gui_ICursorControl_setPosition); - } - +void +init_cursor_control (void) +{ + DEFINE_GSUBR ("ICursorControl_getPosition", 1, 0, 0, ICursorControl_getPosition); + DEFINE_GSUBR ("ICursorControl_setPosition", 2, 0, 0, ICursorControl_setPosition); }