Source position: shape.pp line 143
procedure XShapeSelectInput(
display: PDisplay;
window: TWindow;
mask: culong
);