TGClosure

type TGClosure = record

  flag0: LongInt;

  marshal: procedure(

  closure: PGClosure;

  return_value: PGValue;

  n_param_values: guint;

  param_values: PGValue;

  invocation_hint: gpointer;

  marshal_data: gpointer

);

  data: gpointer;

  notifiers: PGClosureNotifyData;

end;