atkrelationset.inc 2.9 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879
  1. // included by atk.pp
  2. {$IFDEF read_forward_definitions}
  3. PAtkRelationSet = ^TAtkRelationSet;
  4. {$ENDIF read_forward_definitions}
  5. //------------------------------------------------------------------------------
  6. {$IFDEF read_interface_types}
  7. TAtkRelationSet = record
  8. parent : TGObject;
  9. relations : PGPtrArray;
  10. end;
  11. PAtkRelationSetClass = ^TAtkRelationSetClass;
  12. TAtkRelationSetClass = record
  13. parent : TGObjectClass;
  14. pad1 : TAtkFunction;
  15. pad2 : TAtkFunction;
  16. end;
  17. {$ENDIF read_interface_types}
  18. //------------------------------------------------------------------------------
  19. {$IFDEF read_interface_rest}
  20. function ATK_TYPE_RELATION_SET : GType;
  21. function ATK_RELATION_SET(obj: pointer) : PAtkRelationSet;
  22. function ATK_RELATION_SET_CLASS(klass: pointer) : PAtkRelationSetClass;
  23. function ATK_IS_RELATION_SET(obj: pointer) : boolean;
  24. function ATK_IS_RELATION_SET_CLASS(klass: pointer) : boolean;
  25. function ATK_RELATION_SET_GET_CLASS(obj: pointer) : PAtkRelationSetClass;
  26. function atk_relation_set_get_type:GType; cdecl; external atklib;
  27. function atk_relation_set_new:PAtkRelationSet; cdecl; external atklib;
  28. function atk_relation_set_contains(RelationSet:PAtkRelationSet; relationship:TAtkRelationType):gboolean; cdecl; external atklib;
  29. procedure atk_relation_set_remove(RelationSet:PAtkRelationSet; relation:PAtkRelation); cdecl; external atklib;
  30. procedure atk_relation_set_add(RelationSet:PAtkRelationSet; relation:PAtkRelation); cdecl; external atklib;
  31. function atk_relation_set_get_n_relations(RelationSet:PAtkRelationSet):gint; cdecl; external atklib;
  32. function atk_relation_set_get_relation(RelationSet:PAtkRelationSet; i:gint):PAtkRelation; cdecl; external atklib;
  33. function atk_relation_set_get_relation_by_type(RelationSet:PAtkRelationSet; relationship:TAtkRelationType):PAtkRelation; cdecl; external atklib;
  34. {$ENDIF read_interface_rest}
  35. //------------------------------------------------------------------------------
  36. {$IFDEF read_implementation}
  37. function ATK_TYPE_RELATION_SET : GType;
  38. begin
  39. ATK_TYPE_RELATION_SET:=atk_relation_set_get_type;
  40. end;
  41. function ATK_RELATION_SET(obj: pointer) : PAtkRelationSet;
  42. begin
  43. ATK_RELATION_SET:=PAtkRelationSet(G_TYPE_CHECK_INSTANCE_CAST(obj,ATK_TYPE_RELATION_SET));
  44. end;
  45. function ATK_RELATION_SET_CLASS(klass: pointer) : PAtkRelationSetClass;
  46. begin
  47. ATK_RELATION_SET_CLASS:=PAtkRelationSetClass(G_TYPE_CHECK_CLASS_CAST(klass,ATK_TYPE_RELATION_SET));
  48. end;
  49. function ATK_IS_RELATION_SET(obj: pointer) : boolean;
  50. begin
  51. ATK_IS_RELATION_SET:=G_TYPE_CHECK_INSTANCE_TYPE(obj,ATK_TYPE_RELATION_SET);
  52. end;
  53. function ATK_IS_RELATION_SET_CLASS(klass: pointer) : boolean;
  54. begin
  55. ATK_IS_RELATION_SET_CLASS:=G_TYPE_CHECK_CLASS_TYPE(klass,ATK_TYPE_RELATION_SET);
  56. end;
  57. function ATK_RELATION_SET_GET_CLASS(obj: pointer) : PAtkRelationSetClass;
  58. begin
  59. ATK_RELATION_SET_GET_CLASS:=PAtkRelationSetClass(G_TYPE_INSTANCE_GET_CLASS(obj,ATK_TYPE_RELATION_SET));
  60. end;
  61. {$ENDIF read_implementation}