← 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/gtkaccelgroup.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/gtkaccelgroup.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
{ --- accel flags ---  }
 
10
{ display in GtkAccelLabel?  }
 
11
{ is it removable?  }
 
12
   PGtkAccelFlags = ^TGtkAccelFlags;
 
13
   TGtkAccelFlags = longint;
 
14
 
 
15
{ --- typedefs & structures ---  }
 
16
   PGtkAccelGroup = ^TGtkAccelGroup;
 
17
   PGtkAccelGroupEntry = ^TGtkAccelGroupEntry;
 
18
 
 
19
   TGtkAccelGroupActivate = function (accel_group:PGtkAccelGroup; acceleratable:PGObject; keyval:guint; modifier:TGdkModifierType):gboolean; cdecl;
 
20
   TGtkAccelGroup = record
 
21
        parent : TGObject;
 
22
        lock_count : guint;
 
23
        modifier_mask : TGdkModifierType;
 
24
        acceleratables : PGSList;
 
25
        n_accels : guint;
 
26
        priv_accels : PGtkAccelGroupEntry;
 
27
     end;
 
28
 
 
29
{ Padding for future expansion  }
 
30
   PGtkAccelGroupClass = ^TGtkAccelGroupClass;
 
31
   TGtkAccelGroupClass = record
 
32
        parent_class : TGObjectClass;
 
33
        accel_changed : procedure (accel_group:PGtkAccelGroup; keyval:guint; modifier:TGdkModifierType; accel_closure:PGClosure); cdecl;
 
34
        _gtk_reserved1 : procedure ; cdecl;
 
35
        _gtk_reserved2 : procedure ; cdecl;
 
36
        _gtk_reserved3 : procedure ; cdecl;
 
37
        _gtk_reserved4 : procedure ; cdecl;
 
38
     end;
 
39
 
 
40
   PGtkAccelKey = ^TGtkAccelKey;
 
41
   TGtkAccelKey = record
 
42
        accel_key : guint;
 
43
        accel_mods : TGdkModifierType;
 
44
        flag0 : word;
 
45
     end;
 
46
 
 
47
   TGtkAccelGroupEntry = record
 
48
        key : TGtkAccelKey;
 
49
        closure : PGClosure;
 
50
        accel_path_quark : TGQuark;
 
51
     end;
 
52
 
 
53
  Tgtk_accel_group_find_func = function (key:PGtkAccelKey; closure:PGClosure; data:gpointer):gboolean; cdecl;
 
54
  TGtkAccelGroupFindFunc = Tgtk_accel_group_find_func;
 
55
{$ENDIF read_interface_types}
 
56
 
 
57
//------------------------------------------------------------------------------
 
58
 
 
59
{$IFDEF read_interface_rest}
 
60
const
 
61
   GTK_ACCEL_VISIBLE = 1 shl 0;
 
62
   GTK_ACCEL_LOCKED = 1 shl 1;
 
63
   GTK_ACCEL_MASK = $07;
 
64
 
 
65
   bm_TGtkAccelKey_accel_flags = $FFFF;
 
66
   bp_TGtkAccelKey_accel_flags = 0;
 
67
 
 
68
 
 
69
{$ifndef GTK_DISABLE_DEPRECATED}
 
70
procedure gtk_accel_group_ref(AccelGroup: PGtkAccelGroup);
 
71
procedure gtk_accel_group_unref(AccelGroup: PGtkAccelGroup);
 
72
{$endif}
 
73
 
 
74
{ --- type macros ---  }
 
75
function GTK_TYPE_ACCEL_GROUP : GType;
 
76
function GTK_ACCEL_GROUP(anObject: pointer) : PGtkAccelGroup;
 
77
function GTK_ACCEL_GROUP_CLASS(klass: pointer) : PGtkAccelGroupClass;
 
78
function GTK_IS_ACCEL_GROUP(anObject: pointer) : boolean;
 
79
function GTK_IS_ACCEL_GROUP_CLASS(klass: pointer) : boolean;
 
80
function GTK_ACCEL_GROUP_GET_CLASS(obj: pointer) : PGtkAccelGroupClass;
 
81
 
 
82
function accel_flags(var a : TGtkAccelKey) : guint;
 
83
procedure set_accel_flags(var a : TGtkAccelKey; __accel_flags : guint);
 
84
{ -- Accelerator Groups ---  }
 
85
 
 
86
function gtk_accel_group_get_type:GType; cdecl; external gtklib;
 
87
function gtk_accel_group_new:PGtkAccelGroup; cdecl; external gtklib;
 
88
procedure gtk_accel_group_lock(accel_group:PGtkAccelGroup); cdecl; external gtklib;
 
89
procedure gtk_accel_group_unlock(accel_group:PGtkAccelGroup); cdecl; external gtklib;
 
90
procedure gtk_accel_group_connect(accel_group:PGtkAccelGroup; accel_key:guint; accel_mods:TGdkModifierType; accel_flags:TGtkAccelFlags; closure:PGClosure); cdecl; external gtklib;
 
91
procedure gtk_accel_group_connect_by_path(accel_group:PGtkAccelGroup; accel_path:Pgchar; closure:PGClosure); cdecl; external gtklib;
 
92
function gtk_accel_group_disconnect(accel_group:PGtkAccelGroup; closure:PGClosure):gboolean; cdecl; external gtklib;
 
93
function gtk_accel_group_disconnect_key(accel_group:PGtkAccelGroup; accel_key:guint; accel_mods:TGdkModifierType):gboolean; cdecl; external gtklib;
 
