gtktoolbutton.inc 4.0 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798
  1. {$IFDEF read_forward_definitions}
  2. {$ENDIF read_forward_definitions}
  3. {$IFDEF read_interface_types}
  4. type
  5. PGtkToolButtonPrivate = pointer;
  6. PGtkToolButton = ^TGtkToolButton;
  7. TGtkToolButton = record
  8. parent : TGtkToolItem;
  9. priv : PGtkToolButtonPrivate;
  10. end;
  11. { signal }
  12. { Padding for future expansion }
  13. PGtkToolButtonClass = ^TGtkToolButtonClass;
  14. TGtkToolButtonClass = record
  15. parent_class : TGtkToolItemClass;
  16. button_type : GType;
  17. clicked : procedure (tool_item:PGtkToolButton);cdecl;
  18. _gtk_reserved1 : procedure ;
  19. _gtk_reserved2 : procedure ;
  20. _gtk_reserved3 : procedure ;
  21. _gtk_reserved4 : procedure ;
  22. end;
  23. {$ENDIF read_interface_types}
  24. {$IFDEF read_interface_rest}
  25. function GTK_TYPE_TOOL_BUTTON : GType;
  26. function GTK_TOOL_BUTTON(obj : pointer) : PGtkToolButton;
  27. function GTK_TOOL_BUTTON_CLASS(klass : pointer) : PGtkToolButtonClass;
  28. function GTK_IS_TOOL_BUTTON(obj : pointer) : gboolean;
  29. function GTK_IS_TOOL_BUTTON_CLASS(klass : pointer) : gboolean;
  30. function GTK_TOOL_BUTTON_GET_CLASS(obj : pointer) : PGtkToolButtonClass;
  31. function gtk_tool_button_get_type:GType;cdecl;external gtklib name 'gtk_tool_button_get_type';
  32. function gtk_tool_button_new(icon_widget:PGtkWidget; szLabel:Pgchar):PGtkToolItem;cdecl;external gtklib name 'gtk_tool_button_new';
  33. function gtk_tool_button_new_from_stock(stock_id:Pgchar):PGtkToolItem;cdecl;external gtklib name 'gtk_tool_button_new_from_stock';
  34. procedure gtk_tool_button_set_label(button:PGtkToolButton; szLabel:Pgchar);cdecl;external gtklib name 'gtk_tool_button_set_label';
  35. function gtk_tool_button_get_label(button:PGtkToolButton):Pgchar;cdecl;external gtklib name 'gtk_tool_button_get_label';
  36. procedure gtk_tool_button_set_use_underline(button:PGtkToolButton; use_underline:gboolean);cdecl;external gtklib name 'gtk_tool_button_set_use_underline';
  37. function gtk_tool_button_get_use_underline(button:PGtkToolButton):gboolean;cdecl;external gtklib name 'gtk_tool_button_get_use_underline';
  38. procedure gtk_tool_button_set_stock_id(button:PGtkToolButton; stock_id:Pgchar);cdecl;external gtklib name 'gtk_tool_button_set_stock_id';
  39. function gtk_tool_button_get_stock_id(button:PGtkToolButton):Pgchar;cdecl;external gtklib name 'gtk_tool_button_get_stock_id';
  40. procedure gtk_tool_button_set_icon_widget(button:PGtkToolButton; icon_widget:PGtkWidget);cdecl;external gtklib name 'gtk_tool_button_set_icon_widget';
  41. function gtk_tool_button_get_icon_widget(button:PGtkToolButton):PGtkWidget;cdecl;external gtklib name 'gtk_tool_button_get_icon_widget';
  42. procedure gtk_tool_button_set_label_widget(button:PGtkToolButton; label_widget:PGtkWidget);cdecl;external gtklib name 'gtk_tool_button_set_label_widget';
  43. function gtk_tool_button_get_label_widget(button:PGtkToolButton):PGtkWidget;cdecl;external gtklib name 'gtk_tool_button_get_label_widget';
  44. { internal function }
  45. function _gtk_tool_button_get_button(button:PGtkToolButton):PGtkWidget;cdecl;external gtklib name '_gtk_tool_button_get_button';
  46. {$endif read_interface_rest}
  47. {$ifdef read_implementation}
  48. function GTK_TYPE_TOOL_BUTTON : GType;
  49. begin
  50. GTK_TYPE_TOOL_BUTTON:=gtk_tool_button_get_type;
  51. end;
  52. function GTK_TOOL_BUTTON(obj : pointer) : PGtkToolButton;
  53. begin
  54. GTK_TOOL_BUTTON:=PGtkToolButton(G_TYPE_CHECK_INSTANCE_CAST(obj,GTK_TYPE_TOOL_BUTTON));
  55. end;
  56. function GTK_TOOL_BUTTON_CLASS(klass : pointer) : PGtkToolButtonClass;
  57. begin
  58. GTK_TOOL_BUTTON_CLASS:=PGtkToolButtonClass(G_TYPE_CHECK_CLASS_CAST(klass,GTK_TYPE_TOOL_BUTTON));
  59. end;
  60. function GTK_IS_TOOL_BUTTON(obj : pointer) : gboolean;
  61. begin
  62. GTK_IS_TOOL_BUTTON:=G_TYPE_CHECK_INSTANCE_TYPE(obj,GTK_TYPE_TOOL_BUTTON);
  63. end;
  64. function GTK_IS_TOOL_BUTTON_CLASS(klass : pointer) : gboolean;
  65. begin
  66. GTK_IS_TOOL_BUTTON_CLASS:=G_TYPE_CHECK_CLASS_TYPE(klass,GTK_TYPE_TOOL_BUTTON);
  67. end;
  68. function GTK_TOOL_BUTTON_GET_CLASS(obj : pointer) : PGtkToolButtonClass;
  69. begin
  70. GTK_TOOL_BUTTON_GET_CLASS:=PGtkToolButtonClass(G_TYPE_INSTANCE_GET_CLASS(obj,GTK_TYPE_TOOL_BUTTON));
  71. end;
  72. {$endif read_implementation}