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