type t = { title : Jstr.t }
type Events.kind +=
  | AddPage of t [@@unboxed]

val create
  : unit -> Events.t

val on_close
  : t -> State.t -> State.t