← 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/gtkcellrenderertoggle.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/gtkcellrenderertoggle.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
   PGtkCellRendererToggle = ^TGtkCellRendererToggle;
 
10
   TGtkCellRendererToggle = record
 
11
        parent : TGtkCellRenderer;
 
12
        flag0 : word;
 
13
     end;
 
14
 
 
15
{ Padding for future expansion  }
 
16
   PGtkCellRendererToggleClass = ^TGtkCellRendererToggleClass;
 
17
   TGtkCellRendererToggleClass = record
 
18
        parent_class : TGtkCellRendererClass;
 
19
        toggled : procedure (cell_renderer_toggle:PGtkCellRendererToggle; path:Pgchar); cdecl;
 
20
        _gtk_reserved1 : procedure ; cdecl;
 
21
        _gtk_reserved2 : procedure ; cdecl;
 
22
        _gtk_reserved3 : procedure ; cdecl;
 
23
        _gtk_reserved4 : procedure ; cdecl;
 
24
     end;
 
25
{$ENDIF read_interface_types}
 
26
 
 
27
//------------------------------------------------------------------------------
 
28
 
 
29
{$IFDEF read_interface_rest}
 
30
 
 
31
const
 
32
   bm_TGtkCellRendererToggle_active = $1;
 
33
   bp_TGtkCellRendererToggle_active = 0;
 
34
   bm_TGtkCellRendererToggle_activatable = $2;
 
35
   bp_TGtkCellRendererToggle_activatable = 1;
 
36
   bm_TGtkCellRendererToggle_radio = $4;
 
37
   bp_TGtkCellRendererToggle_radio = 2;
 
38
 
 
39
 
 
40
function GTK_TYPE_CELL_RENDERER_TOGGLE : GType;
 
41
function GTK_CELL_RENDERER_TOGGLE(obj: pointer) : PGtkCellRendererToggle;
 
42
function GTK_CELL_RENDERER_TOGGLE_CLASS(klass: pointer) : PGtkCellRendererToggleClass;
 
43
function GTK_IS_CELL_RENDERER_TOGGLE(obj: pointer) : boolean;
 
44
function GTK_IS_CELL_RENDERER_TOGGLE_CLASS(klass: pointer) : boolean;
 
45
function GTK_CELL_RENDERER_TOGGLE_GET_CLASS(obj: pointer) : PGtkCellRendererToggleClass;
 
46
 
 
47
 
 
48
function active(var a : TGtkCellRendererToggle) : guint; overload;
 
49
procedure set_active(var a : TGtkCellRendererToggle; __active : guint); overload;
 
50
function activatable(var a : TGtkCellRendererToggle) : guint;
 
51
procedure set_activatable(var a : TGtkCellRendererToggle; __activatable : guint);
 
52
function radio(var a : TGtkCellRendererToggle) : guint;
 
53
procedure set_radio(var a : TGtkCellRendererToggle; __radio : guint);
 
54
 
 
55
 
 
56
function gtk_cell_renderer_toggle_get_type:TGtkType; cdecl; external gtklib;
 
57
function gtk_cell_renderer_toggle_new:PGtkCellRenderer; cdecl; external gtklib;
 
58
function gtk_cell_renderer_toggle_get_radio(toggle:PGtkCellRendererToggle):gboolean; cdecl; external gtklib;
 
59
procedure gtk_cell_renderer_toggle_set_radio(toggle:PGtkCellRendererToggle; radio:gboolean); cdecl; external gtklib;
 
60
function gtk_cell_renderer_toggle_get_active(toggle:PGtkCellRendererToggle):gboolean; cdecl; external gtklib;
 
61
procedure gtk_cell_renderer_toggle_set_active(toggle:PGtkCellRendererToggle; setting:gboolean); cdecl; external gtklib;
 
62
{$ENDIF read_interface_rest}
 
63
 
 
64
//------------------------------------------------------------------------------
 
65
 
 
66
{$IFDEF read_implementation}
 
67
function GTK_TYPE_CELL_RENDERER_TOGGLE : GType;
 
