/packages/gtk1/src/gtk/gtkhruler.pp

https://github.com/slibre/freepascal · Puppet · 53 lines · 37 code · 16 blank · 0 comment · 0 complexity · 7a245844ad03caee75d01db3da2f8977 MD5 · raw file

  1. {
  2. }
  3. {****************************************************************************
  4. Interface
  5. ****************************************************************************}
  6. {$ifdef read_interface}
  7. type
  8. PGtkHRuler = ^TGtkHRuler;
  9. TGtkHRuler = record
  10. ruler : TGtkRuler;
  11. end;
  12. PGtkHRulerClass = ^TGtkHRulerClass;
  13. TGtkHRulerClass = record
  14. parent_class : TGtkRulerClass;
  15. end;
  16. Type
  17. GTK_HRULER=PGtkHRuler;
  18. GTK_HRULER_CLASS=PGtkHRulerClass;
  19. function GTK_HRULER_TYPE:TGtkType;cdecl;external gtkdll name 'gtk_hruler_get_type';
  20. function GTK_IS_HRULER(obj:pointer):boolean;
  21. function GTK_IS_HRULER_CLASS(klass:pointer):boolean;
  22. function gtk_hruler_get_type:TGtkType;cdecl;external gtkdll name 'gtk_hruler_get_type';
  23. function gtk_hruler_new:PGtkWidget;cdecl;external gtkdll name 'gtk_hruler_new';
  24. {$endif read_interface}
  25. {****************************************************************************
  26. Implementation
  27. ****************************************************************************}
  28. {$ifdef read_implementation}
  29. function GTK_IS_HRULER(obj:pointer):boolean;
  30. begin
  31. GTK_IS_HRULER:=(obj<>nil) and GTK_IS_HRULER_CLASS(PGtkTypeObject(obj)^.klass);
  32. end;
  33. function GTK_IS_HRULER_CLASS(klass:pointer):boolean;
  34. begin
  35. GTK_IS_HRULER_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GTK_HRULER_TYPE);
  36. end;
  37. {$endif read_implementation}