← 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/gtkbutton.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/gtkbutton.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
   PGtkButton = ^TGtkButton;
 
10
   TGtkButton = record
 
11
        bin : TGtkBin;
 
12
        event_window : PGdkWindow;
 
13
        label_text : Pgchar;
 
14
        activate_timeout : guint;
 
15
        flag0 : word;
 
16
     end;
 
17
 
 
18
{ Padding for future expansion  }
 
19
   PGtkButtonClass = ^TGtkButtonClass;
 
20
   TGtkButtonClass = record
 
21
        parent_class : TGtkBinClass;
 
22
        pressed : procedure (button:PGtkButton); cdecl;
 
23
        released : procedure (button:PGtkButton); cdecl;
 
24
        clicked : procedure (button:PGtkButton); cdecl;
 
25
        enter : procedure (button:PGtkButton); cdecl;
 
26
        leave : procedure (button:PGtkButton); cdecl;
 
27
        activate : procedure (button:PGtkButton); cdecl;
 
28
        _gtk_reserved1 : procedure ; cdecl;
 
29
        _gtk_reserved2 : procedure ; cdecl;
 
30
        _gtk_reserved3 : procedure ; cdecl;
 
31
        _gtk_reserved4 : procedure ; cdecl;
 
32
     end;
 
33
 
 
34
{$ENDIF read_interface_types}
 
35
 
 
36
//------------------------------------------------------------------------------
 
37
 
 
38
{$IFDEF read_interface_rest}
 
39
const
 
40
   bm_TGtkButton_constructed = $1;
 
41
   bp_TGtkButton_constructed = 0;
 
42
   bm_TGtkButton_in_button = $2;
 
43
   bp_TGtkButton_in_button = 1;
 
44
   bm_TGtkButton_button_down = $4;
 
45
   bp_TGtkButton_button_down = 2;
 
46
   bm_TGtkButton_relief = $18;
 
47
   bp_TGtkButton_relief = 3;
 
48
   bm_TGtkButton_use_underline = $20;
 
49
   bp_TGtkButton_use_underline = 5;
 
50
   bm_TGtkButton_use_stock = $40;
 
51
   bp_TGtkButton_use_stock = 6;
 
52
   bm_TGtkButton_depressed = $80;
 
53
   bp_TGtkButton_depressed = 7;
 
54
   bm_TGtkButton_depress_on_activate = $100;
 
55
   bp_TGtkButton_depress_on_activate = 8;
 
56
 
 
57
 
 
58
function GTK_TYPE_BUTTON : GType;
 
59
function GTK_BUTTON(obj: pointer) : PGtkButton;
 
60
function GTK_BUTTON_CLASS(klass: pointer) : PGtkButtonClass;
 
61
function GTK_IS_BUTTON(obj: pointer) : boolean;
 
62
function GTK_IS_BUTTON_CLASS(klass: pointer) : boolean;
 
63
function GTK_BUTTON_GET_CLASS(obj: pointer) : PGtkButtonClass;
 
64
 
 
65
 
 
66
function constructed(var a : TGtkButton) : guint;
 
67
procedure set_constructed(var a : TGtkButton; __constructed : guint);
 
68
function in_button(var a : TGtkButton) : guint;
 
69
procedure set_in_button(var a : TGtkButton; __in_button : guint);
 
70
function button_down(var a : TGtkButton) : guint;
 
71
procedure set_button_down(var a : TGtkButton; __button_down : guint);
 
72
function relief(var a : TGtkButton) : guint;
 
73
procedure set_relief(var a : TGtkButton; __relief : guint);
 
74
function use_underline(var a : TGtkButton) : guint; overload;
 
75
procedure set_use_underline(var a : TGtkButton; __use_underline : guint); overload;
 
76
function use_stock(var a : TGtkButton) : guint;
 
77
procedure set_use_stock(var a : TGtkButton; __use_stock : guint);
 
78
function depressed(var a : TGtkButton) : guint;
 
79
procedure set_depressed(var a : TGtkButton; __depressed : guint);
 
80
function depress_on_activate(var a : TGtkButton) : guint;
 
81
procedure set_depress_on_activate(var a : TGtkButton; __depress_on_activate : guint);
 
82
 
 
83
 
 
84
function gtk_button_get_type:TGtkType; cdecl; external gtklib;
 
85
function gtk_button_new:PGtkWidget; cdecl; external gtklib;
 
