Source position: gtkframe.inc line 20
type TGtkFrameClass = record
parent_class: TGtkBinClass;
compute_child_allocation: procedure(
frame: PGtkFrame;
allocation: PGtkAllocation
);
end;