sig
  type t
  external init :
    title:string -> width:int -> height:int -> CL_DisplayWindow.t
    = "caml_CL_DisplayWindow_init"
  external of_desc :
    desc:CL_DisplayWindowDescription.t ->
    ?target:CL_DisplayTarget.t -> unit -> CL_DisplayWindow.t
    = "caml_CL_DisplayWindow_of_desc"
  external delete : CL_DisplayWindow.t -> unit
    = "caml_CL_DisplayWindow_delete"
  external flip : CL_DisplayWindow.t -> unit = "caml_CL_DisplayWindow_flip"
  external flipi : CL_DisplayWindow.t -> interval:int -> unit
    = "caml_CL_DisplayWindow_flipi"
  external get_gc : CL_DisplayWindow.t -> CL_GraphicContext.t
    = "caml_CL_DisplayWindow_get_gc"
  external get_ic : CL_DisplayWindow.t -> CL_InputContext.t
    = "caml_CL_DisplayWindow_get_ic"
end