68
begin
 
69
   GTK_TYPE_CELL_RENDERER_TOGGLE:=gtk_cell_renderer_toggle_get_type;
 
70
end;
 
71
 
 
72
function GTK_CELL_RENDERER_TOGGLE(obj: pointer) : PGtkCellRendererToggle;
 
73
begin
 
74
   GTK_CELL_RENDERER_TOGGLE:=PGtkCellRendererToggle(GTK_CHECK_CAST(obj,GTK_TYPE_CELL_RENDERER_TOGGLE));
 
75
end;
 
76
 
 
77
function GTK_CELL_RENDERER_TOGGLE_CLASS(klass: pointer) : PGtkCellRendererToggleClass;
 
78
begin
 
79
   GTK_CELL_RENDERER_TOGGLE_CLASS:=PGtkCellRendererToggleClass(GTK_CHECK_CLASS_CAST(klass,GTK_TYPE_CELL_RENDERER_TOGGLE));
 
80
end;
 
81
 
 
82
function GTK_IS_CELL_RENDERER_TOGGLE(obj: pointer) : boolean;
 
83
begin
 
84
   GTK_IS_CELL_RENDERER_TOGGLE:=GTK_CHECK_TYPE(obj,GTK_TYPE_CELL_RENDERER_TOGGLE);
 
85
end;
 
86
 
 
87
function GTK_IS_CELL_RENDERER_TOGGLE_CLASS(klass: pointer) : boolean;
 
88
begin
 
89
   GTK_IS_CELL_RENDERER_TOGGLE_CLASS:=GTK_CHECK_CLASS_TYPE(klass,GTK_TYPE_CELL_RENDERER_TOGGLE);
 
90
end;
 
91
 
 
92
function GTK_CELL_RENDERER_TOGGLE_GET_CLASS(obj: pointer) : PGtkCellRendererToggleClass;
 
93
begin
 
94
   GTK_CELL_RENDERER_TOGGLE_GET_CLASS:=PGtkCellRendererToggleClass(GTK_CHECK_GET_CLASS(obj,GTK_TYPE_CELL_RENDERER_TOGGLE));
 
95
end;
 
96
 
 
97
function active(var a : TGtkCellRendererToggle) : guint;
 
98
begin
 
99
   active:=(a.flag0 and bm_TGtkCellRendererToggle_active) shr bp_TGtkCellRendererToggle_active;
 
100
end;
 
101
 
 
102
procedure set_active(var a : TGtkCellRendererToggle; __active : guint);
 
103
begin
 
104
   a.flag0:=a.flag0 or ((__active shl bp_TGtkCellRendererToggle_active) and bm_TGtkCellRendererToggle_active);
 
105
end;
 
106
 
 
107
function activatable(var a : TGtkCellRendererToggle) : guint;
 
108
begin
 
109
   activatable:=(a.flag0 and bm_TGtkCellRendererToggle_activatable) shr bp_TGtkCellRendererToggle_activatable;
 
110
end;
 
111
 
 
112
procedure set_activatable(var a : TGtkCellRendererToggle; __activatable : guint);
 
113
begin
 
114
   a.flag0:=a.flag0 or ((__activatable shl bp_TGtkCellRendererToggle_activatable) and bm_TGtkCellRendererToggle_activatable);
 
115
end;
 
116
 
 
117
function radio(var a : TGtkCellRendererToggle) : guint;
 
118
begin
 
119
   radio:=(a.flag0 and bm_TGtkCellRendererToggle_radio) shr bp_TGtkCellRendererToggle_radio;
 
120
end;
 
121
 
 
122
procedure set_radio(var a : TGtkCellRendererToggle; __radio : guint);
 
123
begin
 
124
   a.flag0:=a.flag0 or ((__radio shl bp_TGtkCellRendererToggle_radio) and bm_TGtkCellRendererToggle_radio);
 
125
end;
 
126
 
 
127
{$ENDIF read_implementation}
 
128
// included by gtk2.pas
 
129