+ SCM
+ irr_getPosition (SCM wrapped_obj,
+ SCM i)
+ {
+ if (cursor_control_p (wrapped_obj))
+ {
+ return irr_gui_getPosition (wrapped_obj);
+ }
+ else if (is_scene_node_object (wrapped_obj))
+ {
+ return irr_scene_getPosition (wrapped_obj);
+ }
+ else
+ {
+ scm_error (scm_arg_type_key, NULL, "Cannot get position from object: ~S",
+ scm_list_1 (wrapped_obj), scm_list_1 (wrapped_obj));
+ }
+ }
+