DEFINE_GSUBR ("add-static-text!", 3, 0, 1, irr_gui_addStaticText);
DEFINE_GSUBR ("add-window!", 2, 0, 1, irr_gui_addWindow);
DEFINE_GSUBR ("get-built-in-font", 1, 0, 0, irr_gui_getBuiltInFont);
- DEFINE_GSUBR ("get-gui-environment", 1, 0, 0, irr_getGUIEnvironment);
DEFINE_GSUBR ("get-skin", 1, 0, 0, irr_gui_getSkin);
}
init_gui_environment_type, gui_environment_p,
wrap_gui_environment, unwrap_gui_environment);
- 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);
- }
-
SCM
irr_gui_addImage (SCM wrapped_gui_environment,
SCM image,