Source position: gtkpaned.pp line 52
procedure set_child2_shrink(
var a: TGtkPaned;
__child2_shrink: guint
);