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