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