+ SCM
+ irr_gui_setColor (SCM wrapped_obj,
+ SCM color,
+ SCM dest_color)
+ {
+ if (gui_image_p (wrapped_obj))
+ {
+ // Params: color
+ unwrap_gui_image (wrapped_obj)->setColor (scm_to_color (color));
+ return SCM_UNSPECIFIED;
+ }
+ else if (gui_in_out_fader_p (wrapped_obj))
+ {
+ // Params: color and dest_color (optional)
+ return irr_gui_IGUIInOutFader_setColor (wrapped_obj, color, dest_color);
+ }
+ else if (gui_skin_p (wrapped_obj) && !scm_is_false (dest_color))
+ {
+ // Params: which and new_color
+ return irr_gui_IGUISkin_setColor (wrapped_obj, color, dest_color);
+ }
+ else
+ {
+ scm_error (scm_arg_type_key, NULL, "Cannot set color to object: ~S",
+ scm_list_1 (wrapped_obj), scm_list_1 (wrapped_obj));
+ }
+ }
+