sig
val set_display_message : (string -> unit) -> unit
val set_error_message : (string -> unit) -> unit
val set_warning_message : (string -> unit) -> unit
val display_message : string -> unit
val error_message : string -> unit
val warning_message : string -> unit
end