TGdkGCClass

type TGdkGCClass = record

  parent_class: TGObjectClass;

  get_values: procedure(

  gc: PGdkGC;

  values: PGdkGCValues

);

  set_values: procedure(

  gc: PGdkGC;

  values: PGdkGCValues;

  mask: TGdkGCValuesMask

);

  set_dashes: procedure(

  gc: PGdkGC;

  dash_offset: gint;

  dash_list: array of gint8;

  n: gint

);

  _gdk_reserved1: procedure;

  _gdk_reserved2: procedure;

  _gdk_reserved3: procedure;

  _gdk_reserved4: procedure;

end;