Source position: xforms.pp line 2472
procedure fl_setpup_shortcut(
p1: LongInt;
p2: LongInt;
p3: pchar
);