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