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