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