Source position: xforms.pp line 1920
procedure fl_set_choice_item_shortcut(
p1: PFL_OBJECT;
p2: LongInt;
p3: pchar
);