Source position: gtkexpander.inc line 20
type TGtkExpanderClass = record
parent_class: TGtkBinClass;
activate: procedure(
expander: PGtkExpander
);
end;