Source position: shape.pp line 102
procedure XShapeCombineShape(
display: PDisplay;
dest: TWindow;
dest_kind: cint;
x_off: cint;
y_off: cint;
src: TWindow;
src_kind: cint;
op: cint
);