sig
  type flags = Readable | Writable
  val get_unix_fd : DBus.watch -> Unix.file_descr
  val get_enabled : DBus.watch -> bool
  val get_flags : DBus.watch -> DBus.Watch.flags list
  val handle : DBus.watch -> DBus.Watch.flags list -> unit
end