/packages/gtk1/src/gtk/gtkinvisible.pp
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