Source position: xkb.pp line 1824
procedure XkbSetShapeDoodadShape(
g: PXkbGeometryPtr;
d: PXkbShapeDoodadPtr;
s: PXkbShapePtr
);