/packages/gtk1/src/gtk/gtkinvisible.pp

 1{
 2}
 3
 4{****************************************************************************
 5                                 Interface
 6****************************************************************************}
 7
 8{$ifdef read_interface}
 9
10  type
11     PGtkInvisible = ^TGtkInvisible;
12     TGtkInvisible = record
13          bin : TGtkBin;
14       end;
15
16     PGtkInvisibleClass = ^TGtkInvisibleClass;
17     TGtkInvisibleClass = record
18          parent_class : TGtkBinClass;
19       end;
20
21type
22  GTK_INVISIBLE=PGtkInvisible;
23  GTK_INVISIBLE_CLASS=PGtkInvisibleClass;
24
25function  GTK_INVISIBLE_TYPE:TGtkType;cdecl;external gtkdll name 'gtk_invisible_get_type';
26function  GTK_IS_INVISIBLE(obj:pointer):boolean;
27function  GTK_IS_INVISIBLE_CLASS(klass:pointer):boolean;
28
29function  gtk_invisible_get_type:TGtkType;cdecl;external gtkdll name 'gtk_invisible_get_type';
30function  gtk_invisible_new:PGtkWidget;cdecl;external gtkdll name 'gtk_invisible_new';
31
32{$endif read_interface}
33
34
35{****************************************************************************
36                              Implementation
37****************************************************************************}
38
39{$ifdef read_implementation}
40
41function  GTK_IS_INVISIBLE(obj:pointer):boolean;
42begin
43  GTK_IS_INVISIBLE:=(obj<>nil) and GTK_IS_INVISIBLE_CLASS(PGtkTypeObject(obj)^.klass);
44end;
45
46function  GTK_IS_INVISIBLE_CLASS(klass:pointer):boolean;
47begin
48  GTK_IS_INVISIBLE_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GTK_INVISIBLE_TYPE);
49end;
50
51{$endif read_implementation}
52
53