sig
  type phase = [ `Connect | `Disconnect | `Initialize | `Unknown of int ]
  type t = {
    phase : Libvirt.Event.Graphics.phase;
    local : Libvirt.Event.Graphics_address.t;
    remote : Libvirt.Event.Graphics_address.t;
    auth_scheme : string option;
    subject : Libvirt.Event.Graphics_subject.t;
  }
  val to_string : Libvirt.Event.Graphics.t -> string
end