sig
  external create :
    GlGtk.visual_options list ->
    share:[> `glarea ] Gtk.optobj -> GlGtk.gl_area Gtk.obj
    = "ml_gtk_gl_area_new"
  external swap_buffers : [> `glarea ] Gtk.obj -> unit
    = "ml_gtk_gl_area_swap_buffers"
  external make_current : [> `glarea ] Gtk.obj -> bool
    = "ml_gtk_gl_area_make_current"
end