type html_tag = [ `BR | `L of html_tag list | `T of string ]
type html_msg = [ `Error of html_tag | `Msg of html_tag ]
+val string_of_html_msg: html_msg -> string
+
class html_logger:
?width:int -> ?height:int -> ?packing:(GObj.widget -> unit) -> ?show:bool ->
unit ->