Source position: xkb.pp line 1968
function XkbComputeShapeTop(
shape: PXkbShapePtr;
bounds: PXkbBoundsPtr
):Boolean;