- SCM
- irr_getGUIEnvironment (SCM wrapped_obj)
- {
- irr::gui::IGUIEnvironment* gui_environment;
- if (device_p (wrapped_obj))
- {
- gui_environment = unwrap_device (wrapped_obj)->getGUIEnvironment ();
- }
- else
- {
- scm_error (scm_arg_type_key, NULL, "Cannot get GUI environment from object: ~S",
- scm_list_1 (wrapped_obj), scm_list_1 (wrapped_obj));
- }
- return wrap_gui_environment (gui_environment);
- }
-