Source position: fpgtk.pp line 1953
type TFPgtkMenuPosFunction = procedure(
menu: TFPgtkMenu;
var x: Integer;
var y: Integer;
data: pointer
) of object;