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