// Shared procedures (used by two or more objects)
DEFINE_GSUBR ("add-button!", 1, 1, 1, irr_gui_addButton);
+ DEFINE_GSUBR ("get-font", 1, 1, 1, irr_gui_getFont);
DEFINE_GSUBR ("set-override-color!", 2, 0, 0, irr_gui_setOverrideColor);
}
}
}
+ SCM
+ irr_gui_getFont (SCM wrapped_obj,
+ SCM filename,
+ SCM rest)
+ {
+ if (gui_environment_p (wrapped_obj))
+ {
+ return irr_gui_IGUIEnvironment_getFont (wrapped_obj, filename);
+ }
+ else if (gui_skin_p (wrapped_obj))
+ {
+ return irr_gui_IGUISkin_getFont (wrapped_obj, rest);
+ }
+ else
+ {
+ scm_error (scm_arg_type_key, NULL, "Cannot get font from object: ~S",
+ scm_list_1 (wrapped_obj), scm_list_1 (wrapped_obj));
+ }
+ }
+
SCM
irr_gui_setOverrideColor (SCM wrapped_obj,
SCM color)