TGdkGLDrawableClass

type TGdkGLDrawableClass = record

  base_iface: TGTypeInterface;

  create_new_context: function(

  gldrawable: PGdkGLDrawable;

  share_list: PGdkGLContext;

  direct: gboolean;

  render_type: LongInt

):PGdkGLContext;

  make_context_current: function(

  draw: PGdkGLDrawable;

  a_read: PGdkGLDrawable;

  glcontext: PGdkGLContext

):gboolean;

  is_double_buffered: function(

  gldrawable: PGdkGLDrawable

):gboolean;

  swap_buffers: procedure(

  gldrawable: PGdkGLDrawable

);

  wait_gl: procedure(

  gldrawable: PGdkGLDrawable

);

  wait_gdk: procedure(

  gldrawable: PGdkGLDrawable

);

  gl_begin: function(

  draw: PGdkGLDrawable;

  a_read: PGdkGLDrawable;

  glcontext: PGdkGLContext

):gboolean;

  gl_end: procedure(

  gldrawable: PGdkGLDrawable

);

  get_gl_config: function(

  gldrawable: PGdkGLDrawable

):PGdkGLConfig;

  get_size: procedure(

  gldrawable: PGdkGLDrawable;

  width: Pgint;

  height: Pgint

);

end;