blob: 75ec203ba434997522a06948cb15793d922b81e4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
|
// included by gtk2.pas
{$IFDEF read_forward_definitions}
{$ENDIF read_forward_definitions}
//------------------------------------------------------------------------------
{$IFDEF read_interface_types}
PGtkBox = ^TGtkBox;
TGtkBox = record
container : TGtkContainer;
children : PGList;
spacing : gint16;
flag0 : word;
end;
PGtkBoxClass = ^TGtkBoxClass;
TGtkBoxClass = record
parent_class : TGtkContainerClass;
end;
PGtkBoxChild = ^TGtkBoxChild;
TGtkBoxChild = record
widget : PGtkWidget;
padding : guint16;
flag0 : word;
end;
{$ENDIF read_interface_types}
//------------------------------------------------------------------------------
{$IFDEF read_interface_rest}
const
bm_TGtkBox_homogeneous = $1;
bp_TGtkBox_homogeneous = 0;
bm_TGtkBoxChild_expand = $1;
bp_TGtkBoxChild_expand = 0;
bm_TGtkBoxChild_fill = $2;
bp_TGtkBoxChild_fill = 1;
bm_TGtkBoxChild_pack = $4;
bp_TGtkBoxChild_pack = 2;
bm_TGtkBoxChild_is_secondary = $8;
bp_TGtkBoxChild_is_secondary = 3;
function GTK_TYPE_BOX : GType;
function GTK_BOX(obj: pointer) : PGtkBox;
function GTK_BOX_CLASS(klass: pointer) : PGtkBoxClass;
function GTK_IS_BOX(obj: pointer) : boolean;
function GTK_IS_BOX_CLASS(klass: pointer) : boolean;
function GTK_BOX_GET_CLASS(obj: pointer) : PGtkBoxClass;
function homogeneous(var a : TGtkBox) : guint; overload;
procedure set_homogeneous(var a : TGtkBox; __homogeneous : guint); overload;
function expand(var a : TGtkBoxChild) : guint; overload;
procedure set_expand(var a : TGtkBoxChild; __expand : guint); overload;
function fill(var a : TGtkBoxChild) : guint;
procedure set_fill(var a : TGtkBoxChild; __fill : guint);
function pack(var a : TGtkBoxChild) : guint;
procedure set_pack(var a : TGtkBoxChild; __pack : guint);
function is_secondary(var a : TGtkBoxChild) : guint;
procedure set_is_secondary(var a : TGtkBoxChild; __is_secondary : guint);
function gtk_box_get_type:TGtkType; cdecl; external gtklib;
procedure gtk_box_pack_start(box:PGtkBox; child:PGtkWidget; expand:gboolean; fill:gboolean; padding:guint); cdecl; external gtklib;
procedure gtk_box_pack_end(box:PGtkBox; child:PGtkWidget; expand:gboolean; fill:gboolean; padding:guint); cdecl; external gtklib;
procedure gtk_box_pack_start_defaults(box:PGtkBox; widget:PGtkWidget); cdecl; external gtklib;
procedure gtk_box_pack_end_defaults(box:PGtkBox; widget:PGtkWidget); cdecl; external gtklib;
procedure gtk_box_set_homogeneous(box:PGtkBox; homogeneous:gboolean); cdecl; external gtklib;
function gtk_box_get_homogeneous(box:PGtkBox):gboolean; cdecl; external gtklib;
procedure gtk_box_set_spacing(box:PGtkBox; spacing:gint); cdecl; external gtklib;
function gtk_box_get_spacing(box:PGtkBox):gint; cdecl; external gtklib;
procedure gtk_box_reorder_child(box:PGtkBox; child:PGtkWidget; position:gint); cdecl; external gtklib;
procedure gtk_box_query_child_packing(box:PGtkBox; child:PGtkWidget; expand:Pgboolean; fill:Pgboolean; padding:Pguint;
pack_type:PGtkPackType); cdecl; external gtklib;
procedure gtk_box_set_child_packing(box:PGtkBox; child:PGtkWidget; expand:gboolean; fill:gboolean; padding:guint;
pack_type:TGtkPackType); cdecl; external gtklib;
{$ENDIF read_interface_rest}
//------------------------------------------------------------------------------
{$IFDEF read_implementation}
function GTK_TYPE_BOX : GType;
begin
GTK_TYPE_BOX:=gtk_box_get_type;
end;
function GTK_BOX(obj: pointer) : PGtkBox;
begin
GTK_BOX:=PGtkBox(GTK_CHECK_CAST(obj,GTK_TYPE_BOX));
end;
function GTK_BOX_CLASS(klass: pointer) : PGtkBoxClass;
begin
GTK_BOX_CLASS:=PGtkBoxClass(GTK_CHECK_CLASS_CAST(klass,GTK_TYPE_BOX));
end;
function GTK_IS_BOX(obj: pointer) : boolean;
begin
GTK_IS_BOX:=GTK_CHECK_TYPE(obj,GTK_TYPE_BOX);
end;
function GTK_IS_BOX_CLASS(klass: pointer) : boolean;
begin
GTK_IS_BOX_CLASS:=GTK_CHECK_CLASS_TYPE(klass,GTK_TYPE_BOX);
end;
function GTK_BOX_GET_CLASS(obj: pointer) : PGtkBoxClass;
begin
GTK_BOX_GET_CLASS:=PGtkBoxClass(GTK_CHECK_GET_CLASS(obj,GTK_TYPE_BOX));
end;
function homogeneous(var a : TGtkBox) : guint;
begin
homogeneous:=(a.flag0 and bm_TGtkBox_homogeneous) shr bp_TGtkBox_homogeneous;
end;
procedure set_homogeneous(var a : TGtkBox; __homogeneous : guint);
begin
a.flag0:=a.flag0 or ((__homogeneous shl bp_TGtkBox_homogeneous) and bm_TGtkBox_homogeneous);
end;
function expand(var a : TGtkBoxChild) : guint;
begin
expand:=(a.flag0 and bm_TGtkBoxChild_expand) shr bp_TGtkBoxChild_expand;
end;
procedure set_expand(var a : TGtkBoxChild; __expand : guint);
begin
a.flag0:=a.flag0 or ((__expand shl bp_TGtkBoxChild_expand) and bm_TGtkBoxChild_expand);
end;
function fill(var a : TGtkBoxChild) : guint;
begin
fill:=(a.flag0 and bm_TGtkBoxChild_fill) shr bp_TGtkBoxChild_fill;
end;
procedure set_fill(var a : TGtkBoxChild; __fill : guint);
begin
a.flag0:=a.flag0 or ((__fill shl bp_TGtkBoxChild_fill) and bm_TGtkBoxChild_fill);
end;
function pack(var a : TGtkBoxChild) : guint;
begin
pack:=(a.flag0 and bm_TGtkBoxChild_pack) shr bp_TGtkBoxChild_pack;
end;
procedure set_pack(var a : TGtkBoxChild; __pack : guint);
begin
a.flag0:=a.flag0 or ((__pack shl bp_TGtkBoxChild_pack) and bm_TGtkBoxChild_pack);
end;
function is_secondary(var a : TGtkBoxChild) : guint;
begin
is_secondary:=(a.flag0 and bm_TGtkBoxChild_is_secondary) shr bp_TGtkBoxChild_is_secondary;
end;
procedure set_is_secondary(var a : TGtkBoxChild; __is_secondary : guint);
begin
a.flag0:=a.flag0 or ((__is_secondary shl bp_TGtkBoxChild_is_secondary) and bm_TGtkBoxChild_is_secondary);
end;
{$ENDIF read_implementation}
// included by gtk2.pas
|
