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