PRO save_im_ev, event

COMMON info, selectfile, save, done, filename, dat, hed

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)
    ua_fits_write,filename,dat,hed
  END  

ENDCASE
END

pro sdw_saveim, data, head 

COMMON info, selectfile, save, done, filename, dat, hed

IF(XRegistered("sdw_saveim")) THEN RETURN

  dat = data
  hed = head

        
	title = 'Save edited image'
        savebase =  WIDGET_BASE(TITLE = TITLE, /COLUMN)
        widebase =      WIDGET_BASE(savebase, /ROW)
        label =         WIDGET_LABEL(widebase,VALUE='Output file name:') 
        selectfile =     WIDGET_TEXT(widebase, VALUE = ' ', XS = 30, /EDIT)
        rowbase =       WIDGET_BASE(savebase, /ROW)
	save =          WIDGET_BUTTON(rowbase, VALUE = " Save ")
        done =          WIDGET_BUTTON(rowbase, VALUE = " Done ")


        WIDGET_CONTROL, savebase, /REALIZE

        XManager, "psf_saveim", savebase, EVENT_HANDLER = "save_im_ev", $
                GROUP_LEADER = GROUP, /MODAL
END