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