/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

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