Source position: gtkwindow.inc line 136
procedure set_allow_shrink(
var a: TGtkWindow;
__allow_shrink: guint
);