94
{ --- GtkActivatable glue ---  }
 
95
procedure _gtk_accel_group_attach(accel_group:PGtkAccelGroup; anObject:PGObject); cdecl; external gtklib;
 
96
procedure _gtk_accel_group_detach(accel_group:PGtkAccelGroup; anObject:PGObject); cdecl; external gtklib;
 
97
function gtk_accel_groups_activate(anObject:PGObject; accel_key:guint; accel_mods:TGdkModifierType):gboolean; cdecl; external gtklib;
 
98
function gtk_accel_groups_from_object(anObject:PGObject):PGSList; cdecl; external gtklib;
 
99
function gtk_accel_group_find(accel_group:PGtkAccelGroup; find_func:Tgtk_accel_group_find_func; data:gpointer):PGtkAccelKey; cdecl; external gtklib;
 
100
function gtk_accel_group_from_accel_closure(closure:PGClosure):PGtkAccelGroup; cdecl; external gtklib;
 
101
{ --- Accelerators---  }
 
102
function gtk_accelerator_valid(keyval:guint; modifiers:TGdkModifierType):gboolean; cdecl; external gtklib;
 
103
procedure gtk_accelerator_parse(accelerator:Pgchar; accelerator_key:Pguint; accelerator_mods:PGdkModifierType); cdecl; external gtklib;
 
104
function gtk_accelerator_name(accelerator_key:guint; accelerator_mods:TGdkModifierType):Pgchar; cdecl; external gtklib;
 
105
procedure gtk_accelerator_set_default_mod_mask(default_mod_mask:TGdkModifierType); cdecl; external gtklib;
 
106
function gtk_accelerator_get_default_mod_mask:guint; cdecl; external gtklib;
 
107
 
 
108
{ --- internal ---  }
 
109
function gtk_accel_group_query(accel_group:PGtkAccelGroup; accel_key:guint; accel_mods:TGdkModifierType; n_entries:Pguint):PGtkAccelGroupEntry; cdecl; external gtklib;
 
110
procedure _gtk_accel_group_reconnect(accel_group:PGtkAccelGroup; accel_path_quark:TGQuark); cdecl; external gtklib;
 
111
{$ENDIF read_interface_rest}
 
112
 
 
113
//------------------------------------------------------------------------------
 
114
 
 
115
{$IFDEF read_implementation}
 
116
function GTK_TYPE_ACCEL_GROUP : GType;
 
117
begin
 
118
   GTK_TYPE_ACCEL_GROUP:=gtk_accel_group_get_type;
 
119
end;
 
120
 
 
121
function GTK_ACCEL_GROUP(anObject: pointer) : PGtkAccelGroup;
 
122
begin
 
123
   GTK_ACCEL_GROUP:=PGtkAccelGroup(G_TYPE_CHECK_INSTANCE_CAST(anObject,GTK_TYPE_ACCEL_GROUP));
 
124
end;
 
125
 
 
126
function GTK_ACCEL_GROUP_CLASS(klass: pointer) : PGtkAccelGroupClass;
 
127
begin
 
128
   GTK_ACCEL_GROUP_CLASS:=PGtkAccelGroupClass(G_TYPE_CHECK_CLASS_CAST(klass,GTK_TYPE_ACCEL_GROUP));
 
129
end;
 
130
 
 
131
function GTK_IS_ACCEL_GROUP(anObject: pointer) : boolean;
 
132
begin
 
133
   GTK_IS_ACCEL_GROUP:=G_TYPE_CHECK_INSTANCE_TYPE(anObject,GTK_TYPE_ACCEL_GROUP);
 
134
end;
 
135
 
 
136
function GTK_IS_ACCEL_GROUP_CLASS(klass: pointer) : boolean;
 
137
begin
 
138
   GTK_IS_ACCEL_GROUP_CLASS:=G_TYPE_CHECK_CLASS_TYPE(klass,GTK_TYPE_ACCEL_GROUP);
 
139
end;
 
140
 
 
141
function GTK_ACCEL_GROUP_GET_CLASS(obj: pointer) : PGtkAccelGroupClass;
 
142
begin
 
143
   GTK_ACCEL_GROUP_GET_CLASS:=PGtkAccelGroupClass(G_TYPE_INSTANCE_GET_CLASS(obj,GTK_TYPE_ACCEL_GROUP));
 
144
end;
 
145
 
 
146
function accel_flags(var a : TGtkAccelKey) : guint;
 
147
begin
 
148
   accel_flags:=(a.flag0 and bm_TGtkAccelKey_accel_flags) shr bp_TGtkAccelKey_accel_flags;
 
149
end;
 
150
 
 
151
procedure set_accel_flags(var a : TGtkAccelKey; __accel_flags : guint);
 
152
begin
 
153
   a.flag0:=a.flag0 or ((__accel_flags shl bp_TGtkAccelKey_accel_flags) and bm_TGtkAccelKey_accel_flags);
 
154
end;
 
155
 
 
156
procedure gtk_accel_group_ref(AccelGroup: PGtkAccelGroup);
 
157
begin
 
158
  g_object_ref(AccelGroup);
 
159
end;
 
160
 
 
161
procedure gtk_accel_group_unref(AccelGroup: PGtkAccelGroup);
 
162
begin
 
163
  g_object_unref(AccelGroup);
 
164
end;
 
165
{$ENDIF read_implementation}
 
166
// included by gtk2.pas
 
167