← 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/gtkbindings.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/gtkbindings.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
   PGtkBindingEntry = ^TGtkBindingEntry;
 
10
   PGtkBindingSignal = ^TGtkBindingSignal;
 
11
   PGtkBindingArg = ^TGtkBindingArg;
 
12
 
 
13
{ Binding sets }
 
14
{ From RC content  }
 
15
   PGtkBindingSet = ^TGtkBindingSet;
 
16
   TGtkBindingSet = record
 
17
        set_name : Pgchar;
 
18
        priority : gint;
 
19
        widget_path_pspecs : PGSList;
 
20
        widget_class_pspecs : PGSList;
 
21
        class_branch_pspecs : PGSList;
 
22
        entries : PGtkBindingEntry;
 
23
        current : PGtkBindingEntry;
 
24
        flag0 : word;
 
25
     end;
 
26
 
 
27
{ key portion }
 
28
   TGtkBindingEntry = record
 
29
        keyval : guint;
 
30
        modifiers : TGdkModifierType;
 
31
        binding_set : PGtkBindingSet;
 
32
        flag0 : word;
 
33
        set_next : PGtkBindingEntry;
 
34
        hash_next : PGtkBindingEntry;
 
35
        signals : PGtkBindingSignal;
 
36
     end;
 
37
 
 
38
   TGtkBindingSignal = record
 
39
        next : PGtkBindingSignal;
 
40
        signal_name : Pgchar;
 
41
        n_args : guint;
 
42
        args : PGtkBindingArg;
 
43
     end;
 
44
 
 
45
   TGtkBindingArg = record
 
46
        arg_type : TGtkType;
 
47
        d : record
 
48
            case longint of
 
49
               0 : ( long_data : glong );
 
50
               1 : ( double_data : gdouble );
 
51
               2 : ( string_data : Pgchar );
 
52
            end;
 
53
     end;
 
54
 
 
55
{$ENDIF read_interface_types}
 
56
 
 
57
//------------------------------------------------------------------------------
 
58
 
 
59
{$IFDEF read_interface_rest}
 
60
 
 
61
const
 
62
   bm_TGtkBindingSet_parsed = $1;
 
63
   bp_TGtkBindingSet_parsed = 0;
 
64
 
 
65
   bm_TGtkBindingEntry_destroyed = $1;
 
66
   bp_TGtkBindingEntry_destroyed = 0;
 
67
   bm_TGtkBindingEntry_in_emission = $2;
 
68
   bp_TGtkBindingEntry_in_emission = 1;
 
69
 
 
70
procedure gtk_binding_entry_add(binding_set:PGtkBindingSet; keyval:guint; modifiers:TGdkModifierType);
 
71
 
 
72
function parsed(var a : TGtkBindingSet) : guint;
 
73
procedure set_parsed(var a : TGtkBindingSet; __parsed : guint);
 
74
 
 
75
function destroyed(var a : TGtkBindingEntry) : guint;
 
76
procedure set_destroyed(var a : TGtkBindingEntry; __destroyed : guint);
 
77
function in_emission(var a : TGtkBindingEntry) : guint;
 
78
procedure set_in_emission(var a : TGtkBindingEntry; __in_emission : guint);
 
79
 
 
80
{ Application-level methods  }
 
81
function gtk_binding_set_new(set_name:Pgchar):PGtkBindingSet; cdecl; external gtklib;
 
82
function gtk_binding_set_by_class(object_class:gpointer):PGtkBindingSet; cdecl; external gtklib;
 
83
function gtk_binding_set_find(set_name:Pgchar):PGtkBindingSet; cdecl; external gtklib;
 
84
function gtk_bindings_activate(anObject:PGtkObject; keyval:guint; modifiers:TGdkModifierType):gboolean; cdecl; external gtklib;
 
85
function gtk_binding_set_activate(binding_set:PGtkBindingSet; keyval:guint; modifiers:TGdkModifierType; anObject:PGtkObject):gboolean; cdecl; external gtklib;
 
86
 
 
87
procedure gtk_binding_entry_clear(binding_set:PGtkBindingSet; keyval:guint; modifiers:TGdkModifierType); cdecl; external gtklib;
 
