/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
- {
- }
- {****************************************************************************
- Interface
- ****************************************************************************}
- {$ifdef read_interface}
- type
- PGtkInvisible = ^TGtkInvisible;
- TGtkInvisible = record
- bin : TGtkBin;
- end;
- PGtkInvisibleClass = ^TGtkInvisibleClass;
- TGtkInvisibleClass = record
- parent_class : TGtkBinClass;
- end;
- type
- GTK_INVISIBLE=PGtkInvisible;
- GTK_INVISIBLE_CLASS=PGtkInvisibleClass;
- function GTK_INVISIBLE_TYPE:TGtkType;cdecl;external gtkdll name 'gtk_invisible_get_type';
- function GTK_IS_INVISIBLE(obj:pointer):boolean;
- function GTK_IS_INVISIBLE_CLASS(klass:pointer):boolean;
- function gtk_invisible_get_type:TGtkType;cdecl;external gtkdll name 'gtk_invisible_get_type';
- function gtk_invisible_new:PGtkWidget;cdecl;external gtkdll name 'gtk_invisible_new';
- {$endif read_interface}
- {****************************************************************************
- Implementation
- ****************************************************************************}
- {$ifdef read_implementation}
- function GTK_IS_INVISIBLE(obj:pointer):boolean;
- begin
- GTK_IS_INVISIBLE:=(obj<>nil) and GTK_IS_INVISIBLE_CLASS(PGtkTypeObject(obj)^.klass);
- end;
- function GTK_IS_INVISIBLE_CLASS(klass:pointer):boolean;
- begin
- GTK_IS_INVISIBLE_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GTK_INVISIBLE_TYPE);
- end;
- {$endif read_implementation}