Source position: xforms.pp line 792
procedure fl_set_object_geometry(
p1: PFL_OBJECT;
p2: TFL_Coord;
p3: TFL_Coord;
p4: TFL_Coord;
p5: TFL_Coord
);