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