Source position: xforms.pp line 1801
procedure fl_canvas_yield_to_shortcut(
p1: PFL_OBJECT;
p2: LongInt
);