PageRenderTime 36ms CodeModel.GetById 20ms app.highlight 10ms RepoModel.GetById 1ms app.codeStats 2ms

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

https://github.com/slibre/freepascal
Puppet | 53 lines | 37 code | 16 blank | 0 comment | 0 complexity | c91f800207a083972c5965ab9be629d4 MD5 | raw file
Possible License(s): LGPL-2.0, LGPL-2.1, LGPL-3.0
 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