1// included by gtk2.pas
2
3{$IFDEF read_forward_definitions}
4{$ENDIF read_forward_definitions}
5
6{$IFDEF read_interface_types}
7type
8   PGtkToggleActionPrivate = pointer;
9
10   PGtkToggleAction = ^TGtkToggleAction;
11   TGtkToggleAction = record
12        parent : TGtkAction;
13        private_data : PGtkToggleActionPrivate;
14     end;
15
16{ Padding for future expansion  }
17   PGtkToggleActionClass = ^TGtkToggleActionClass;
18   TGtkToggleActionClass = record
19        parent_class : TGtkActionClass;
20        toggled : procedure (action:PGtkToggleAction);cdecl;
21        _gtk_reserved1 : procedure ;
22        _gtk_reserved2 : procedure ;
23        _gtk_reserved3 : procedure ;
24        _gtk_reserved4 : procedure ;
25     end;
26
27
28{$ENDIF read_interface_types}
29
30{$IFDEF read_interface_rest}
31
32function GTK_TYPE_TOGGLE_ACTION : GType;
33function GTK_TOGGLE_ACTION(obj : pointer) : PGtkToggleAction;
34function GTK_TOGGLE_ACTION_CLASS(klass : pointer) : PGtkToggleActionClass;
35function GTK_IS_TOGGLE_ACTION(obj : pointer) : gboolean;
36function GTK_IS_TOGGLE_ACTION_CLASS(klass : pointer) : gboolean;
37function GTK_TOGGLE_ACTION_GET_CLASS(obj : pointer) : PGtkToggleActionClass;
38
39
40function gtk_toggle_action_get_type:GType;cdecl;external gtklib name 'gtk_toggle_action_get_type';
41
42function gtk_toggle_action_new(name:Pgchar; szLabel:Pgchar; tooltip:Pgchar; stock_id:Pgchar):PGtkToggleAction;cdecl;external gtklib name 'gtk_toggle_action_new';
43procedure gtk_toggle_action_toggled(action:PGtkToggleAction);cdecl;external gtklib name 'gtk_toggle_action_toggled';
44procedure gtk_toggle_action_set_active(action:PGtkToggleAction; is_active:gboolean);cdecl;external gtklib name 'gtk_toggle_action_set_active';
45function gtk_toggle_action_get_active(action:PGtkToggleAction):gboolean;cdecl;external gtklib name 'gtk_toggle_action_get_active';
46procedure gtk_toggle_action_set_draw_as_radio(action:PGtkToggleAction; draw_as_radio:gboolean);cdecl;external gtklib name 'gtk_toggle_action_set_draw_as_radio';
47function gtk_toggle_action_get_draw_as_radio(action:PGtkToggleAction):gboolean;cdecl;external gtklib name 'gtk_toggle_action_get_draw_as_radio';
48{$ENDIF read_interface_rest}
49
50{$IFDEF read_implementation}
51function GTK_TYPE_TOGGLE_ACTION : GType;
52begin
53   Result:=gtk_toggle_action_get_type;
54end;
55
56function GTK_TOGGLE_ACTION(obj : pointer) : PGtkToggleAction;
57begin
58   Result:=PGtkToggleAction(G_TYPE_CHECK_INSTANCE_CAST(obj,GTK_TYPE_TOGGLE_ACTION));
59end;
60
61function GTK_TOGGLE_ACTION_CLASS(klass : pointer) : PGtkToggleActionClass;
62begin
63   Result:=PGtkToggleActionClass(G_TYPE_CHECK_CLASS_CAST(klass,GTK_TYPE_TOGGLE_ACTION));
64end;
65
66function GTK_IS_TOGGLE_ACTION(obj : pointer) : gboolean;
67begin
68   Result:=G_TYPE_CHECK_INSTANCE_TYPE(obj,GTK_TYPE_TOGGLE_ACTION);
69end;
70
71function GTK_IS_TOGGLE_ACTION_CLASS(klass : pointer) : gboolean;
72begin
73   Result:=G_TYPE_CHECK_CLASS_TYPE(klass,GTK_TYPE_TOGGLE_ACTION);
74end;
75
76function GTK_TOGGLE_ACTION_GET_CLASS(obj : pointer) : PGtkToggleActionClass;
77begin
78   Result:=PGtkToggleActionClass(G_TYPE_INSTANCE_GET_CLASS(obj,GTK_TYPE_TOGGLE_ACTION));
79end;
80
81{$ENDIF read_implementation}
82