Module Display

module Display: sig .. end

type display 

type tagline_description = (string * char) list 

val create : ?channel:Pervasives.out_channel ->
       ?mode:[ `Classic | `Sophisticated ] ->
       ?columns:int ->
       ?description:tagline_description ->
       ?log_file:string -> ?log_level:int -> unit -> display

val finish : ?how:[ `Error | `Quiet | `Success ] -> display -> unit

val event : display -> ?pretend:bool -> string -> string -> Tags.t -> unit

val display : display -> (Pervasives.out_channel -> unit) -> unit

val update : display -> unit

val dprintf : ?log_level:int ->
       display -> ('a, Format.formatter, unit) Pervasives.format -> 'a