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
|
// included by gtk2.pas
{$IFDEF read_forward_definitions}
{$ENDIF read_forward_definitions}
//------------------------------------------------------------------------------
{$IFDEF read_interface_types}
PGtkMenuShell = ^TGtkMenuShell;
TGtkMenuShell = record
container : TGtkContainer;
children : PGList;
active_menu_item : PGtkWidget;
parent_menu_shell : PGtkWidget;
button : guint;
activate_time : guint32;
flag0 : word;
end;
{ Padding for future expansion }
PGtkMenuShellClass = ^TGtkMenuShellClass;
TGtkMenuShellClass = record
parent_class : TGtkContainerClass;
flag0 : word;
deactivate : procedure (menu_shell:PGtkMenuShell); cdecl;
selection_done : procedure (menu_shell:PGtkMenuShell); cdecl;
move_current : procedure (menu_shell:PGtkMenuShell; direction:TGtkMenuDirectionType); cdecl;
activate_current : procedure (menu_shell:PGtkMenuShell; force_hide:gboolean); cdecl;
cancel : procedure (menu_shell:PGtkMenuShell); cdecl;
select_item : procedure (menu_shell:PGtkMenuShell; menu_item:PGtkWidget); cdecl;
insert : procedure (menu_shell:PGtkMenuShell; child:PGtkWidget; position:gint); cdecl;
_gtk_reserved1 : procedure ; cdecl;
_gtk_reserved2 : procedure ; cdecl;
_gtk_reserved3 : procedure ; cdecl;
_gtk_reserved4 : procedure ; cdecl;
end;
{$ENDIF read_interface_types}
//------------------------------------------------------------------------------
{$IFDEF read_interface_rest}
const
bm_TGtkMenuShell_active = $1;
bp_TGtkMenuShell_active = 0;
bm_TGtkMenuShell_have_grab = $2;
bp_TGtkMenuShell_have_grab = 1;
bm_TGtkMenuShell_have_xgrab = $4;
bp_TGtkMenuShell_have_xgrab = 2;
bm_TGtkMenuShell_ignore_leave = $8;
bp_TGtkMenuShell_ignore_leave = 3;
bm_TGtkMenuShell_menu_flag = $10;
bp_TGtkMenuShell_menu_flag = 4;
bm_TGtkMenuShell_ignore_enter = $20;
bp_TGtkMenuShell_ignore_enter = 5;
bm_TGtkMenuShellClass_submenu_placement = $1;
bp_TGtkMenuShellClass_submenu_placement = 0;
function GTK_TYPE_MENU_SHELL : GType;
function GTK_MENU_SHELL(obj: pointer) : PGtkMenuShell;
function GTK_MENU_SHELL_CLASS(klass: pointer) : PGtkMenuShellClass;
function GTK_IS_MENU_SHELL(obj: pointer) : boolean;
function GTK_IS_MENU_SHELL_CLASS(klass: pointer) : boolean;
function GTK_MENU_SHELL_GET_CLASS(obj: pointer) : PGtkMenuShellClass;
function active(var a : TGtkMenuShell) : guint; overload;
procedure set_active(var a : TGtkMenuShell; __active : guint); overload;
function have_grab(var a : TGtkMenuShell) : guint; overload;
procedure set_have_grab(var a : TGtkMenuShell; __have_grab : guint); overload;
function have_xgrab(var a : TGtkMenuShell) : guint;
procedure set_have_xgrab(var a : TGtkMenuShell; __have_xgrab : guint);
function ignore_leave(var a : TGtkMenuShell) : guint;
procedure set_ignore_leave(var a : TGtkMenuShell; __ignore_leave : guint);
function menu_flag(var a : TGtkMenuShell) : guint;
procedure set_menu_flag(var a : TGtkMenuShell; __menu_flag : guint);
function ignore_enter(var a : TGtkMenuShell) : guint;
procedure set_ignore_enter(var a : TGtkMenuShell; __ignore_enter : guint);
function submenu_placement(var a : TGtkMenuShellClass) : guint; overload;
procedure set_submenu_placement(var a : TGtkMenuShellClass; __submenu_placement : guint); overload;
function gtk_menu_shell_get_type:TGtkType; cdecl; external gtklib;
procedure gtk_menu_shell_append(menu_shell:PGtkMenuShell; child:PGtkWidget); cdecl; external gtklib;
procedure gtk_menu_shell_prepend(menu_shell:PGtkMenuShell; child:PGtkWidget); cdecl; external gtklib;
procedure gtk_menu_shell_insert(menu_shell:PGtkMenuShell; child:PGtkWidget; position:gint); cdecl; external gtklib;
procedure gtk_menu_shell_deactivate(menu_shell:PGtkMenuShell); cdecl; external gtklib;
procedure gtk_menu_shell_select_item(menu_shell:PGtkMenuShell; menu_item:PGtkWidget); cdecl; external gtklib;
procedure gtk_menu_shell_deselect(menu_shell:PGtkMenuShell); cdecl; external gtklib;
procedure gtk_menu_shell_activate_item(menu_shell:PGtkMenuShell; menu_item:PGtkWidget; force_deactivate:gboolean); cdecl; external gtklib;
procedure _gtk_menu_shell_select_first(menu_shell:PGtkMenuShell); cdecl; external gtklib;
procedure _gtk_menu_shell_activate(menu_shell:PGtkMenuShell); cdecl; external gtklib;
{$IFDEF HasGTK2_4}
procedure gtk_menu_shell_select_first(menu_shell: PGtkMenuShell; search_sensitive: gboolean); cdecl; external gtklib;
procedure gtk_menu_shell_cancel(menu_shell: PGtkMenuShell); cdecl; external gtklib;
{$ENDIF HasGTK2_4}
{$ENDIF read_interface_rest}
//------------------------------------------------------------------------------
{$IFDEF read_implementation}
function GTK_TYPE_MENU_SHELL : GType;
begin
GTK_TYPE_MENU_SHELL:=gtk_menu_shell_get_type;
end;
function GTK_MENU_SHELL(obj: pointer) : PGtkMenuShell;
begin
GTK_MENU_SHELL:=PGtkMenuShell(GTK_CHECK_CAST(obj,GTK_TYPE_MENU_SHELL));
end;
function GTK_MENU_SHELL_CLASS(klass: pointer) : PGtkMenuShellClass;
begin
GTK_MENU_SHELL_CLASS:=PGtkMenuShellClass(GTK_CHECK_CLASS_CAST(klass,GTK_TYPE_MENU_SHELL));
end;
function GTK_IS_MENU_SHELL(obj: pointer) : boolean;
begin
GTK_IS_MENU_SHELL:=GTK_CHECK_TYPE(obj,GTK_TYPE_MENU_SHELL);
end;
function GTK_IS_MENU_SHELL_CLASS(klass: pointer) : boolean;
begin
GTK_IS_MENU_SHELL_CLASS:=GTK_CHECK_CLASS_TYPE(klass,GTK_TYPE_MENU_SHELL);
end;
function GTK_MENU_SHELL_GET_CLASS(obj: pointer) : PGtkMenuShellClass;
begin
GTK_MENU_SHELL_GET_CLASS:=PGtkMenuShellClass(GTK_CHECK_GET_CLASS(obj,GTK_TYPE_MENU_SHELL));
end;
function active(var a : TGtkMenuShell) : guint;
begin
active:=(a.flag0 and bm_TGtkMenuShell_active) shr bp_TGtkMenuShell_active;
end;
procedure set_active(var a : TGtkMenuShell; __active : guint);
begin
a.flag0:=a.flag0 or ((__active shl bp_TGtkMenuShell_active) and bm_TGtkMenuShell_active);
end;
function have_grab(var a : TGtkMenuShell) : guint;
begin
have_grab:=(a.flag0 and bm_TGtkMenuShell_have_grab) shr bp_TGtkMenuShell_have_grab;
end;
procedure set_have_grab(var a : TGtkMenuShell; __have_grab : guint);
begin
a.flag0:=a.flag0 or ((__have_grab shl bp_TGtkMenuShell_have_grab) and bm_TGtkMenuShell_have_grab);
end;
function have_xgrab(var a : TGtkMenuShell) : guint;
begin
have_xgrab:=(a.flag0 and bm_TGtkMenuShell_have_xgrab) shr bp_TGtkMenuShell_have_xgrab;
end;
procedure set_have_xgrab(var a : TGtkMenuShell; __have_xgrab : guint);
begin
a.flag0:=a.flag0 or ((__have_xgrab shl bp_TGtkMenuShell_have_xgrab) and bm_TGtkMenuShell_have_xgrab);
end;
function ignore_leave(var a : TGtkMenuShell) : guint;
begin
ignore_leave:=(a.flag0 and bm_TGtkMenuShell_ignore_leave) shr bp_TGtkMenuShell_ignore_leave;
end;
procedure set_ignore_leave(var a : TGtkMenuShell; __ignore_leave : guint);
begin
a.flag0:=a.flag0 or ((__ignore_leave shl bp_TGtkMenuShell_ignore_leave) and bm_TGtkMenuShell_ignore_leave);
end;
function menu_flag(var a : TGtkMenuShell) : guint;
begin
menu_flag:=(a.flag0 and bm_TGtkMenuShell_menu_flag) shr bp_TGtkMenuShell_menu_flag;
end;
procedure set_menu_flag(var a : TGtkMenuShell; __menu_flag : guint);
begin
a.flag0:=a.flag0 or ((__menu_flag shl bp_TGtkMenuShell_menu_flag) and bm_TGtkMenuShell_menu_flag);
end;
function ignore_enter(var a : TGtkMenuShell) : guint;
begin
ignore_enter:=(a.flag0 and bm_TGtkMenuShell_ignore_enter) shr bp_TGtkMenuShell_ignore_enter;
end;
procedure set_ignore_enter(var a : TGtkMenuShell; __ignore_enter : guint);
begin
a.flag0:=a.flag0 or ((__ignore_enter shl bp_TGtkMenuShell_ignore_enter) and bm_TGtkMenuShell_ignore_enter);
end;
function submenu_placement(var a : TGtkMenuShellClass) : guint;
begin
submenu_placement:=(a.flag0 and bm_TGtkMenuShellClass_submenu_placement) shr bp_TGtkMenuShellClass_submenu_placement;
end;
procedure set_submenu_placement(var a : TGtkMenuShellClass; __submenu_placement : guint);
begin
a.flag0:=a.flag0 or ((__submenu_placement shl bp_TGtkMenuShellClass_submenu_placement) and bm_TGtkMenuShellClass_submenu_placement);
end;
{$ENDIF read_implementation}
// included by gtk2.pas
|