86
function gtk_button_new_with_label(_label:Pgchar):PGtkWidget; cdecl; external gtklib;
 
87
function gtk_button_new_from_stock(stock_id:Pgchar):PGtkWidget; cdecl; external gtklib;
 
88
function gtk_button_new_with_mnemonic(_label:Pgchar):PGtkWidget; cdecl; external gtklib;
 
89
procedure gtk_button_pressed(button:PGtkButton); cdecl; external gtklib;
 
90
procedure gtk_button_released(button:PGtkButton); cdecl; external gtklib;
 
91
procedure gtk_button_clicked(button:PGtkButton); cdecl; external gtklib;
 
92
procedure gtk_button_enter(button:PGtkButton); cdecl; external gtklib;
 
93
procedure gtk_button_leave(button:PGtkButton); cdecl; external gtklib;
 
94
procedure gtk_button_set_relief(button:PGtkButton; newstyle:TGtkReliefStyle); cdecl; external gtklib;
 
95
function gtk_button_get_relief(button:PGtkButton):TGtkReliefStyle; cdecl; external gtklib;
 
96
procedure gtk_button_set_label(button:PGtkButton; _label:Pgchar); cdecl; external gtklib;
 
97
function gtk_button_get_label(button:PGtkButton):Pgchar; cdecl; external gtklib;
 
98
procedure gtk_button_set_use_underline(button:PGtkButton; use_underline:gboolean); cdecl; external gtklib;
 
99
function gtk_button_get_use_underline(button:PGtkButton):gboolean; cdecl; external gtklib;
 
100
procedure gtk_button_set_use_stock(button:PGtkButton; use_stock:gboolean); cdecl; external gtklib;
 
101
function gtk_button_get_use_stock(button:PGtkButton):gboolean; cdecl; external gtklib;
 
102
procedure _gtk_button_set_depressed(button:PGtkButton; depressed:gboolean); cdecl; external gtklib;
 
103
procedure _gtk_button_paint(button:PGtkButton; area:PGdkRectangle; state_type:TGtkStateType; shadow_type:TGtkShadowType; main_detail:Pgchar;
 
104
            default_detail:Pgchar); cdecl; external gtklib;
 
105
 
 
106
{$IFDEF HasGTK2_4}
 
107
function  gtk_button_get_focus_on_click(window:PGtkButton):gboolean; cdecl; external gtklib;
 
108
procedure gtk_button_set_focus_on_click(window:PGtkButton; setting:gboolean); cdecl; external gtklib;
 
109
procedure gtk_button_get_alignment(window:PGtkButton; x,y: PGFloat) cdecl; external gtklib;
 
110
procedure gtk_button_set_alignment(window:PGtkButton; x,y: GFloat); cdecl; external gtklib;
 
111
{$ENDIF HasGTK2_4}
 
112
 
 
113
{$ENDIF read_interface_rest}
 
114
 
 
115
//------------------------------------------------------------------------------
 
116
 
 
117
{$IFDEF read_implementation}
 
118
function GTK_TYPE_BUTTON : GType;
 
119
begin
 
120
   GTK_TYPE_BUTTON:=gtk_button_get_type;
 
121
end;
 
122
 
 
123
function GTK_BUTTON(obj: pointer) : PGtkButton;
 
124
begin
 
125
   GTK_BUTTON:=PGtkButton(GTK_CHECK_CAST(obj,GTK_TYPE_BUTTON));
 
126
end;
 
127
 
 
128
function GTK_BUTTON_CLASS(klass: pointer) : PGtkButtonClass;
 
129
begin
 
130
   GTK_BUTTON_CLASS:=PGtkButtonClass(GTK_CHECK_CLASS_CAST(klass,GTK_TYPE_BUTTON));
 
131
end;
 
132
 
 
133
function GTK_IS_BUTTON(obj: pointer) : boolean;
 
134
begin
 
135
   GTK_IS_BUTTON:=GTK_CHECK_TYPE(obj,GTK_TYPE_BUTTON);
 
136
end;
 
137
 
 
138
function GTK_IS_BUTTON_CLASS(klass: pointer) : boolean;
 
139
begin
 
140
   GTK_IS_BUTTON_CLASS:=GTK_CHECK_CLASS_TYPE(klass,GTK_TYPE_BUTTON);
 
141
end;
 
142
 
 
143
function GTK_BUTTON_GET_CLASS(obj: pointer) : PGtkButtonClass;
 
144
begin
 
