pro fit_restore,event

widget_control,event.top,get_uvalue=ff_ptr
ff = *ff_ptr
dat = ff.dat

name = dialog_pickfile()

restore,name

widget_control,dat.n,get_value=n
n = fix(n)

if n ge 1 then begin
  widget_control,ff.flux1,set_value=strcompress(srcparm[0].srcflux,/rem)
  widget_control,ff.fwhm1,set_value=strcompress(srcparm[0].srcfwhm,/rem)
  widget_control,ff.srcx1,set_value=strcompress(srcparm[0].srcx,/rem)
  widget_control,ff.srcy1,set_value=strcompress(srcparm[0].srcy,/rem)
  widget_control,ff.eccen1,set_value=strcompress(srcparm[0].eccen,/rem)
  widget_control,ff.srcpa1,set_value=strcompress(srcparm[0].srcpa,/rem)
  widget_control,ff.loop_angle1,set_value=strcompress(srcparm[0].loop_angle,$
    /rem)
  if n ge 2 then begin
    widget_control,ff.flux2,set_value=strcompress(srcparm[1].srcflux,/rem)
    widget_control,ff.fwhm2,set_value=strcompress(srcparm[1].srcfwhm,/rem)
    widget_control,ff.srcx2,set_value=strcompress(srcparm[1].srcx,/rem)
    widget_control,ff.srcy2,set_value=strcompress(srcparm[1].srcy,/rem)
    widget_control,ff.eccen2,set_value=strcompress(srcparm[1].eccen,/rem)
    widget_control,ff.srcpa2,set_value=strcompress(srcparm[1].srcpa,/rem)
    widget_control,ff.loop_angle2,set_value=strcompress(srcparm[1].loop_angle,$
      /rem)
    if n eq 3 then begin
      widget_control,ff.flux3,set_value=strcompress(srcparm[2].srcflux,/rem)
      widget_control,ff.fwhm3,set_value=strcompress(srcparm[2].srcfwhm,/rem)
      widget_control,ff.srcx3,set_value=strcompress(srcparm[2].srcx,/rem)
      widget_control,ff.srcy3,set_value=strcompress(srcparm[2].srcy,/rem)
      widget_control,ff.eccen3,set_value=strcompress(srcparm[2].eccen,/rem)
      widget_control,ff.srcpa3,set_value=strcompress(srcparm[2].srcpa,/rem)
      widget_control,ff.loop_angle3,set_value=strcompress(srcparm[2].loop_angle,$
        /rem)
    endif
  endif
endif

end