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