Source position: intuition.pas line 4201
procedure GadgetMouse(
gadget: pGadget;
gInfo: pGadgetInfo;
mousePoint: psmallint
);