1{ 2} 3 4{**************************************************************************** 5 Interface 6****************************************************************************} 7 8{$ifdef read_interface} 9 10 type 11 PGtkVButtonBox = ^TGtkVButtonBox; 12 TGtkVButtonBox = record 13 button_box : TGtkButtonBox; 14 end; 15 16 PGtkVButtonBoxClass = ^TGtkVButtonBoxClass; 17 TGtkVButtonBoxClass = record 18 parent_class : TGtkButtonBoxClass; 19 end; 20 21Type 22 GTK_VBUTTON_BOX=PGtkVButtonBox; 23 GTK_VBUTTON_BOX_CLASS=PGtkVButtonBoxClass; 24 25function GTK_VBUTTON_BOX_TYPE:TGtkType;cdecl;external gtkdll name 'gtk_vbutton_box_get_type'; 26function GTK_IS_VBUTTON_BOX(obj:pointer):boolean; 27function GTK_IS_VBUTTON_BOX_CLASS(klass:pointer):boolean; 28 29function gtk_vbutton_box_get_type:TGtkType;cdecl;external gtkdll name 'gtk_vbutton_box_get_type'; 30function gtk_vbutton_box_new:PGtkWidget;cdecl;external gtkdll name 'gtk_vbutton_box_new'; 31function gtk_vbutton_box_get_spacing_default:gint;cdecl;external gtkdll name 'gtk_vbutton_box_get_spacing_default'; 32procedure gtk_vbutton_box_set_spacing_default(spacing:gint);cdecl;external gtkdll name 'gtk_vbutton_box_set_spacing_default'; 33function gtk_vbutton_box_get_layout_default:TGtkButtonBoxStyle;cdecl;external gtkdll name 'gtk_vbutton_box_get_layout_default'; 34procedure gtk_vbutton_box_set_layout_default(layout:TGtkButtonBoxStyle);cdecl;external gtkdll name 'gtk_vbutton_box_set_layout_default'; 35 36{$endif read_interface} 37 38 39{**************************************************************************** 40 Implementation 41****************************************************************************} 42 43{$ifdef read_implementation} 44 45function GTK_IS_VBUTTON_BOX(obj:pointer):boolean; 46begin 47 GTK_IS_VBUTTON_BOX:=(obj<>nil) and GTK_IS_VBUTTON_BOX_CLASS(PGtkTypeObject(obj)^.klass); 48end; 49 50function GTK_IS_VBUTTON_BOX_CLASS(klass:pointer):boolean; 51begin 52 GTK_IS_VBUTTON_BOX_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GTK_VBUTTON_BOX_TYPE); 53end; 54 55{$endif read_implementation} 56 57 58