1 2{$IFDEF read_forward_definitions} 3{$ENDIF read_forward_definitions} 4 5{$IFDEF read_interface_types} 6type 7 PGtkToggleToolButtonPrivate = pointer; 8 9 PGtkToggleToolButton = ^TGtkToggleToolButton; 10 TGtkToggleToolButton = record 11 parent : TGtkToolButton; 12 priv : PGtkToggleToolButtonPrivate; 13 end; 14 15{ signal } 16{ Padding for future expansion } 17 PGtkToggleToolButtonClass = ^TGtkToggleToolButtonClass; 18 TGtkToggleToolButtonClass = record 19 parent_class : TGtkToolButtonClass; 20 toggled : procedure (button:PGtkToggleToolButton);cdecl; 21 _gtk_reserved1 : procedure ; 22 _gtk_reserved2 : procedure ; 23 _gtk_reserved3 : procedure ; 24 _gtk_reserved4 : procedure ; 25 end; 26{$ENDIF read_interface_types} 27 28{$IFDEF read_interface_rest} 29 30function GTK_TYPE_TOGGLE_TOOL_BUTTON : GType; 31function GTK_TOGGLE_TOOL_BUTTON(obj : pointer) : PGtkToggleToolButton; 32function GTK_TOGGLE_TOOL_BUTTON_CLASS(klass : pointer) : PGtkToggleToolButtonClass; 33function GTK_IS_TOGGLE_TOOL_BUTTON(obj : pointer) : gboolean; 34function GTK_IS_TOGGLE_TOOL_BUTTON_CLASS(klass : pointer) : gboolean; 35function GTK_TOGGLE_TOOL_BUTTON_GET_CLASS(obj : pointer) : PGtkToggleToolButtonClass; 36 37 38function gtk_toggle_tool_button_get_type:GType;cdecl;external gtklib name 'gtk_toggle_tool_button_get_type'; 39function gtk_toggle_tool_button_new:PGtkToolItem;cdecl;external gtklib name 'gtk_toggle_tool_button_new'; 40(* Const before type ignored *) 41function gtk_toggle_tool_button_new_from_stock(stock_id:Pgchar):PGtkToolItem;cdecl;external gtklib name 'gtk_toggle_tool_button_new_from_stock'; 42procedure gtk_toggle_tool_button_set_active(button:PGtkToggleToolButton; is_active:gboolean);cdecl;external gtklib name 'gtk_toggle_tool_button_set_active'; 43function gtk_toggle_tool_button_get_active(button:PGtkToggleToolButton):gboolean;cdecl;external gtklib name 'gtk_toggle_tool_button_get_active'; 44{$endif read_interface_rest} 45 46{$ifdef read_implementation} 47 48function GTK_TYPE_TOGGLE_TOOL_BUTTON : GType; 49begin 50 GTK_TYPE_TOGGLE_TOOL_BUTTON:=gtk_toggle_tool_button_get_type; 51end; 52 53function GTK_TOGGLE_TOOL_BUTTON(obj : pointer) : PGtkToggleToolButton; 54begin 55 GTK_TOGGLE_TOOL_BUTTON:=PGtkToggleToolButton(G_TYPE_CHECK_INSTANCE_CAST(obj,GTK_TYPE_TOGGLE_TOOL_BUTTON)); 56end; 57 58function GTK_TOGGLE_TOOL_BUTTON_CLASS(klass : pointer) : PGtkToggleToolButtonClass; 59begin 60 GTK_TOGGLE_TOOL_BUTTON_CLASS:=PGtkToggleToolButtonClass(G_TYPE_CHECK_CLASS_CAST(klass,GTK_TYPE_TOGGLE_TOOL_BUTTON)); 61end; 62 63function GTK_IS_TOGGLE_TOOL_BUTTON(obj : pointer) : gboolean; 64begin 65 GTK_IS_TOGGLE_TOOL_BUTTON:=G_TYPE_CHECK_INSTANCE_TYPE(obj,GTK_TYPE_TOGGLE_TOOL_BUTTON); 66end; 67 68function GTK_IS_TOGGLE_TOOL_BUTTON_CLASS(klass : pointer) : gboolean; 69begin 70 GTK_IS_TOGGLE_TOOL_BUTTON_CLASS:=G_TYPE_CHECK_CLASS_TYPE(klass,GTK_TYPE_TOGGLE_TOOL_BUTTON); 71end; 72 73function GTK_TOGGLE_TOOL_BUTTON_GET_CLASS(obj : pointer) : PGtkToggleToolButtonClass; 74begin 75 GTK_TOGGLE_TOOL_BUTTON_GET_CLASS:=PGtkToggleToolButtonClass(G_TYPE_INSTANCE_GET_CLASS(obj,GTK_TYPE_TOGGLE_TOOL_BUTTON)); 76end; 77 78{$endif read_implementation} 79