88
{$IFNDEF KYLIX}
 
89
procedure gtk_binding_entry_add_signal(binding_set:PGtkBindingSet; keyval:guint; modifiers:TGdkModifierType; signal_name:Pgchar; n_args:guint;
 
90
            args:array of const); cdecl; overload; external gtklib;
 
91
procedure gtk_binding_entry_add_signal(binding_set:PGtkBindingSet; keyval:guint; modifiers:TGdkModifierType; signal_name:Pgchar; n_args:guint); cdecl; overload; varargs; external gtklib;
 
92
{$ELSE}
 
93
procedure gtk_binding_entry_add_signal(binding_set:PGtkBindingSet; keyval:guint; modifiers:TGdkModifierType; signal_name:Pgchar; n_args:guint); varargs; cdecl; external gtklib;
 
94
{$ENDIF}
 
95
procedure gtk_binding_set_add_path(binding_set:PGtkBindingSet; path_type:TGtkPathType; path_pattern:Pgchar; priority:TGtkPathPriorityType); cdecl; external gtklib;
 
96
{ Non-public methods  }
 
97
procedure gtk_binding_entry_remove(binding_set:PGtkBindingSet; keyval:guint; modifiers:TGdkModifierType); cdecl; external gtklib;
 
98
procedure gtk_binding_entry_add_signall(binding_set:PGtkBindingSet; keyval:guint; modifiers:TGdkModifierType; signal_name:Pgchar; binding_args:PGSList); cdecl; external gtklib;
 
99
function gtk_binding_parse_binding(scanner:PGScanner):guint; cdecl; external gtklib;
 
100
function _gtk_bindings_activate_event(anObject:PGtkObject; event:PGdkEventKey):gboolean; cdecl; external gtklib;
 
101
procedure _gtk_binding_reset_parsed; cdecl; external gtklib;
 
102
{$ENDIF read_interface_rest}
 
103
 
 
104
//------------------------------------------------------------------------------
 
105
 
 
106
{$IFDEF read_implementation}
 
107
function parsed(var a : TGtkBindingSet) : guint;
 
108
begin
 
109
   parsed:=(a.flag0 and bm_TGtkBindingSet_parsed) shr bp_TGtkBindingSet_parsed;
 
110
end;
 
111
 
 
112
procedure set_parsed(var a : TGtkBindingSet; __parsed : guint);
 
113
begin
 
114
   a.flag0:=a.flag0 or ((__parsed shl bp_TGtkBindingSet_parsed) and bm_TGtkBindingSet_parsed);
 
115
end;
 
116
 
 
117
function destroyed(var a : TGtkBindingEntry) : guint;
 
118
begin
 
119
   destroyed:=(a.flag0 and bm_TGtkBindingEntry_destroyed) shr bp_TGtkBindingEntry_destroyed;
 
120
end;
 
121
 
 
122
procedure set_destroyed(var a : TGtkBindingEntry; __destroyed : guint);
 
123
begin
 
124
   a.flag0:=a.flag0 or ((__destroyed shl bp_TGtkBindingEntry_destroyed) and bm_TGtkBindingEntry_destroyed);
 
125
end;
 
126
 
 
127
function in_emission(var a : TGtkBindingEntry) : guint;
 
128
begin
 
129
   in_emission:=(a.flag0 and bm_TGtkBindingEntry_in_emission) shr bp_TGtkBindingEntry_in_emission;
 
130
end;
 
131
 
 
132
procedure set_in_emission(var a : TGtkBindingEntry; __in_emission : guint);
 
133
begin
 
134
   a.flag0:=a.flag0 or ((__in_emission shl bp_TGtkBindingEntry_in_emission) and bm_TGtkBindingEntry_in_emission);
 
135
end;
 
136
 
 
137
procedure gtk_binding_entry_add(binding_set:PGtkBindingSet; keyval:guint; modifiers:TGdkModifierType);
 
138
begin
 
139
   gtk_binding_entry_clear(binding_set,keyval,modifiers);
 
140
end;
 
141
{$ENDIF read_implementation}
 
142
// included by gtk2.pas
 
143