TGHook

type TGHook = object

  data: gpointer;

  next: PGHook;

  prev: PGHook;

  ref_count: guint;

  hook_id: gulong;

  flags: guint;

  func: gpointer;

  destroy_1: TGDestroyNotify;

  function compare_ids();

  function alloc();

  function destroy_();

  procedure destroy_link();

  function find();

  function find_data();

  function find_func();

  function find_func_data();

  function first_valid();

  procedure free();

  function get();

  procedure insert_before();

  procedure insert_sorted();

  function next_valid();

  procedure prepend();

  function ref();

  procedure unref();

end;

TGHook