let set_display_message f = f_display_message := f