145
   GTK_BUTTON_GET_CLASS:=PGtkButtonClass(GTK_CHECK_GET_CLASS(obj,GTK_TYPE_BUTTON));
 
146
end;
 
147
 
 
148
function constructed(var a : TGtkButton) : guint;
 
149
begin
 
150
   constructed:=(a.flag0 and bm_TGtkButton_constructed) shr bp_TGtkButton_constructed;
 
151
end;
 
152
 
 
153
procedure set_constructed(var a : TGtkButton; __constructed : guint);
 
154
begin
 
155
   a.flag0:=a.flag0 or ((__constructed shl bp_TGtkButton_constructed) and bm_TGtkButton_constructed);
 
156
end;
 
157
 
 
158
function in_button(var a : TGtkButton) : guint;
 
159
begin
 
160
   in_button:=(a.flag0 and bm_TGtkButton_in_button) shr bp_TGtkButton_in_button;
 
161
end;
 
162
 
 
163
procedure set_in_button(var a : TGtkButton; __in_button : guint);
 
164
begin
 
165
   a.flag0:=a.flag0 or ((__in_button shl bp_TGtkButton_in_button) and bm_TGtkButton_in_button);
 
166
end;
 
167
 
 
168
function button_down(var a : TGtkButton) : guint;
 
169
begin
 
170
   button_down:=(a.flag0 and bm_TGtkButton_button_down) shr bp_TGtkButton_button_down;
 
171
end;
 
172
 
 
173
procedure set_button_down(var a : TGtkButton; __button_down : guint);
 
174
begin
 
175
   a.flag0:=a.flag0 or ((__button_down shl bp_TGtkButton_button_down) and bm_TGtkButton_button_down);
 
176
end;
 
177
 
 
178
function relief(var a : TGtkButton) : guint;
 
179
begin
 
180
   relief:=(a.flag0 and bm_TGtkButton_relief) shr bp_TGtkButton_relief;
 
181
end;
 
182
 
 
183
procedure set_relief(var a : TGtkButton; __relief : guint);
 
184
begin
 
185
   a.flag0:=a.flag0 or ((__relief shl bp_TGtkButton_relief) and bm_TGtkButton_relief);
 
186
end;
 
187
 
 
188
function use_underline(var a : TGtkButton) : guint;
 
189
begin
 
190
   use_underline:=(a.flag0 and bm_TGtkButton_use_underline) shr bp_TGtkButton_use_underline;
 
191
end;
 
192
 
 
193
procedure set_use_underline(var a : TGtkButton; __use_underline : guint);
 
194
begin
 
195
   a.flag0:=a.flag0 or ((__use_underline shl bp_TGtkButton_use_underline) and bm_TGtkButton_use_underline);
 
196
end;
 
197
 
 
198
function use_stock(var a : TGtkButton) : guint;
 
199
begin
 
200
   use_stock:=(a.flag0 and bm_TGtkButton_use_stock) shr bp_TGtkButton_use_stock;
 
201
end;
 
202
 
 
203
procedure set_use_stock(var a : TGtkButton; __use_stock : guint);
 
204
begin
 
205
   a.flag0:=a.flag0 or ((__use_stock shl bp_TGtkButton_use_stock) and bm_TGtkButton_use_stock);
 
206
end;
 
207
 
 
208
function depressed(var a : TGtkButton) : guint;
 
209
begin
 
210
   depressed:=(a.flag0 and bm_TGtkButton_depressed) shr bp_TGtkButton_depressed;
 
211
end;
 
212
 
 
213
procedure set_depressed(var a : TGtkButton; __depressed : guint);
 
214
begin
 
215
   a.flag0:=a.flag0 or ((__depressed shl bp_TGtkButton_depressed) and bm_TGtkButton_depressed);
 
216
end;
 
217
 
 
218
function depress_on_activate(var a : TGtkButton) : guint;
 
219
begin
 
220
   depress_on_activate:=(a.flag0 and bm_TGtkButton_depress_on_activate) shr bp_TGtkButton_depress_on_activate;
 
221
end;
 
222
 
 
223
procedure set_depress_on_activate(var a : TGtkButton; __depress_on_activate : guint);
 
224
begin
 
225
   a.flag0:=a.flag0 or ((__depress_on_activate shl bp_TGtkButton_depress_on_activate) and bm_TGtkButton_depress_on_activate);
 
226
end;
 
227
 
 
228
{$ENDIF read_implementation}
 
229
// included by gtk2.pas
 
230