/packages/gtk2/src/gtk+/gtk/gtkseparator.inc

https://github.com/slibre/freepascal · Pascal · 70 lines · 39 code · 18 blank · 13 comment · 0 complexity · e36d45b1313ee2bde7030ccff122e603 MD5 · raw file

  1. // included by gtk2.pas
  2. {$IFDEF read_forward_definitions}
  3. {$ENDIF read_forward_definitions}
  4. //------------------------------------------------------------------------------
  5. {$IFDEF read_interface_types}
  6. PGtkSeparator = ^TGtkSeparator;
  7. TGtkSeparator = record
  8. widget : TGtkWidget;
  9. end;
  10. PGtkSeparatorClass = ^TGtkSeparatorClass;
  11. TGtkSeparatorClass = record
  12. parent_class : TGtkWidgetClass;
  13. end;
  14. {$ENDIF read_interface_types}
  15. //------------------------------------------------------------------------------
  16. {$IFDEF read_interface_rest}
  17. function GTK_TYPE_SEPARATOR : GType;
  18. function GTK_SEPARATOR(obj: pointer) : PGtkSeparator;
  19. function GTK_SEPARATOR_CLASS(klass: pointer) : PGtkSeparatorClass;
  20. function GTK_IS_SEPARATOR(obj: pointer) : boolean;
  21. function GTK_IS_SEPARATOR_CLASS(klass: pointer) : boolean;
  22. function GTK_SEPARATOR_GET_CLASS(obj: pointer) : PGtkSeparatorClass;
  23. function gtk_separator_get_type:TGtkType; cdecl; external gtklib;
  24. {$ENDIF read_interface_rest}
  25. //------------------------------------------------------------------------------
  26. {$IFDEF read_implementation}
  27. function GTK_TYPE_SEPARATOR : GType;
  28. begin
  29. GTK_TYPE_SEPARATOR:=gtk_separator_get_type;
  30. end;
  31. function GTK_SEPARATOR(obj: pointer) : PGtkSeparator;
  32. begin
  33. GTK_SEPARATOR:=PGtkSeparator(GTK_CHECK_CAST(obj,GTK_TYPE_SEPARATOR));
  34. end;
  35. function GTK_SEPARATOR_CLASS(klass: pointer) : PGtkSeparatorClass;
  36. begin
  37. GTK_SEPARATOR_CLASS:=PGtkSeparatorClass(GTK_CHECK_CLASS_CAST(klass,GTK_TYPE_SEPARATOR));
  38. end;
  39. function GTK_IS_SEPARATOR(obj: pointer) : boolean;
  40. begin
  41. GTK_IS_SEPARATOR:=GTK_CHECK_TYPE(obj,GTK_TYPE_SEPARATOR);
  42. end;
  43. function GTK_IS_SEPARATOR_CLASS(klass: pointer) : boolean;
  44. begin
  45. GTK_IS_SEPARATOR_CLASS:=GTK_CHECK_CLASS_TYPE(klass,GTK_TYPE_SEPARATOR);
  46. end;
  47. function GTK_SEPARATOR_GET_CLASS(obj: pointer) : PGtkSeparatorClass;
  48. begin
  49. GTK_SEPARATOR_GET_CLASS:=PGtkSeparatorClass(GTK_CHECK_GET_CLASS(obj,GTK_TYPE_SEPARATOR));
  50. end;
  51. {$ENDIF read_implementation}
  52. // included by gtk2.pas