pro save_roi_ev, event
Common spreadsaveinfo, selectfile, save, done, filename

  Widget_Control, event.top, Get_UValue=info

  case event.id of

    done: Widget_Control, event.top, /Destroy

    selectfile: Widget_Control, selectfile, Get_Value= filename 

    save: begin
      Widget_Control, selectfile, Get_Value = filename
      filename = strcompress(filename(0), /remove_all)
      dat = info.data
      dat = reverse(dat,2)
      hed = info.header
      x1 = info.x1
      y1 = info.y1
      xra = 0.0
      xdec = 0.0
      sdw_xyad, hed, x1, y1, xra, xdec
      if (xra ne 0.0 or xdec ne 0.0) then begin
	sxaddpar,hed,'CRPIX1',1
	sxaddpar,hed,'CRPIX2',1
	sxaddpar,hed,'CRVAL1',xra
	sxaddpar,hed,'CRVAL2',xdec
      endif
      ua_fits_write,filename,dat,hed
      end  

  endcase
end


pro sdw_spreadsave, event
Common spreadsaveinfo, selectfile, save, done, filename

  if(XRegistered("sdw_spreadsave")) then return
  widget_control, event.top, get_uvalue = info

  title      = 'Save region of interest image'
  savebase   = Widget_Base  (Title = title, /Column, Group_Leader=event.top, $
			     /Modal)
  widebase   = Widget_Base  (savebase, /Row)
  label      = Widget_Label (widebase, Value='Output file name:') 
  selectfile = Widget_Text  (widebase, Value = ' ', XSize = 30, /Edit)
  rowbase    = Widget_Base  (savebase, /Row)
  save       = Widget_Button(rowbase, Value = " Save ")
  done       = Widget_Button(rowbase, Value = " Done ")


  Widget_Control, savebase, set_uvalue = info
  Widget_Control, savebase, /Realize

  XManager, "psf_spreadsave", savebase, Event_Handler = "save_roi_ev"
          
end