sig

  type 'a mbx

  val create : ?owner:Bogue.Widget.t -> unit -> 'a Bogue.Mailbox.mbx

  val activate : ?sync:bool -> 'a Bogue.Mailbox.mbx -> ('a -> unit) -> unit

  val send : 'a Bogue.Mailbox.mbx -> 'a -> unit

  val enable : 'a Bogue.Mailbox.mbx -> unit

  val disable : 'a Bogue.Mailbox.mbx -> unit

  val clear : 'a Bogue.Mailbox.mbx -> unit

end