Source position: intuition.pas line 3555
procedure GadgetMouse(
Gadget: PGadget;
GInfo: PGadgetInfo;
var MousePoint: SmallInt
);