Source position: ctglut.pp line 468
type TglutJoystickFunc = procedure(
f: TGlut1UInt3IntCallback;
pollInterval: Integer
);