TGTypeModule

type TGTypeModule = object(TGObject)

  use_count: guint;

  type_infos: PGSList;

  interface_infos: PGSList;

  name: Pgchar;

  procedure add_interface();

  function register_enum();

  function register_flags();

  function register_type();

  procedure set_name();

  procedure unuse;

  function use;

end;

TGTypeModule

TGObject