Source position: gtkitem.pp line 17
type TGtkItemClass = record
parent_class: TGtkBinClass;
select: procedure(
item: PGtkItem
);
deselect: procedure(
toggle: procedure(
end;