4
{****************************************************************************
6
****************************************************************************}
8
{$ifdef read_interface}
11
PGtkHScale = ^TGtkHScale;
16
PGtkHScaleClass = ^TGtkHScaleClass;
17
TGtkHScaleClass = record
18
parent_class : TGtkScaleClass;
22
GTK_HSCALE=PGtkHScale;
23
GTK_HSCALE_CLASS=PGtkHScaleClass;
25
function GTK_HSCALE_TYPE:TGtkType;cdecl;external gtkdll name 'gtk_hscale_get_type';
26
function GTK_IS_HSCALE(obj:pointer):boolean;
27
function GTK_IS_HSCALE_CLASS(klass:pointer):boolean;
29
function gtk_hscale_get_type:TGtkType;cdecl;external gtkdll name 'gtk_hscale_get_type';
30
function gtk_hscale_new(adjustment:PGtkAdjustment):PGtkWidget;cdecl;external gtkdll name 'gtk_hscale_new';
32
{$endif read_interface}
35
{****************************************************************************
37
****************************************************************************}
39
{$ifdef read_implementation}
41
function GTK_IS_HSCALE(obj:pointer):boolean;
43
GTK_IS_HSCALE:=(obj<>nil) and GTK_IS_HSCALE_CLASS(PGtkTypeObject(obj)^.klass);
46
function GTK_IS_HSCALE_CLASS(klass:pointer):boolean;
48
GTK_IS_HSCALE_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GTK_HSCALE_TYPE);
51
{$endif read_implementation}