blob: c960078b1528c0047be8466170e4ccff2265f70e (
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
169
170
|
// included by gtk2.pas
{$IFDEF read_forward_definitions}
{$ENDIF read_forward_definitions}
//------------------------------------------------------------------------------
{$IFDEF read_interface_types}
{ default view mode }
PGtkTreeViewMode = ^TGtkTreeViewMode;
TGtkTreeViewMode = (
GTK_TREE_VIEW_LINE,
GTK_TREE_VIEW_ITEM
);
{ owner of selection list }
PGtkTree = ^TGtkTree;
TGtkTree = record
container : TGtkContainer;
children : PGList;
root_tree : PGtkTree;
tree_owner : PGtkWidget;
selection : PGList;
level : guint;
indent_value : guint;
current_indent : guint;
flag0 : word;
end;
PGtkTreeClass = ^TGtkTreeClass;
TGtkTreeClass = record
parent_class : TGtkContainerClass;
selection_changed : procedure (tree:PGtkTree); cdecl;
select_child : procedure (tree:PGtkTree; child:PGtkWidget); cdecl;
unselect_child : procedure (tree:PGtkTree; child:PGtkWidget); cdecl;
end;
{$ENDIF read_interface_types}
//------------------------------------------------------------------------------
{$IFDEF read_interface_rest}
const
bm_TGtkTree_selection_mode = $3;
bp_TGtkTree_selection_mode = 0;
bm_TGtkTree_view_mode = $4;
bp_TGtkTree_view_mode = 2;
bm_TGtkTree_view_line = $8;
bp_TGtkTree_view_line = 3;
{ set this flag to enable tree debugging output }
{ $define TREE_DEBUG }
function GTK_TYPE_TREE : GType;
function GTK_TREE(obj: pointer) : PGtkTree;
function GTK_TREE_CLASS(klass: pointer) : PGtkTreeClass;
function GTK_IS_TREE(obj: pointer) : boolean;
function GTK_IS_TREE_CLASS(klass: pointer) : boolean;
function GTK_TREE_GET_CLASS(obj: pointer) : PGtkTreeClass;
function GTK_IS_ROOT_TREE(obj: pointer) : boolean;
function GTK_TREE_ROOT_TREE(obj: pointer) : PGtkTree;
function GTK_TREE_SELECTION_OLD(obj: pointer) : PGList;
function selection_mode(var a : TGtkTree) : guint; overload;
procedure set_selection_mode(var a : TGtkTree; __selection_mode : guint); overload;
function view_mode(var a : TGtkTree) : guint;
procedure set_view_mode(var a : TGtkTree; __view_mode : guint);
function view_line(var a : TGtkTree) : guint;
procedure set_view_line(var a : TGtkTree; __view_line : guint);
function gtk_tree_get_type:TGtkType; cdecl; external gtklib;
function gtk_tree_new:PGtkWidget; cdecl; external gtklib;
procedure gtk_tree_append(tree:PGtkTree; tree_item:PGtkWidget); cdecl; external gtklib;
procedure gtk_tree_prepend(tree:PGtkTree; tree_item:PGtkWidget); cdecl; external gtklib;
procedure gtk_tree_insert(tree:PGtkTree; tree_item:PGtkWidget; position:gint); cdecl; external gtklib;
procedure gtk_tree_remove_items(tree:PGtkTree; items:PGList); cdecl; external gtklib;
procedure gtk_tree_clear_items(tree:PGtkTree; start:gint; theEnd:gint); cdecl; external gtklib;
procedure gtk_tree_select_item(tree:PGtkTree; item:gint); cdecl; external gtklib;
procedure gtk_tree_unselect_item(tree:PGtkTree; item:gint); cdecl; external gtklib;
procedure gtk_tree_select_child(tree:PGtkTree; tree_item:PGtkWidget); cdecl; external gtklib;
procedure gtk_tree_unselect_child(tree:PGtkTree; tree_item:PGtkWidget); cdecl; external gtklib;
function gtk_tree_child_position(tree:PGtkTree; child:PGtkWidget):gint; cdecl; external gtklib;
procedure gtk_tree_set_selection_mode(tree:PGtkTree; mode:TGtkSelectionMode); cdecl; external gtklib;
procedure gtk_tree_set_view_mode(tree:PGtkTree; mode:TGtkTreeViewMode); cdecl; external gtklib;
procedure gtk_tree_set_view_lines(tree:PGtkTree; flag:gboolean); cdecl; external gtklib;
{ deprecated function, use gtk_container_remove instead.
}
procedure gtk_tree_remove_item(tree:PGtkTree; child:PGtkWidget); cdecl; external gtklib;
{$ENDIF read_interface_rest}
//------------------------------------------------------------------------------
{$IFDEF read_implementation}
function GTK_TYPE_TREE : GType;
begin
GTK_TYPE_TREE:=gtk_tree_get_type;
end;
function GTK_TREE(obj: pointer) : PGtkTree;
begin
GTK_TREE:=PGtkTree(GTK_CHECK_CAST(obj,GTK_TYPE_TREE));
end;
function GTK_TREE_CLASS(klass: pointer) : PGtkTreeClass;
begin
GTK_TREE_CLASS:=PGtkTreeClass(GTK_CHECK_CLASS_CAST(klass,GTK_TYPE_TREE));
end;
function GTK_IS_TREE(obj: pointer) : boolean;
begin
GTK_IS_TREE:=GTK_CHECK_TYPE(obj,GTK_TYPE_TREE);
end;
function GTK_IS_TREE_CLASS(klass: pointer) : boolean;
begin
GTK_IS_TREE_CLASS:=GTK_CHECK_CLASS_TYPE(klass,GTK_TYPE_TREE);
end;
function GTK_TREE_GET_CLASS(obj: pointer) : PGtkTreeClass;
begin
GTK_TREE_GET_CLASS:=PGtkTreeClass(GTK_CHECK_GET_CLASS(obj,GTK_TYPE_TREE));
end;
function GTK_IS_ROOT_TREE(obj: pointer) : boolean;
begin
GTK_IS_ROOT_TREE:=(PGtkObject((GTK_TREE(obj))^.root_tree)) = (PGtkObject(obj));
end;
function GTK_TREE_ROOT_TREE(obj: pointer) : PGtkTree;
begin
GTK_TREE_ROOT_TREE:=GTK_TREE(obj)^.root_tree;
end;
function GTK_TREE_SELECTION_OLD(obj: pointer) : PGList;
begin
GTK_TREE_SELECTION_OLD:=(GTK_TREE_ROOT_TREE(obj))^.selection;
end;
function selection_mode(var a : TGtkTree) : guint;
begin
selection_mode:=(a.flag0 and bm_TGtkTree_selection_mode) shr bp_TGtkTree_selection_mode;
end;
procedure set_selection_mode(var a : TGtkTree; __selection_mode : guint);
begin
a.flag0:=a.flag0 or ((__selection_mode shl bp_TGtkTree_selection_mode) and bm_TGtkTree_selection_mode);
end;
function view_mode(var a : TGtkTree) : guint;
begin
view_mode:=(a.flag0 and bm_TGtkTree_view_mode) shr bp_TGtkTree_view_mode;
end;
procedure set_view_mode(var a : TGtkTree; __view_mode : guint);
begin
a.flag0:=a.flag0 or ((__view_mode shl bp_TGtkTree_view_mode) and bm_TGtkTree_view_mode);
end;
function view_line(var a : TGtkTree) : guint;
begin
view_line:=(a.flag0 and bm_TGtkTree_view_line) shr bp_TGtkTree_view_line;
end;
procedure set_view_line(var a : TGtkTree; __view_line : guint);
begin
a.flag0:=a.flag0 or ((__view_line shl bp_TGtkTree_view_line) and bm_TGtkTree_view_line);
end;
{$ENDIF read_implementation}
// included by gtk2.pas
|
