sig   type t   val make :     packing:(GObj.widget -> unit) ->     callback:(Log.event -> GTree.view_column -> unit) -> Warning_manager.t   val append : Warning_manager.t -> Log.event -> unit   val clear : Warning_manager.t -> unit end