4
{****************************************************************************
6
****************************************************************************}
8
{$ifdef read_interface}
11
PGtkInvisible = ^TGtkInvisible;
12
TGtkInvisible = record
16
PGtkInvisibleClass = ^TGtkInvisibleClass;
17
TGtkInvisibleClass = record
18
parent_class : TGtkBinClass;
22
GTK_INVISIBLE=PGtkInvisible;
23
GTK_INVISIBLE_CLASS=PGtkInvisibleClass;
25
function GTK_INVISIBLE_TYPE:TGtkType;cdecl;external gtkdll name 'gtk_invisible_get_type';
26
function GTK_IS_INVISIBLE(obj:pointer):boolean;
27
function GTK_IS_INVISIBLE_CLASS(klass:pointer):boolean;
29
function gtk_invisible_get_type:TGtkType;cdecl;external gtkdll name 'gtk_invisible_get_type';
30
function gtk_invisible_new:PGtkWidget;cdecl;external gtkdll name 'gtk_invisible_new';
32
{$endif read_interface}
35
{****************************************************************************
37
****************************************************************************}
39
{$ifdef read_implementation}
41
function GTK_IS_INVISIBLE(obj:pointer):boolean;
43
GTK_IS_INVISIBLE:=(obj<>nil) and GTK_IS_INVISIBLE_CLASS(PGtkTypeObject(obj)^.klass);
46
function GTK_IS_INVISIBLE_CLASS(klass:pointer):boolean;
48
GTK_IS_INVISIBLE_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GTK_INVISIBLE_TYPE);
51
{$endif read_implementation}