Source position: xkb.pp line 1843
procedure XkbSetKeyShape(
g: PXkbGeometryPtr;
k: PXkbKeyPtr;
s: PXkbShapeDoodadPtr
);