/packages/gtk1/src/gtk/gtkbox.pp

https://github.com/slibre/freepascal · Puppet · 133 lines · 105 code · 28 blank · 0 comment · 0 complexity · 2fc6b2cd3b0e07ed77f463a3642e1aec MD5 · raw file

  1. {
  2. }
  3. {****************************************************************************
  4. Interface
  5. ****************************************************************************}
  6. {$ifdef read_interface}
  7. type
  8. PGtkBox = ^TGtkBox;
  9. TGtkBox = record
  10. container : TGtkContainer;
  11. children : PGList;
  12. spacing : gint16;
  13. flag0 : {$ifdef win32}longint{$else}word{$endif};
  14. end;
  15. const
  16. bm_box_homogeneous = 1;
  17. bp_box_homogeneous = 0;
  18. function homogeneous(var a : TGtkBox) : guint;
  19. procedure set_homogeneous(var a : TGtkBox; __homogeneous : guint);
  20. type
  21. PGtkBoxClass = ^TGtkBoxClass;
  22. TGtkBoxClass = record
  23. parent_class : TGtkContainerClass;
  24. end;
  25. PGtkBoxChild = ^TGtkBoxChild;
  26. TGtkBoxChild = record
  27. widget : PGtkWidget;
  28. padding : guint16;
  29. flag0 : {$ifdef win32}longint{$else}word{$endif};
  30. end;
  31. const
  32. bm_box_expand = 1;
  33. bp_box_expand = 0;
  34. bm_box_fill = 2;
  35. bp_box_fill = 1;
  36. bm_box_pack = 4;
  37. bp_box_pack = 2;
  38. function expand(var a : TGtkBoxChild) : guint;
  39. procedure set_expand(var a : TGtkBoxChild; __expand : guint);
  40. function fill(var a : TGtkBoxChild) : guint;
  41. procedure set_fill(var a : TGtkBoxChild; __fill : guint);
  42. function pack(var a : TGtkBoxChild) : guint;
  43. procedure set_pack(var a : TGtkBoxChild; __pack : guint);
  44. Type
  45. GTK_BOX=PGtkBox;
  46. GTK_BOX_CLASS=PGtkBoxClass;
  47. function GTK_BOX_TYPE:TGtkType;cdecl;external gtkdll name 'gtk_box_get_type';
  48. function GTK_IS_BOX(obj:pointer):boolean;
  49. function GTK_IS_BOX_CLASS(klass:pointer):boolean;
  50. function gtk_box_get_type:TGtkType;cdecl;external gtkdll name 'gtk_box_get_type';
  51. procedure gtk_box_pack_start(box:PGtkBox; child:PGtkWidget; expand:gboolean; fill:gboolean; padding:guint);cdecl;external gtkdll name 'gtk_box_pack_start';
  52. procedure gtk_box_pack_end(box:PGtkBox; child:PGtkWidget; expand:gboolean; fill:gboolean; padding:guint);cdecl;external gtkdll name 'gtk_box_pack_end';
  53. procedure gtk_box_pack_start_defaults(box:PGtkBox; widget:PGtkWidget);cdecl;external gtkdll name 'gtk_box_pack_start_defaults';
  54. procedure gtk_box_pack_end_defaults(box:PGtkBox; widget:PGtkWidget);cdecl;external gtkdll name 'gtk_box_pack_end_defaults';
  55. procedure gtk_box_set_homogeneous(box:PGtkBox; homogeneous:gboolean);cdecl;external gtkdll name 'gtk_box_set_homogeneous';
  56. procedure gtk_box_set_spacing(box:PGtkBox; spacing:gint);cdecl;external gtkdll name 'gtk_box_set_spacing';
  57. procedure gtk_box_reorder_child(box:PGtkBox; child:PGtkWidget; position:gint);cdecl;external gtkdll name 'gtk_box_reorder_child';
  58. procedure gtk_box_query_child_packing(box:PGtkBox; child:PGtkWidget; expand:Pgboolean; fill:Pgboolean; padding:Pguint;pack_type:PGtkPackType);cdecl;external gtkdll name 'gtk_box_query_child_packing';
  59. procedure gtk_box_set_child_packing(box:PGtkBox; child:PGtkWidget; expand:gboolean; fill:gboolean; padding:guint; pack_type:TGtkPackType);cdecl;external gtkdll name 'gtk_box_set_child_packing';
  60. {$endif read_interface}
  61. {****************************************************************************
  62. Implementation
  63. ****************************************************************************}
  64. {$ifdef read_implementation}
  65. function homogeneous(var a : TGtkBox) : guint;
  66. begin
  67. homogeneous:=(a.flag0 and bm_box_homogeneous) shr bp_box_homogeneous;
  68. end;
  69. procedure set_homogeneous(var a : TGtkBox; __homogeneous : guint);
  70. begin
  71. a.flag0:=a.flag0 or ((__homogeneous shl bp_box_homogeneous) and bm_box_homogeneous);
  72. end;
  73. function expand(var a : TGtkBoxChild) : guint;
  74. begin
  75. expand:=(a.flag0 and bm_box_expand) shr bp_box_expand;
  76. end;
  77. procedure set_expand(var a : TGtkBoxChild; __expand : guint);
  78. begin
  79. a.flag0:=a.flag0 or ((__expand shl bp_box_expand) and bm_box_expand);
  80. end;
  81. function fill(var a : TGtkBoxChild) : guint;
  82. begin
  83. fill:=(a.flag0 and bm_box_fill) shr bp_box_fill;
  84. end;
  85. procedure set_fill(var a : TGtkBoxChild; __fill : guint);
  86. begin
  87. a.flag0:=a.flag0 or ((__fill shl bp_box_fill) and bm_box_fill);
  88. end;
  89. function pack(var a : TGtkBoxChild) : guint;
  90. begin
  91. pack:=(a.flag0 and bm_box_pack) shr bp_box_pack;
  92. end;
  93. procedure set_pack(var a : TGtkBoxChild; __pack : guint);
  94. begin
  95. a.flag0:=a.flag0 or ((__pack shl bp_box_pack) and bm_box_pack);
  96. end;
  97. function GTK_IS_BOX(obj:pointer):boolean;
  98. begin
  99. GTK_IS_BOX:=(obj<>nil) and GTK_IS_BOX_CLASS(PGtkTypeObject(obj)^.klass);
  100. end;
  101. function GTK_IS_BOX_CLASS(klass:pointer):boolean;
  102. begin
  103. GTK_IS_BOX_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GTK_BOX_TYPE);
  104. end;
  105. {$endif read_implementation}