blob: cae9653c1f3479cfbc13ff7217394a92fc30fbc2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
|
// included by gtk2.pas
{$IFDEF read_forward_definitions}
{$ENDIF read_forward_definitions}
//------------------------------------------------------------------------------
{$IFDEF read_interface_types}
PGtkToggleButton = ^TGtkToggleButton;
TGtkToggleButton = record
button : TGtkButton;
flag0 : word;
end;
{ Padding for future expansion }
PGtkToggleButtonClass = ^TGtkToggleButtonClass;
TGtkToggleButtonClass = record
parent_class : TGtkButtonClass;
toggled : procedure (toggle_button:PGtkToggleButton); cdecl;
_gtk_reserved1 : procedure ; cdecl;
_gtk_reserved2 : procedure ; cdecl;
_gtk_reserved3 : procedure ; cdecl;
_gtk_reserved4 : procedure ; cdecl;
end;
{$ENDIF read_interface_types}
//------------------------------------------------------------------------------
{$IFDEF read_interface_rest}
const
bm_TGtkToggleButton_active = $1;
bp_TGtkToggleButton_active = 0;
bm_TGtkToggleButton_draw_indicator = $2;
bp_TGtkToggleButton_draw_indicator = 1;
bm_TGtkToggleButton_inconsistent = $4;
bp_TGtkToggleButton_inconsistent = 2;
function GTK_TYPE_TOGGLE_BUTTON : GType;
function GTK_TOGGLE_BUTTON(obj: pointer) : PGtkToggleButton;
function GTK_TOGGLE_BUTTON_CLASS(klass: pointer) : PGtkToggleButtonClass;
function GTK_IS_TOGGLE_BUTTON(obj: pointer) : boolean;
function GTK_IS_TOGGLE_BUTTON_CLASS(klass: pointer) : boolean;
function GTK_TOGGLE_BUTTON_GET_CLASS(obj: pointer) : PGtkToggleButtonClass;
function active(var a : TGtkToggleButton) : guint; overload;
procedure set_active(var a : TGtkToggleButton; __active : guint); overload;
function draw_indicator(var a : TGtkToggleButton) : guint;
procedure set_draw_indicator(var a : TGtkToggleButton; __draw_indicator : guint);
function inconsistent(var a : TGtkToggleButton) : guint; overload;
procedure set_inconsistent(var a : TGtkToggleButton; __inconsistent : guint); overload;
function gtk_toggle_button_get_type:TGtkType; cdecl; external gtklib;
function gtk_toggle_button_new:PGtkWidget; cdecl; external gtklib;
function gtk_toggle_button_new_with_label(_label:Pgchar):PGtkWidget; cdecl; external gtklib;
function gtk_toggle_button_new_with_mnemonic(_label:Pgchar):PGtkWidget; cdecl; external gtklib;
procedure gtk_toggle_button_set_mode(toggle_button:PGtkToggleButton; draw_indicator:gboolean); cdecl; external gtklib;
function gtk_toggle_button_get_mode(toggle_button:PGtkToggleButton):gboolean; cdecl; external gtklib;
procedure gtk_toggle_button_set_active(toggle_button:PGtkToggleButton; is_active:gboolean); cdecl; external gtklib;
function gtk_toggle_button_get_active(toggle_button:PGtkToggleButton):gboolean; cdecl; external gtklib;
procedure gtk_toggle_button_toggled(toggle_button:PGtkToggleButton); cdecl; external gtklib;
procedure gtk_toggle_button_set_inconsistent(toggle_button:PGtkToggleButton; setting:gboolean); cdecl; external gtklib;
function gtk_toggle_button_get_inconsistent(toggle_button:PGtkToggleButton):gboolean; cdecl; external gtklib;
{$ifndef GTK_DISABLE_DEPRECATED}
procedure gtk_toggle_button_set_state(toggle_button:PGtkToggleButton; is_active:gboolean);
{$endif}
{ GTK_DISABLE_DEPRECATED }
{$ENDIF read_interface_rest}
//------------------------------------------------------------------------------
{$IFDEF read_implementation}
function GTK_TYPE_TOGGLE_BUTTON : GType;
begin
GTK_TYPE_TOGGLE_BUTTON:=gtk_toggle_button_get_type;
end;
function GTK_TOGGLE_BUTTON(obj: pointer) : PGtkToggleButton;
begin
GTK_TOGGLE_BUTTON:=PGtkToggleButton(GTK_CHECK_CAST(obj,GTK_TYPE_TOGGLE_BUTTON));
end;
function GTK_TOGGLE_BUTTON_CLASS(klass: pointer) : PGtkToggleButtonClass;
begin
GTK_TOGGLE_BUTTON_CLASS:=PGtkToggleButtonClass(GTK_CHECK_CLASS_CAST(klass,GTK_TYPE_TOGGLE_BUTTON));
end;
function GTK_IS_TOGGLE_BUTTON(obj: pointer) : boolean;
begin
GTK_IS_TOGGLE_BUTTON:=GTK_CHECK_TYPE(obj,GTK_TYPE_TOGGLE_BUTTON);
end;
function GTK_IS_TOGGLE_BUTTON_CLASS(klass: pointer) : boolean;
begin
GTK_IS_TOGGLE_BUTTON_CLASS:=GTK_CHECK_CLASS_TYPE(klass,GTK_TYPE_TOGGLE_BUTTON);
end;
function GTK_TOGGLE_BUTTON_GET_CLASS(obj: pointer) : PGtkToggleButtonClass;
begin
GTK_TOGGLE_BUTTON_GET_CLASS:=PGtkToggleButtonClass(GTK_CHECK_GET_CLASS(obj,GTK_TYPE_TOGGLE_BUTTON));
end;
function active(var a : TGtkToggleButton) : guint;
begin
active:=(a.flag0 and bm_TGtkToggleButton_active) shr bp_TGtkToggleButton_active;
end;
procedure set_active(var a : TGtkToggleButton; __active : guint);
begin
a.flag0:=a.flag0 or ((__active shl bp_TGtkToggleButton_active) and bm_TGtkToggleButton_active);
end;
function draw_indicator(var a : TGtkToggleButton) : guint;
begin
draw_indicator:=(a.flag0 and bm_TGtkToggleButton_draw_indicator) shr bp_TGtkToggleButton_draw_indicator;
end;
procedure set_draw_indicator(var a : TGtkToggleButton; __draw_indicator : guint);
begin
a.flag0:=a.flag0 or ((__draw_indicator shl bp_TGtkToggleButton_draw_indicator) and bm_TGtkToggleButton_draw_indicator);
end;
function inconsistent(var a : TGtkToggleButton) : guint;
begin
inconsistent:=(a.flag0 and bm_TGtkToggleButton_inconsistent) shr bp_TGtkToggleButton_inconsistent;
end;
procedure set_inconsistent(var a : TGtkToggleButton; __inconsistent : guint);
begin
a.flag0:=a.flag0 or ((__inconsistent shl bp_TGtkToggleButton_inconsistent) and bm_TGtkToggleButton_inconsistent);
end;
{$ifndef GTK_DISABLE_DEPRECATED}
procedure gtk_toggle_button_set_state(toggle_button:PGtkToggleButton; is_active:gboolean);
begin
gtk_toggle_button_set_active(toggle_button,is_active);
end;
{$endif}
{ GTK_DISABLE_DEPRECATED }
{$ENDIF read_implementation}
// included by gtk2.pas
|
