← Back to branch summary

~ubuntu-branches/debian/lenny/fpc/lenny

« back to all changes in this revision

Viewing changes to fpcsrc/packages/extra/gtk2/gtk+/gtk/gtkmenushell.inc

  • Committer: Bazaar Package Importer
  • Author(s): Mazen Neifer, Torsten Werner, Mazen Neifer
  • Date: 2008-05-17 17:12:11 UTC
  • mfrom: (3.1.9 intrepid)
  • Revision ID: james.westby@ubuntu.com-20080517171211-9qi33xhd9evfa0kg
Tags: 2.2.0-dfsg1-9
http://bugs.debian.org/477743
[ Torsten Werner ]
* Add Mazen Neifer to Uploaders field.

[ Mazen Neifer ]
* Moved FPC sources into a version dependent directory from /usr/share/fpcsrc
  to /usr/share/fpcsrc/${FPCVERSION}. This allow installing more than on FPC
  release.
* Fixed far call issue in compiler preventing building huge binearies.
  (closes: #477743)
* Updated building dependencies, recomennded and suggested packages.
* Moved fppkg to fp-utils as it is just a helper tool and is not required by
  compiler.

Show diffs side-by-side

added added

removed removed

Lines of Context:
fpcsrc/packages/extra/gtk2/gtk+/gtk/gtkmenushell.inc
 
1
// included by gtk2.pas
 
2
 
 
3
{$IFDEF read_forward_definitions}
 
4
{$ENDIF read_forward_definitions}
 
5
 
 
6
//------------------------------------------------------------------------------
 
7
 
 
8
{$IFDEF read_interface_types}
 
9
   PGtkMenuShell = ^TGtkMenuShell;
 
10
   TGtkMenuShell = record
 
11
        container : TGtkContainer;
 
12
        children : PGList;
 
13
        active_menu_item : PGtkWidget;
 
14
        parent_menu_shell : PGtkWidget;
 
15
        button : guint;
 
16
        activate_time : guint32;
 
17
        flag0 : word;
 
18
     end;
 
19
 
 
20
{ Padding for future expansion  }
 
21
   PGtkMenuShellClass = ^TGtkMenuShellClass;
 
22
   TGtkMenuShellClass = record
 
23
        parent_class : TGtkContainerClass;
 
24
        flag0 : word;
 
25
        deactivate : procedure (menu_shell:PGtkMenuShell); cdecl;
 
26
        selection_done : procedure (menu_shell:PGtkMenuShell); cdecl;
 
27
        move_current : procedure (menu_shell:PGtkMenuShell; direction:TGtkMenuDirectionType); cdecl;
 
28
        activate_current : procedure (menu_shell:PGtkMenuShell; force_hide:gboolean); cdecl;
 
29
        cancel : procedure (menu_shell:PGtkMenuShell); cdecl;
 
30
        select_item : procedure (menu_shell:PGtkMenuShell; menu_item:PGtkWidget); cdecl;
 
31
        insert : procedure (menu_shell:PGtkMenuShell; child:PGtkWidget; position:gint); cdecl;
 
32
        _gtk_reserved1 : procedure ; cdecl;
 
33
        _gtk_reserved2 : procedure ; cdecl;
 
34
        _gtk_reserved3 : procedure ; cdecl;
 
35
        _gtk_reserved4 : procedure ; cdecl;
 
36
     end;
 
37
{$ENDIF read_interface_types}
 
38
 
 
39
//------------------------------------------------------------------------------
 
40
 
 
41
{$IFDEF read_interface_rest}
 
42
const
 
43
   bm_TGtkMenuShell_active = $1;
 
44
   bp_TGtkMenuShell_active = 0;
 
45
   bm_TGtkMenuShell_have_grab = $2;
 
46
   bp_TGtkMenuShell_have_grab = 1;
 
47
   bm_TGtkMenuShell_have_xgrab = $4;
 
48
   bp_TGtkMenuShell_have_xgrab = 2;
 
49
   bm_TGtkMenuShell_ignore_leave = $8;
 
50
   bp_TGtkMenuShell_ignore_leave = 3;
 
51
   bm_TGtkMenuShell_menu_flag = $10;
 
52
   bp_TGtkMenuShell_menu_flag = 4;
 
53
   bm_TGtkMenuShell_ignore_enter = $20;
 
54
   bp_TGtkMenuShell_ignore_enter = 5;
 
55
 
 
56
   bm_TGtkMenuShellClass_submenu_placement = $1;
 
57
   bp_TGtkMenuShellClass_submenu_placement = 0;
 
58
 
 
59
 
 
60
function GTK_TYPE_MENU_SHELL : GType;
 
61
function GTK_MENU_SHELL(obj: pointer) : PGtkMenuShell;
 
62
function GTK_MENU_SHELL_CLASS(klass: pointer) : PGtkMenuShellClass;
 
63
function GTK_IS_MENU_SHELL(obj: pointer) : boolean;
 
64
function GTK_IS_MENU_SHELL_CLASS(klass: pointer) : boolean;
 
65
function GTK_MENU_SHELL_GET_CLASS(obj: pointer) : PGtkMenuShellClass;
 
66
 
 
67
function active(var a : TGtkMenuShell) : guint; overload;
 
68
procedure set_active(var a : TGtkMenuShell; __active : guint); overload;
 
69
function have_grab(var a : TGtkMenuShell) : guint; overload;
 
70
procedure set_have_grab(var a : TGtkMenuShell; __have_grab : guint); overload;
 
71
function have_xgrab(var a : TGtkMenuShell) : guint;
 
72
procedure set_have_xgrab(var a : TGtkMenuShell; __have_xgrab : guint);
 
73
function ignore_leave(var a : TGtkMenuShell) : guint;
 
74
procedure set_ignore_leave(var a : TGtkMenuShell; __ignore_leave : guint);
 
75
function menu_flag(var a : TGtkMenuShell) : guint;
 
76
procedure set_menu_flag(var a : TGtkMenuShell; __menu_flag : guint);
 
77
function ignore_enter(var a : TGtkMenuShell) : guint;
 
78
procedure set_ignore_enter(var a : TGtkMenuShell; __ignore_enter : guint);
 
79
 
 
80
function submenu_placement(var a : TGtkMenuShellClass) : guint; overload;
 
81
procedure set_submenu_placement(var a : TGtkMenuShellClass; __submenu_placement : guint); overload;
 
82
 
 
83
function gtk_menu_shell_get_type:TGtkType; cdecl; external gtklib;
 
84
procedure gtk_menu_shell_append(menu_shell:PGtkMenuShell; child:PGtkWidget); cdecl; external gtklib;
 
85
procedure gtk_menu_shell_prepend(menu_shell:PGtkMenuShell; child:PGtkWidget); cdecl; external gtklib;
 
86
procedure gtk_menu_shell_insert(menu_shell:PGtkMenuShell; child:PGtkWidget; position:gint); cdecl; external gtklib;
 
87
procedure gtk_menu_shell_deactivate(menu_shell:PGtkMenuShell); cdecl; external gtklib;
 
88
procedure gtk_menu_shell_select_item(menu_shell:PGtkMenuShell; menu_item:PGtkWidget); cdecl; external gtklib;
 
89
procedure gtk_menu_shell_deselect(menu_shell:PGtkMenuShell); cdecl; external gtklib;
 
90
procedure gtk_menu_shell_activate_item(menu_shell:PGtkMenuShell; menu_item:PGtkWidget; force_deactivate:gboolean); cdecl; external gtklib;
 
91
procedure _gtk_menu_shell_select_first(menu_shell:PGtkMenuShell); cdecl; external gtklib;
 
92
procedure _gtk_menu_shell_activate(menu_shell:PGtkMenuShell); cdecl; external gtklib;
 
93
 
 
94
{$IFDEF HasGTK2_4}
 
95
procedure gtk_menu_shell_select_first(menu_shell: PGtkMenuShell; search_sensitive: gboolean);  cdecl; external gtklib;
 
96
procedure gtk_menu_shell_cancel(menu_shell: PGtkMenuShell); cdecl; external gtklib;
 
97
{$ENDIF HasGTK2_4}
 
98
 
 
99
{$ENDIF read_interface_rest}
 
100
 
 
101
//------------------------------------------------------------------------------
 
102
 
 
103
{$IFDEF read_implementation}
 
104
function GTK_TYPE_MENU_SHELL : GType;
 
105
begin
 
106
   GTK_TYPE_MENU_SHELL:=gtk_menu_shell_get_type;
 
107
end;
 
108
 
 
109
function GTK_MENU_SHELL(obj: pointer) : PGtkMenuShell;
 
110
begin
 
111
   GTK_MENU_SHELL:=PGtkMenuShell(GTK_CHECK_CAST(obj,GTK_TYPE_MENU_SHELL));
 
112
end;
 
113
 
 
114
function GTK_MENU_SHELL_CLASS(klass: pointer) : PGtkMenuShellClass;
 
115
begin
 
116
   GTK_MENU_SHELL_CLASS:=PGtkMenuShellClass(GTK_CHECK_CLASS_CAST(klass,GTK_TYPE_MENU_SHELL));
 
117
end;
 
118
 
 
119
function GTK_IS_MENU_SHELL(obj: pointer) : boolean;
 
120
begin
 
121
   GTK_IS_MENU_SHELL:=GTK_CHECK_TYPE(obj,GTK_TYPE_MENU_SHELL);
 
122
end;
 
123
 
 
124
function GTK_IS_MENU_SHELL_CLASS(klass: pointer) : boolean;
 
125
begin
 
126
   GTK_IS_MENU_SHELL_CLASS:=GTK_CHECK_CLASS_TYPE(klass,GTK_TYPE_MENU_SHELL);
 
127
end;
 
128
 
 
129
function GTK_MENU_SHELL_GET_CLASS(obj: pointer) : PGtkMenuShellClass;
 
130
begin
 
131
   GTK_MENU_SHELL_GET_CLASS:=PGtkMenuShellClass(GTK_CHECK_GET_CLASS(obj,GTK_TYPE_MENU_SHELL));
 
132
end;
 
133
 
 
134
function active(var a : TGtkMenuShell) : guint;
 
135
begin
 
136
   active:=(a.flag0 and bm_TGtkMenuShell_active) shr bp_TGtkMenuShell_active;
 
137
end;
 
138
 
 
139
procedure set_active(var a : TGtkMenuShell; __active : guint);
 
140
begin
 
141
   a.flag0:=a.flag0 or ((__active shl bp_TGtkMenuShell_active) and bm_TGtkMenuShell_active);
 
142
end;
 
143
 
 
144
function have_grab(var a : TGtkMenuShell) : guint;
 
145
begin
 
146
   have_grab:=(a.flag0 and bm_TGtkMenuShell_have_grab) shr bp_TGtkMenuShell_have_grab;
 
147
end;
 
148
 
 
149
procedure set_have_grab(var a : TGtkMenuShell; __have_grab : guint);
 
150
begin
 
151
   a.flag0:=a.flag0 or ((__have_grab shl bp_TGtkMenuShell_have_grab) and bm_TGtkMenuShell_have_grab);
 
152
end;
 
153
 
 
154
function have_xgrab(var a : TGtkMenuShell) : guint;
 
155
begin
 
156
   have_xgrab:=(a.flag0 and bm_TGtkMenuShell_have_xgrab) shr bp_TGtkMenuShell_have_xgrab;
 
157
end;
 
158
 
 
159
procedure set_have_xgrab(var a : TGtkMenuShell; __have_xgrab : guint);
 
160
begin
 
161
   a.flag0:=a.flag0 or ((__have_xgrab shl bp_TGtkMenuShell_have_xgrab) and bm_TGtkMenuShell_have_xgrab);
 
162
end;
 
163
 
 
164
function ignore_leave(var a : TGtkMenuShell) : guint;
 
165
begin
 
166
   ignore_leave:=(a.flag0 and bm_TGtkMenuShell_ignore_leave) shr bp_TGtkMenuShell_ignore_leave;
 
167
end;
 
168
 
 
169
procedure set_ignore_leave(var a : TGtkMenuShell; __ignore_leave : guint);
 
170
begin
 
171
   a.flag0:=a.flag0 or ((__ignore_leave shl bp_TGtkMenuShell_ignore_leave) and bm_TGtkMenuShell_ignore_leave);
 
172
end;
 
173
 
 
174
function menu_flag(var a : TGtkMenuShell) : guint;
 
175
begin
 
176
   menu_flag:=(a.flag0 and bm_TGtkMenuShell_menu_flag) shr bp_TGtkMenuShell_menu_flag;
 
177
end;
 
178
 
 
179
procedure set_menu_flag(var a : TGtkMenuShell; __menu_flag : guint);
 
180
begin
 
181
   a.flag0:=a.flag0 or ((__menu_flag shl bp_TGtkMenuShell_menu_flag) and bm_TGtkMenuShell_menu_flag);
 
182
end;
 
183
 
 
184
function ignore_enter(var a : TGtkMenuShell) : guint;
 
185
begin
 
186
   ignore_enter:=(a.flag0 and bm_TGtkMenuShell_ignore_enter) shr bp_TGtkMenuShell_ignore_enter;
 
187
end;
 
188
 
 
189
procedure set_ignore_enter(var a : TGtkMenuShell; __ignore_enter : guint);
 
190
begin
 
191
   a.flag0:=a.flag0 or ((__ignore_enter shl bp_TGtkMenuShell_ignore_enter) and bm_TGtkMenuShell_ignore_enter);
 
192
end;
 
193
 
 
194
function submenu_placement(var a : TGtkMenuShellClass) : guint;
 
195
begin
 
196
   submenu_placement:=(a.flag0 and bm_TGtkMenuShellClass_submenu_placement) shr bp_TGtkMenuShellClass_submenu_placement;
 
197
end;
 
198
 
 
199
procedure set_submenu_placement(var a : TGtkMenuShellClass; __submenu_placement : guint);
 
200
begin
 
201
   a.flag0:=a.flag0 or ((__submenu_placement shl bp_TGtkMenuShellClass_submenu_placement) and bm_TGtkMenuShellClass_submenu_placement);
 
202
end;
 
203
 
 
204
{$ENDIF read_implementation}
 
205
// included by gtk2.pas
 
206