sig
  val block : DBus.pending_call -> unit
  val cancel : DBus.pending_call -> unit
  val get_completed : DBus.pending_call -> bool
  val steal_reply : DBus.pending_call -> DBus.message
end