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
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
|
// included by gtk2.pas
{$IFDEF read_forward_definitions}
{$ENDIF read_forward_definitions}
//------------------------------------------------------------------------------
{$IFDEF read_interface_types}
PGtkCTreePos = ^TGtkCTreePos;
TGtkCTreePos = (
GTK_CTREE_POS_BEFORE,
GTK_CTREE_POS_AS_CHILD,
GTK_CTREE_POS_AFTER
);
PGtkCTreeLineStyle = ^TGtkCTreeLineStyle;
TGtkCTreeLineStyle = (
GTK_CTREE_LINES_NONE,
GTK_CTREE_LINES_SOLID,
GTK_CTREE_LINES_DOTTED,
GTK_CTREE_LINES_TABBED
);
PGtkCTreeExpanderStyle = ^TGtkCTreeExpanderStyle;
TGtkCTreeExpanderStyle = (
GTK_CTREE_EXPANDER_NONE,
GTK_CTREE_EXPANDER_SQUARE,
GTK_CTREE_EXPANDER_TRIANGLE,
GTK_CTREE_EXPANDER_CIRCULAR
);
PGtkCTreeExpansionType = ^TGtkCTreeExpansionType;
TGtkCTreeExpansionType = (
GTK_CTREE_EXPANSION_EXPAND,
GTK_CTREE_EXPANSION_EXPAND_RECURSIVE,
GTK_CTREE_EXPANSION_COLLAPSE,
GTK_CTREE_EXPANSION_COLLAPSE_RECURSIVE,
GTK_CTREE_EXPANSION_TOGGLE,
GTK_CTREE_EXPANSION_TOGGLE_RECURSIVE
);
PGtkCTree = ^TGtkCTree;
PGtkCTreeNode = ^TGtkCTreeNode;
TGtkCTreeFunc = procedure (ctree:PGtkCTree; node:PGtkCTreeNode; data:gpointer); cdecl;
TGtkCTreeGNodeFunc = function (ctree:PGtkCTree; depth:guint; gnode:PGNode; cnode:PGtkCTreeNode; data:gpointer):gboolean; cdecl;
TGtkCTreeCompareDragFunc = function (ctree:PGtkCTree; source_node:PGtkCTreeNode; new_parent:PGtkCTreeNode; new_sibling:PGtkCTreeNode):gboolean; cdecl;
TGtkCTree = record
clist : TGtkCList;
lines_gc : PGdkGC;
tree_indent : gint;
tree_spacing : gint;
tree_column : gint;
flag0 : word;
drag_compare : TGtkCTreeCompareDragFunc;
end;
PGtkCTreeClass = ^TGtkCTreeClass;
TGtkCTreeClass = record
parent_class : TGtkCListClass;
tree_select_row : procedure (ctree:PGtkCTree; row:PGtkCTreeNode; column:gint); cdecl;
tree_unselect_row : procedure (ctree:PGtkCTree; row:PGtkCTreeNode; column:gint); cdecl;
tree_expand : procedure (ctree:PGtkCTree; node:PGtkCTreeNode); cdecl;
tree_collapse : procedure (ctree:PGtkCTree; node:PGtkCTreeNode); cdecl;
tree_move : procedure (ctree:PGtkCTree; node:PGtkCTreeNode; new_parent:PGtkCTreeNode; new_sibling:PGtkCTreeNode); cdecl;
change_focus_row_expansion : procedure (ctree:PGtkCTree; action:TGtkCTreeExpansionType); cdecl;
end;
PGtkCTreeRow = ^TGtkCTreeRow;
TGtkCTreeRow = record
row : TGtkCListRow;
parent : PGtkCTreeNode;
sibling : PGtkCTreeNode;
children : PGtkCTreeNode;
pixmap_closed : PGdkPixmap;
mask_closed : PGdkBitmap;
pixmap_opened : PGdkPixmap;
mask_opened : PGdkBitmap;
level : guint16;
flag0 : word;
end;
TGtkCTreeNode = record
list : TGList;
end;
{$ENDIF read_interface_types}
//------------------------------------------------------------------------------
{$IFDEF read_interface_rest}
const
bm_TGtkCTree_line_style = $3;
bp_TGtkCTree_line_style = 0;
bm_TGtkCTree_expander_style = $C;
bp_TGtkCTree_expander_style = 2;
bm_TGtkCTree_show_stub = $10;
bp_TGtkCTree_show_stub = 4;
bm_TGtkCTreeRow_is_leaf = $1;
bp_TGtkCTreeRow_is_leaf = 0;
bm_TGtkCTreeRow_expanded = $2;
bp_TGtkCTreeRow_expanded = 1;
function GTK_TYPE_CTREE : GType;
function GTK_CTREE(obj: pointer) : PGtkCTree;
function GTK_CTREE_CLASS(klass: pointer) : PGtkCTreeClass;
function GTK_IS_CTREE(obj: pointer) : boolean;
function GTK_IS_CTREE_CLASS(klass: pointer) : boolean;
function GTK_CTREE_GET_CLASS(obj: pointer) : PGtkCTreeClass;
function GTK_CTREE_ROW(_node_ : ptrint) : PGtkCTreeRow;
function GTK_CTREE_NODE(_node_ : ptrint) : PGtkCTreeNode;
function GTK_CTREE_NODE_NEXT(_nnode_ : ptrint) : PGtkCTreeNode;
function GTK_CTREE_NODE_PREV(_pnode_ : ptrint) : PGtkCTreeNode;
function GTK_CTREE_FUNC(_func_ : ptrint) : TGtkCTreeFunc;
function GTK_TYPE_CTREE_NODE : GType;
function line_style(var a : TGtkCTree) : guint;
procedure set_line_style(var a : TGtkCTree; __line_style : guint);
function expander_style(var a : TGtkCTree) : guint;
procedure set_expander_style(var a : TGtkCTree; __expander_style : guint);
function show_stub(var a : TGtkCTree) : guint;
procedure set_show_stub(var a : TGtkCTree; __show_stub : guint);
function is_leaf(var a : TGtkCTreeRow) : guint;
procedure set_is_leaf(var a : TGtkCTreeRow; __is_leaf : guint);
function expanded(var a : TGtkCTreeRow) : guint; overload;
procedure set_expanded(var a : TGtkCTreeRow; __expanded : guint); overload;
{
Creation, insertion, deletion
}
function gtk_ctree_get_type:TGtkType; cdecl; external gtklib;
{$IFNDEF KYLIX}
function gtk_ctree_new_with_titles(columns:gint; tree_column:gint; titles:array of Pgchar):PGtkWidget; cdecl; external gtklib;
{$ELSE}
function gtk_ctree_new_with_titles(columns:gint; tree_column:gint):PGtkWidget; varargs; cdecl; external gtklib;
{$ENDIF}
function gtk_ctree_new(columns:gint; tree_column:gint):PGtkWidget; cdecl; external gtklib;
function gtk_ctree_insert_node(ctree:PGtkCTree; parent:PGtkCTreeNode; sibling:PGtkCTreeNode; text:array of Pgchar; spacing:guint8;
pixmap_closed:PGdkPixmap; mask_closed:PGdkBitmap; pixmap_opened:PGdkPixmap; mask_opened:PGdkBitmap; is_leaf:gboolean;
expanded:gboolean):PGtkCTreeNode; cdecl; external gtklib;
procedure gtk_ctree_remove_node(ctree:PGtkCTree; node:PGtkCTreeNode); cdecl; external gtklib;
function gtk_ctree_insert_gnode(ctree:PGtkCTree; parent:PGtkCTreeNode; sibling:PGtkCTreeNode; gnode:PGNode; func:TGtkCTreeGNodeFunc;
data:gpointer):PGtkCTreeNode; cdecl; external gtklib;
function gtk_ctree_export_to_gnode(ctree:PGtkCTree; parent:PGNode; sibling:PGNode; node:PGtkCTreeNode; func:TGtkCTreeGNodeFunc;
data:gpointer):PGNode; cdecl; external gtklib;
{
Generic recursive functions, querying / finding tree
information
}
procedure gtk_ctree_post_recursive(ctree:PGtkCTree; node:PGtkCTreeNode; func:TGtkCTreeFunc; data:gpointer); cdecl; external gtklib;
procedure gtk_ctree_post_recursive_to_depth(ctree:PGtkCTree; node:PGtkCTreeNode; depth:gint; func:TGtkCTreeFunc; data:gpointer); cdecl; external gtklib;
procedure gtk_ctree_pre_recursive(ctree:PGtkCTree; node:PGtkCTreeNode; func:TGtkCTreeFunc; data:gpointer); cdecl; external gtklib;
procedure gtk_ctree_pre_recursive_to_depth(ctree:PGtkCTree; node:PGtkCTreeNode; depth:gint; func:TGtkCTreeFunc; data:gpointer); cdecl; external gtklib;
function gtk_ctree_is_viewable(ctree:PGtkCTree; node:PGtkCTreeNode):gboolean; cdecl; external gtklib;
function gtk_ctree_last(ctree:PGtkCTree; node:PGtkCTreeNode):PGtkCTreeNode; cdecl; external gtklib;
function gtk_ctree_find_node_ptr(ctree:PGtkCTree; ctree_row:PGtkCTreeRow):PGtkCTreeNode; cdecl; external gtklib;
function gtk_ctree_node_nth(ctree:PGtkCTree; row:guint):PGtkCTreeNode; cdecl; external gtklib;
function gtk_ctree_find(ctree:PGtkCTree; node:PGtkCTreeNode; child:PGtkCTreeNode):gboolean; cdecl; external gtklib;
function gtk_ctree_is_ancestor(ctree:PGtkCTree; node:PGtkCTreeNode; child:PGtkCTreeNode):gboolean; cdecl; external gtklib;
function gtk_ctree_find_by_row_data(ctree:PGtkCTree; node:PGtkCTreeNode; data:gpointer):PGtkCTreeNode; cdecl; external gtklib;
{ returns a GList of all GtkCTreeNodes with row->data == data. }
function gtk_ctree_find_all_by_row_data(ctree:PGtkCTree; node:PGtkCTreeNode; data:gpointer):PGList; cdecl; external gtklib;
function gtk_ctree_find_by_row_data_custom(ctree:PGtkCTree; node:PGtkCTreeNode; data:gpointer; func:TGCompareFunc):PGtkCTreeNode; cdecl; external gtklib;
{ returns a GList of all GtkCTreeNodes with row->data == data. }
function gtk_ctree_find_all_by_row_data_custom(ctree:PGtkCTree; node:PGtkCTreeNode; data:gpointer; func:TGCompareFunc):PGList; cdecl; external gtklib;
function gtk_ctree_is_hot_spot(ctree:PGtkCTree; x:gint; y:gint):gboolean; cdecl; external gtklib;
{
Tree signals : move, expand, collapse, (un)select
}
procedure gtk_ctree_move(ctree:PGtkCTree; node:PGtkCTreeNode; new_parent:PGtkCTreeNode; new_sibling:PGtkCTreeNode); cdecl; external gtklib;
procedure gtk_ctree_expand(ctree:PGtkCTree; node:PGtkCTreeNode); cdecl; external gtklib;
procedure gtk_ctree_expand_recursive(ctree:PGtkCTree; node:PGtkCTreeNode); cdecl; external gtklib;
procedure gtk_ctree_expand_to_depth(ctree:PGtkCTree; node:PGtkCTreeNode; depth:gint); cdecl; external gtklib;
procedure gtk_ctree_collapse(ctree:PGtkCTree; node:PGtkCTreeNode); cdecl; external gtklib;
procedure gtk_ctree_collapse_recursive(ctree:PGtkCTree; node:PGtkCTreeNode); cdecl; external gtklib;
procedure gtk_ctree_collapse_to_depth(ctree:PGtkCTree; node:PGtkCTreeNode; depth:gint); cdecl; external gtklib;
procedure gtk_ctree_toggle_expansion(ctree:PGtkCTree; node:PGtkCTreeNode); cdecl; external gtklib;
procedure gtk_ctree_toggle_expansion_recursive(ctree:PGtkCTree; node:PGtkCTreeNode); cdecl; external gtklib;
procedure gtk_ctree_select(ctree:PGtkCTree; node:PGtkCTreeNode); cdecl; external gtklib;
procedure gtk_ctree_select_recursive(ctree:PGtkCTree; node:PGtkCTreeNode); cdecl; external gtklib;
procedure gtk_ctree_unselect(ctree:PGtkCTree; node:PGtkCTreeNode); cdecl; external gtklib;
procedure gtk_ctree_unselect_recursive(ctree:PGtkCTree; node:PGtkCTreeNode); cdecl; external gtklib;
procedure gtk_ctree_real_select_recursive(ctree:PGtkCTree; node:PGtkCTreeNode; state:gint); cdecl; external gtklib;
{
Analogons of GtkCList functions
}
procedure gtk_ctree_node_set_text(ctree:PGtkCTree; node:PGtkCTreeNode; column:gint; text:Pgchar); cdecl; external gtklib;
procedure gtk_ctree_node_set_pixmap(ctree:PGtkCTree; node:PGtkCTreeNode; column:gint; pixmap:PGdkPixmap; mask:PGdkBitmap); cdecl; external gtklib;
procedure gtk_ctree_node_set_pixtext(ctree:PGtkCTree; node:PGtkCTreeNode; column:gint; text:Pgchar; spacing:guint8;
pixmap:PGdkPixmap; mask:PGdkBitmap); cdecl; external gtklib;
procedure gtk_ctree_set_node_info(ctree:PGtkCTree; node:PGtkCTreeNode; text:Pgchar; spacing:guint8; pixmap_closed:PGdkPixmap;
mask_closed:PGdkBitmap; pixmap_opened:PGdkPixmap; mask_opened:PGdkBitmap; is_leaf:gboolean; expanded:gboolean); cdecl; external gtklib;
procedure gtk_ctree_node_set_shift(ctree:PGtkCTree; node:PGtkCTreeNode; column:gint; vertical:gint; horizontal:gint); cdecl; external gtklib;
procedure gtk_ctree_node_set_selectable(ctree:PGtkCTree; node:PGtkCTreeNode; selectable:gboolean); cdecl; external gtklib;
function gtk_ctree_node_get_selectable(ctree:PGtkCTree; node:PGtkCTreeNode):gboolean; cdecl; external gtklib;
function gtk_ctree_node_get_cell_type(ctree:PGtkCTree; node:PGtkCTreeNode; column:gint):TGtkCellType; cdecl; external gtklib;
function gtk_ctree_node_get_text(ctree:PGtkCTree; node:PGtkCTreeNode; column:gint; text:PPgchar):gboolean; cdecl; external gtklib;
function gtk_ctree_node_get_pixmap(ctree:PGtkCTree; node:PGtkCTreeNode; column:gint; var pixmap:PGdkPixmap; var mask:PGdkBitmap):gboolean; cdecl; external gtklib;
function gtk_ctree_node_get_pixtext(ctree:PGtkCTree; node:PGtkCTreeNode; column:gint; text:PPgchar; spacing:Pguint8;
var pixmap:PGdkPixmap; var mask:PGdkBitmap):gboolean; cdecl; external gtklib;
function gtk_ctree_get_node_info(ctree:PGtkCTree; node:PGtkCTreeNode; text:PPgchar; spacing:Pguint8; var pixmap_closed:PGdkPixmap;
var mask_closed:PGdkBitmap; var pixmap_opened:PGdkPixmap; var mask_opened:PGdkBitmap; is_leaf:Pgboolean; expanded:Pgboolean):gboolean; cdecl; external gtklib;
procedure gtk_ctree_node_set_row_style(ctree:PGtkCTree; node:PGtkCTreeNode; style:PGtkStyle); cdecl; external gtklib;
function gtk_ctree_node_get_row_style(ctree:PGtkCTree; node:PGtkCTreeNode):PGtkStyle; cdecl; external gtklib;
procedure gtk_ctree_node_set_cell_style(ctree:PGtkCTree; node:PGtkCTreeNode; column:gint; style:PGtkStyle); cdecl; external gtklib;
function gtk_ctree_node_get_cell_style(ctree:PGtkCTree; node:PGtkCTreeNode; column:gint):PGtkStyle; cdecl; external gtklib;
procedure gtk_ctree_node_set_foreground(ctree:PGtkCTree; node:PGtkCTreeNode; color:PGdkColor); cdecl; external gtklib;
procedure gtk_ctree_node_set_background(ctree:PGtkCTree; node:PGtkCTreeNode; color:PGdkColor); cdecl; external gtklib;
procedure gtk_ctree_node_set_row_data(ctree:PGtkCTree; node:PGtkCTreeNode; data:gpointer); cdecl; external gtklib;
procedure gtk_ctree_node_set_row_data_full(ctree:PGtkCTree; node:PGtkCTreeNode; data:gpointer; destroy:TGtkDestroyNotify); cdecl; external gtklib;
function gtk_ctree_node_get_row_data(ctree:PGtkCTree; node:PGtkCTreeNode):gpointer; cdecl; external gtklib;
procedure gtk_ctree_node_moveto(ctree:PGtkCTree; node:PGtkCTreeNode; column:gint; row_align:gfloat; col_align:gfloat); cdecl; external gtklib;
function gtk_ctree_node_is_visible(ctree:PGtkCTree; node:PGtkCTreeNode):TGtkVisibility; cdecl; external gtklib;
{
GtkCTree specific functions
}
procedure gtk_ctree_set_indent(ctree:PGtkCTree; indent:gint); cdecl; external gtklib;
procedure gtk_ctree_set_spacing(ctree:PGtkCTree; spacing:gint); cdecl; external gtklib;
procedure gtk_ctree_set_show_stub(ctree:PGtkCTree; show_stub:gboolean); cdecl; external gtklib;
procedure gtk_ctree_set_line_style(ctree:PGtkCTree; line_style:TGtkCTreeLineStyle); cdecl; external gtklib;
procedure gtk_ctree_set_expander_style(ctree:PGtkCTree; expander_style:TGtkCTreeExpanderStyle); cdecl; external gtklib;
procedure gtk_ctree_set_drag_compare_func(ctree:PGtkCTree; cmp_func:TGtkCTreeCompareDragFunc); cdecl; external gtklib;
{
Tree sorting functions
}
procedure gtk_ctree_sort_node(ctree:PGtkCTree; node:PGtkCTreeNode); cdecl; external gtklib;
procedure gtk_ctree_sort_recursive(ctree:PGtkCTree; node:PGtkCTreeNode); cdecl; external gtklib;
procedure gtk_ctree_set_reorderable(t: pointer; r : boolean);
{ GType for the GtkCTreeNode. This is a boxed type, although it uses
no-op's for the copy and free routines. It is defined in order to
provide type information for the signal arguments
}
function gtk_ctree_node_get_type:GType; cdecl; external gtklib;
{$ENDIF read_interface_rest}
//------------------------------------------------------------------------------
{$IFDEF read_implementation}
function GTK_TYPE_CTREE : GType;
begin
GTK_TYPE_CTREE:=gtk_ctree_get_type;
end;
function GTK_CTREE(obj: pointer) : PGtkCTree;
begin
GTK_CTREE:=PGtkCTree(GTK_CHECK_CAST(obj,GTK_TYPE_CTREE));
end;
function GTK_CTREE_CLASS(klass: pointer) : PGtkCTreeClass;
begin
GTK_CTREE_CLASS:=PGtkCTreeClass(GTK_CHECK_CLASS_CAST(klass,GTK_TYPE_CTREE));
end;
function GTK_IS_CTREE(obj: pointer) : boolean;
begin
GTK_IS_CTREE:=GTK_CHECK_TYPE(obj,GTK_TYPE_CTREE);
end;
function GTK_IS_CTREE_CLASS(klass: pointer) : boolean;
begin
GTK_IS_CTREE_CLASS:=GTK_CHECK_CLASS_TYPE(klass,GTK_TYPE_CTREE);
end;
function GTK_CTREE_GET_CLASS(obj: pointer) : PGtkCTreeClass;
begin
GTK_CTREE_GET_CLASS:=PGtkCTreeClass(GTK_CHECK_GET_CLASS(obj,GTK_TYPE_CTREE));
end;
function GTK_CTREE_ROW(_node_ : ptrint) : PGtkCTreeRow;
begin
GTK_CTREE_ROW:=PGtkCTreeRow((PGList(_node_))^.data);
end;
function GTK_CTREE_NODE(_node_ : ptrint) : PGtkCTreeNode;
begin
GTK_CTREE_NODE:=PGtkCTreeNode(_node_);
end;
function GTK_CTREE_NODE_NEXT(_nnode_ : ptrint) : PGtkCTreeNode;
begin
GTK_CTREE_NODE_NEXT:=PGtkCTreeNode((PGList(_nnode_))^.next);
end;
function GTK_CTREE_NODE_PREV(_pnode_ : ptrint) : PGtkCTreeNode;
begin
GTK_CTREE_NODE_PREV:=PGtkCTreeNode((PGList(_pnode_))^.prev);
end;
function GTK_CTREE_FUNC(_func_ : ptrint) : TGtkCTreeFunc;
begin
GTK_CTREE_FUNC:=TGtkCTreeFunc(_func_);
end;
function GTK_TYPE_CTREE_NODE : GType;
begin
GTK_TYPE_CTREE_NODE:=gtk_ctree_node_get_type;
end;
function line_style(var a : TGtkCTree) : guint;
begin
line_style:=(a.flag0 and bm_TGtkCTree_line_style) shr bp_TGtkCTree_line_style;
end;
procedure set_line_style(var a : TGtkCTree; __line_style : guint);
begin
a.flag0:=a.flag0 or ((__line_style shl bp_TGtkCTree_line_style) and bm_TGtkCTree_line_style);
end;
function expander_style(var a : TGtkCTree) : guint;
begin
expander_style:=(a.flag0 and bm_TGtkCTree_expander_style) shr bp_TGtkCTree_expander_style;
end;
procedure set_expander_style(var a : TGtkCTree; __expander_style : guint);
begin
a.flag0:=a.flag0 or ((__expander_style shl bp_TGtkCTree_expander_style) and bm_TGtkCTree_expander_style);
end;
function show_stub(var a : TGtkCTree) : guint;
begin
show_stub:=(a.flag0 and bm_TGtkCTree_show_stub) shr bp_TGtkCTree_show_stub;
end;
procedure set_show_stub(var a : TGtkCTree; __show_stub : guint);
begin
a.flag0:=a.flag0 or ((__show_stub shl bp_TGtkCTree_show_stub) and bm_TGtkCTree_show_stub);
end;
function is_leaf(var a : TGtkCTreeRow) : guint;
begin
is_leaf:=(a.flag0 and bm_TGtkCTreeRow_is_leaf) shr bp_TGtkCTreeRow_is_leaf;
end;
procedure set_is_leaf(var a : TGtkCTreeRow; __is_leaf : guint);
begin
a.flag0:=a.flag0 or ((__is_leaf shl bp_TGtkCTreeRow_is_leaf) and bm_TGtkCTreeRow_is_leaf);
end;
function expanded(var a : TGtkCTreeRow) : guint;
begin
expanded:=(a.flag0 and bm_TGtkCTreeRow_expanded) shr bp_TGtkCTreeRow_expanded;
end;
procedure set_expanded(var a : TGtkCTreeRow; __expanded : guint);
begin
a.flag0:=a.flag0 or ((__expanded shl bp_TGtkCTreeRow_expanded) and bm_TGtkCTreeRow_expanded);
end;
procedure gtk_ctree_set_reorderable(t: pointer; r : boolean);
begin
gtk_clist_set_reorderable(PGtkCList(t),r);
end;
{$ENDIF read_implementation}
// included by gtk2.pas
|
