TGtkToolItemClass

type TGtkToolItemClass = record

  parent_class: TGtkBinClass;

  create_menu_proxy: function(

  tool_item: PGtkToolItem

):gboolean;

  toolbar_reconfigured: procedure(

  tool_item: PGtkToolItem

);

  set_tooltip: function(

  tool_item: PGtkToolItem;

  tooltips: PGtkTooltips;

  tip_text: Pgchar;

  tip_private: Pgchar

):gboolean;

  _gtk_reserved1: procedure;

  _gtk_reserved2: procedure;

  _gtk_reserved3: procedure;

  _gtk_reserved4: procedure;

end;