- init_gui_static_text ();
-
- // Shared procedures (used by two or more objects)
- DEFINE_GSUBR ("set-override-color!", 2, 0, 0, irr_gui_setOverrideColor);
- }
-
- SCM
- irr_gui_setOverrideColor (SCM wrapped_obj,
- SCM color)
- {
-#define SET_OVERRIDE_COLOR(OBJ) OBJ->setOverrideColor (scm_to_color (color));
-
- if (gui_edit_box_p (wrapped_obj))
- {
- SET_OVERRIDE_COLOR (unwrap_gui_edit_box (wrapped_obj));
- }
- else if (gui_static_text_p (wrapped_obj))
- {
- SET_OVERRIDE_COLOR (unwrap_gui_static_text (wrapped_obj));
- }
- else
- {
- scm_error (scm_arg_type_key, NULL, "Cannot set override color to object: ~S",
- scm_list_1 (wrapped_obj), scm_list_1 (wrapped_obj));
- }
- return SCM_UNSPECIFIED;