Event.Vblank
type t = {
sequence : Unsigned.UInt32.t;
tv_sec : Unsigned.UInt32.t;
tv_usec : int;
crtc_id : Kms.Crtc.id;
user_data : nativeint;
}
val pp : t Fmt.t