TGClosure

type TGClosure = object

  Bitfield0: TGClosureBitfield0;

  marshal: ;

  data: gpointer;

  notifiers: PGClosureNotifyData;

  function new_object();

  function new_simple();

  procedure add_finalize_notifier();

  procedure add_invalidate_notifier();

  procedure add_marshal_guards();

  procedure invalidate;

  procedure invoke();

  function ref;

  procedure remove_finalize_notifier();

  procedure remove_invalidate_notifier();

  procedure set_marshal();

  procedure set_meta_marshal();

  procedure sink;

  procedure unref;

end;

TGClosure