Source position: xkb.pp line 1799
procedure XkbSetShapeDoodadColor(
g: PXkbGeometryPtr;
d: PXkbShapeDoodadPtr;
c: PXkbColorPtr
);