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