4
{****************************************************************************
6
****************************************************************************}
8
{$ifdef read_interface}
11
PGtkVScrollbar = ^TGtkVScrollbar;
12
TGtkVScrollbar = record
13
scrollbar : TGtkScrollbar;
16
PGtkVScrollbarClass = ^TGtkVScrollbarClass;
17
TGtkVScrollbarClass = record
18
parent_class : TGtkScrollbarClass;
22
GTK_VSCROLLBAR=PGtkVScrollbar;
23
GTK_VSCROLLBAR_CLASS=PGtkVScrollbarClass;
25
function GTK_VSCROLLBAR_TYPE:TGtkType;cdecl;external gtkdll name 'gtk_vscrollbar_get_type';
26
function GTK_IS_VSCROLLBAR(obj:pointer):boolean;
27
function GTK_IS_VSCROLLBAR_CLASS(klass:pointer):boolean;
29
function gtk_vscrollbar_get_type:TGtkType;cdecl;external gtkdll name 'gtk_vscrollbar_get_type';
30
function gtk_vscrollbar_new (adjustment:PGtkAdjustment):PGtkWidget;cdecl;external gtkdll name 'gtk_vscrollbar_new';
32
{$endif read_interface}
35
{****************************************************************************
37
****************************************************************************}
39
{$ifdef read_implementation}
41
function GTK_IS_VSCROLLBAR(obj:pointer):boolean;
43
GTK_IS_VSCROLLBAR:=(obj<>nil) and GTK_IS_VSCROLLBAR_CLASS(PGtkTypeObject(obj)^.klass);
46
function GTK_IS_VSCROLLBAR_CLASS(klass:pointer):boolean;
48
GTK_IS_VSCROLLBAR_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GTK_VSCROLLBAR_TYPE);
51
{$endif read_implementation}