]> matita.cs.unibo.it Git - helm.git/blob - helm/ocaml/logger/ui_logger.mli
optionalizide some class parameters
[helm.git] / helm / ocaml / logger / ui_logger.mli
1
2 type html_tag = [ `BR | `L of html_tag list | `T of string ]
3 type html_msg = [ `Error of html_tag | `Msg of html_tag ]
4
5 class html_logger:
6   ?width:int -> ?height:int -> ?packing:(GObj.widget -> unit) -> ?show:bool ->
7     unit ->
8       object
9           (* in all methods below "append_NL" defaults to true *)
10
11           (** log an HTML like message, see minimal markup above *)
12         method log: ?append_NL:bool -> html_msg -> unit
13
14           (** log a cic messages as degined in CicLogger *)
15         method log_cic_msg: ?append_NL:bool -> CicLogger.msg -> unit
16
17       end
18