gtkaction.inc 4.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115
  1. // included by gtk2.pas
  2. {$IFDEF read_forward_definitions}
  3. {$ENDIF read_forward_definitions}
  4. {$IFDEF read_interface_types}
  5. type
  6. PGtkActionPrivate = pointer;
  7. PGtkAction = ^TGtkAction;
  8. TGtkAction = record
  9. _object : TGObject;
  10. private_data : PGtkActionPrivate;
  11. end;
  12. { activation signal }
  13. { widget creation routines (not signals) }
  14. { Padding for future expansion }
  15. PGtkActionClass = ^TGtkActionClass;
  16. TGtkActionClass = record
  17. parent_class : TGObjectClass;
  18. activate : procedure (action:PGtkAction);cdecl;
  19. menu_item_type : GType;
  20. toolbar_item_type : GType;
  21. create_menu_item : function (action:PGtkAction):PGtkWidget;
  22. create_tool_item : function (action:PGtkAction):PGtkWidget;
  23. connect_proxy : procedure (action:PGtkAction; proxy:PGtkWidget);
  24. disconnect_proxy : procedure (action:PGtkAction; proxy:PGtkWidget);
  25. _gtk_reserved1 : procedure ;
  26. _gtk_reserved2 : procedure ;
  27. _gtk_reserved3 : procedure ;
  28. _gtk_reserved4 : procedure ;
  29. end;
  30. {$ENDIF read_interface_types}
  31. {$IFDEF read_interface_rest}
  32. function GTK_TYPE_ACTION : GType;
  33. function GTK_ACTION(obj : pointer) : PGtkAction;
  34. function GTK_ACTION_CLASS(klass : pointer) : PGtkActionClass;
  35. function GTK_IS_ACTION(obj : pointer) : gboolean;
  36. function GTK_IS_ACTION_CLASS(klass : pointer) : gboolean;
  37. function GTK_ACTION_GET_CLASS(obj : pointer) : PGtkActionClass;
  38. function gtk_action_get_type:GType;cdecl;external gtklib name 'gtk_action_get_type';
  39. function gtk_action_new(name:Pgchar; szLabel:Pgchar; tooltip:Pgchar; stock_id:Pgchar):PGtkAction;cdecl;external gtklib name 'gtk_action_new';
  40. function gtk_action_get_name(action:PGtkAction):Pgchar;cdecl;external gtklib name 'gtk_action_get_name';
  41. function gtk_action_is_sensitive(action:PGtkAction):gboolean;cdecl;external gtklib name 'gtk_action_is_sensitive';
  42. function gtk_action_get_sensitive(action:PGtkAction):gboolean;cdecl;external gtklib name 'gtk_action_get_sensitive';
  43. function gtk_action_is_visible(action:PGtkAction):gboolean;cdecl;external gtklib name 'gtk_action_is_visible';
  44. function gtk_action_get_visible(action:PGtkAction):gboolean;cdecl;external gtklib name 'gtk_action_get_visible';
  45. procedure gtk_action_activate(action:PGtkAction);cdecl;external gtklib name 'gtk_action_activate';
  46. function gtk_action_create_icon(action:PGtkAction; icon_size:TGtkIconSize):PGtkWidget;cdecl;external gtklib name 'gtk_action_create_icon';
  47. function gtk_action_create_menu_item(action:PGtkAction):PGtkWidget;cdecl;external gtklib name 'gtk_action_create_menu_item';
  48. function gtk_action_create_tool_item(action:PGtkAction):PGtkWidget;cdecl;external gtklib name 'gtk_action_create_tool_item';
  49. procedure gtk_action_connect_proxy(action:PGtkAction; proxy:PGtkWidget);cdecl;external gtklib name 'gtk_action_connect_proxy';
  50. procedure gtk_action_disconnect_proxy(action:PGtkAction; proxy:PGtkWidget);cdecl;external gtklib name 'gtk_action_disconnect_proxy';
  51. function gtk_action_get_proxies(action:PGtkAction):PGSList;cdecl;external gtklib name 'gtk_action_get_proxies';
  52. procedure gtk_action_connect_accelerator(action:PGtkAction);cdecl;external gtklib name 'gtk_action_connect_accelerator';
  53. procedure gtk_action_disconnect_accelerator(action:PGtkAction);cdecl;external gtklib name 'gtk_action_disconnect_accelerator';
  54. { protected ... for use by child actions }
  55. procedure gtk_action_block_activate_from(action:PGtkAction; proxy:PGtkWidget);cdecl;external gtklib name 'gtk_action_block_activate_from';
  56. procedure gtk_action_unblock_activate_from(action:PGtkAction; proxy:PGtkWidget);cdecl;external gtklib name 'gtk_action_unblock_activate_from';
  57. procedure _gtk_action_emit_activate(action:PGtkAction);cdecl;external gtklib name '_gtk_action_emit_activate';
  58. { protected ... for use by action groups }
  59. procedure gtk_action_set_accel_path(action:PGtkAction; accel_path:Pgchar);cdecl;external gtklib name 'gtk_action_set_accel_path';
  60. procedure gtk_action_set_accel_group(action:PGtkAction; accel_group:PGtkAccelGroup);cdecl;external gtklib name 'gtk_action_set_accel_group';
  61. {$endif read_interface_rest}
  62. {$ifdef read_implementation}
  63. function GTK_TYPE_ACTION : GType;
  64. begin
  65. GTK_TYPE_ACTION:=gtk_action_get_type;
  66. end;
  67. function GTK_ACTION(obj : pointer) : PGtkAction;
  68. begin
  69. GTK_ACTION:=PGtkAction(G_TYPE_CHECK_INSTANCE_CAST(obj,GTK_TYPE_ACTION));
  70. end;
  71. function GTK_ACTION_CLASS(klass : pointer) : PGtkActionClass;
  72. begin
  73. GTK_ACTION_CLASS:=G_TYPE_CHECK_CLASS_CAST(klass,GTK_TYPE_ACTION);
  74. end;
  75. function GTK_IS_ACTION(obj : pointer) : gboolean;
  76. begin
  77. GTK_IS_ACTION:=G_TYPE_CHECK_INSTANCE_TYPE(obj,GTK_TYPE_ACTION);
  78. end;
  79. function GTK_IS_ACTION_CLASS(klass : pointer) : gboolean;
  80. begin
  81. GTK_IS_ACTION_CLASS:=G_TYPE_CHECK_CLASS_TYPE(klass,GTK_TYPE_ACTION);
  82. end;
  83. function GTK_ACTION_GET_CLASS(obj : pointer) : PGtkActionClass;
  84. begin
  85. GTK_ACTION_GET_CLASS:=PGtkActionClass(G_TYPE_INSTANCE_GET_CLASS(obj,GTK_TYPE_ACTION));
  86. end;
  87. {$endif read_implementation}