external make_current : t -> unit = "graphics_context_make_current"