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