gtktoggleaction.inc 3.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081
  1. // included by gtk2.pas
  2. {$IFDEF read_forward_definitions}
  3. {$ENDIF read_forward_definitions}
  4. {$IFDEF read_interface_types}
  5. type
  6. PGtkToggleActionPrivate = pointer;
  7. PGtkToggleAction = ^TGtkToggleAction;
  8. TGtkToggleAction = record
  9. parent : TGtkAction;
  10. private_data : PGtkToggleActionPrivate;
  11. end;
  12. { Padding for future expansion }
  13. PGtkToggleActionClass = ^TGtkToggleActionClass;
  14. TGtkToggleActionClass = record
  15. parent_class : TGtkActionClass;
  16. toggled : procedure (action:PGtkToggleAction);cdecl;
  17. _gtk_reserved1 : procedure ;
  18. _gtk_reserved2 : procedure ;
  19. _gtk_reserved3 : procedure ;
  20. _gtk_reserved4 : procedure ;
  21. end;
  22. {$ENDIF read_interface_types}
  23. {$IFDEF read_interface_rest}
  24. function GTK_TYPE_TOGGLE_ACTION : GType;
  25. function GTK_TOGGLE_ACTION(obj : pointer) : PGtkToggleAction;
  26. function GTK_TOGGLE_ACTION_CLASS(klass : pointer) : PGtkToggleActionClass;
  27. function GTK_IS_TOGGLE_ACTION(obj : pointer) : gboolean;
  28. function GTK_IS_TOGGLE_ACTION_CLASS(klass : pointer) : gboolean;
  29. function GTK_TOGGLE_ACTION_GET_CLASS(obj : pointer) : PGtkToggleActionClass;
  30. function gtk_toggle_action_get_type:GType;cdecl;external gtklib name 'gtk_toggle_action_get_type';
  31. function gtk_toggle_action_new(name:Pgchar; szLabel:Pgchar; tooltip:Pgchar; stock_id:Pgchar):PGtkToggleAction;cdecl;external gtklib name 'gtk_toggle_action_new';
  32. procedure gtk_toggle_action_toggled(action:PGtkToggleAction);cdecl;external gtklib name 'gtk_toggle_action_toggled';
  33. procedure gtk_toggle_action_set_active(action:PGtkToggleAction; is_active:gboolean);cdecl;external gtklib name 'gtk_toggle_action_set_active';
  34. function gtk_toggle_action_get_active(action:PGtkToggleAction):gboolean;cdecl;external gtklib name 'gtk_toggle_action_get_active';
  35. procedure gtk_toggle_action_set_draw_as_radio(action:PGtkToggleAction; draw_as_radio:gboolean);cdecl;external gtklib name 'gtk_toggle_action_set_draw_as_radio';
  36. function gtk_toggle_action_get_draw_as_radio(action:PGtkToggleAction):gboolean;cdecl;external gtklib name 'gtk_toggle_action_get_draw_as_radio';
  37. {$ENDIF read_interface_rest}
  38. {$IFDEF read_implementation}
  39. function GTK_TYPE_TOGGLE_ACTION : GType;
  40. begin
  41. Result:=gtk_toggle_action_get_type;
  42. end;
  43. function GTK_TOGGLE_ACTION(obj : pointer) : PGtkToggleAction;
  44. begin
  45. Result:=PGtkToggleAction(G_TYPE_CHECK_INSTANCE_CAST(obj,GTK_TYPE_TOGGLE_ACTION));
  46. end;
  47. function GTK_TOGGLE_ACTION_CLASS(klass : pointer) : PGtkToggleActionClass;
  48. begin
  49. Result:=PGtkToggleActionClass(G_TYPE_CHECK_CLASS_CAST(klass,GTK_TYPE_TOGGLE_ACTION));
  50. end;
  51. function GTK_IS_TOGGLE_ACTION(obj : pointer) : gboolean;
  52. begin
  53. Result:=G_TYPE_CHECK_INSTANCE_TYPE(obj,GTK_TYPE_TOGGLE_ACTION);
  54. end;
  55. function GTK_IS_TOGGLE_ACTION_CLASS(klass : pointer) : gboolean;
  56. begin
  57. Result:=G_TYPE_CHECK_CLASS_TYPE(klass,GTK_TYPE_TOGGLE_ACTION);
  58. end;
  59. function GTK_TOGGLE_ACTION_GET_CLASS(obj : pointer) : PGtkToggleActionClass;
  60. begin
  61. Result:=PGtkToggleActionClass(G_TYPE_INSTANCE_GET_CLASS(obj,GTK_TYPE_TOGGLE_ACTION));
  62. end;
  63. {$ENDIF read_implementation}