Source position: xforms.pp line 2483
procedure fl_setpup_default_color(
p1: TFL_COLOR;
p2: TFL_COLOR
);