;+
;
;   NAME :
;          XSELECT_SUMER   
;   PURPOSE:
;          Widget-based Search for SUMER fits files
;   CALLING SEQUENCE: 
;          XSELECT_SUMER, filelist, catalog
;   INPUTS :
;          None
;   OUTPUTS :
;          FILELIST :  an array of file names
;          CATALOG  :  an array of strings for basic information
;         
;   KEYWORDS :
;          None
;   COMMON BLOCKS
;          XSELECT_SUMER_BLOCK
;   RESTRICTICTION :
;          SUMER log files should exist in the specified directory
;   REQUIRED SUNBROUTINES:
;          XSEL_MAIN_EVENT       XSEL_PD_EVENT
;   MODIFICATION HISTORY
;          March 1997     Jongchul Chae                 
;- 

PRO XSELECT_SUMER,filelist, cat
;
@xselect_sumer_block


widget_control, /hourglass
files=''
catalog=''
fits_kind='SUM_'
year = '96'
month= '10'
day1 = 1
day2 = 31
time1 = 0L
time2 = 240000L
xcen1 = -2000.0
xcen2 =  2000.0
ycen1 = -2000.0
ycen2 =  2000.0
detector ='B'
wl1 = 300.
wl2 =1700.
object=''
pop=''
seq_type=''
studyname=''
scientist=''
condition2=1
done=0
logdir=getenv('slog')
  IF N_ELEMENTS(Group) EQ 0 THEN GROUP=0

  junk   = { CW_PDMENU_S, flags:0, name:'' }

  MAIN13 = WIDGET_BASE(GROUP_LEADER=Group, $
      ROW=30, $
      MAP=1, $
      TITLE='SUMER  FITS File Selection(v1.5,  made by J. Chae)', $
      UVALUE='MAIN13')

  MenuDesc5607 = [ $
      { CW_PDMENU_S,       0, 'Done' }, $ ;        0
      { CW_PDMENU_S,       0, 'Submit' }, $ ;        1
      { CW_PDMENU_S,       0, 'Make Catalog'}, $   
      { CW_PDMENU_S,       1, 'FITS Header'}, $
      { CW_PDMENU_S,         0, 'Primary'}, $
      { CW_PDMENU_S,         2, 'First Binary'},$  
      { CW_PDMENU_S,        2,  'Display Data'} $       
     ]


  PDMENU4 = CW_PDMENU( MAIN13, MenuDesc5607, /RETURN_FULL_NAME, $
      UVALUE='PDMENU4')
  TEXT10 = widget_text(main13, xsize=60, ysize=3, $
             value = ' Specify the selection criteria in bellow. ')
  list20 =widget_list( main13, xsize=40, ysize=5, uvalue='LIST20')

 logdir_field = cw_field(main13, value=logdir, row=1, string=1, xsize=40,$
       all_events=1,  frame=1, title='Directory of log files', uvalue='LOGDIR')

 LABEL_RE = WIDGET_LABEL( MAIN13, $
      UVALUE='LABEL_RE', $
      VALUE=' Requisite Criteria ', frame=4)

  LABEL59 = WIDGET_LABEL( MAIN13, $
      UVALUE='LABEL59', $
      VALUE='1. Kind of SUMER FITS Files')

  Btns5610 = [ $
    'Standard', $
    'Flat Field', $
    'History Memory', $
    'Rear Slit Camera', $
    'Full Sun' ]
  BGROUP56 = CW_BGROUP( MAIN13, Btns5610, $
      COLUMN=4, $
      EXCLUSIVE=1, $
      UVALUE='BGROUP56', $
      set_value=0)

  LABEL49 = WIDGET_LABEL( MAIN13, $
      UVALUE='LABEL49', $
      VALUE='2. Observing Date and Time')

  BASE146 = WIDGET_BASE(MAIN13, $
      row=2, $
      MAP=1, $
      UVALUE='BASE146')

  
  FIELD144 = CW_FIELD( BASE146,VALUE=year, $
      ROW=1, $
      string=1, $
      ALL_EVENTS=1, $
      FRAME=0, $
      TITLE='Year (yy) : ', $
      UVALUE='FIELD144', $
      XSIZE=2)

  
  FIELD145 = CW_FIELD( BASE146,VALUE=month, $
      ROW=1, $
      string=1, $
      ALL_EVENTS=1, $
      FRAME=0, $
      TITLE='Month (mm) :  ', $
      UVALUE='FIELD145', $
      XSIZE=2)


  BASE20 = WIDGET_BASE(BASE146, $
     COLUMN=2, $
      MAP=1, $
      TITLE='Day', $
     UVALUE='BASE20')

  FieldVal5619 = [ '01'] ;$
;    string(day1, format='(i2)') ]
  FIELD116 = CW_FIELD( BASE20,VALUE=FieldVal5619, $
      ROW=1, $
      LONG=1, $
      ALL_EVENTS=1, $
      FRAME=0, $
      TITLE='Day (dd) :  From', $
      UVALUE='FIELD116', $
      XSIZE=2)

  FieldVal5621 = ['31']; $
;    string(day2, format='(i2)')]
  FIELD25 = CW_FIELD( BASE20,VALUE=FieldVal5621, $
      ROW=1, $
      LONG=1, $
      ALL_EVENTS=1, $
      FRAME=0, $
      TITLE='To ', $
      UVALUE='FIELD25', $
      XSIZE=2)


  BASE60 = WIDGET_BASE(BASE146, $
      COLUMN=2, $
      MAP=1, $
      TITLE='Time', $
      UVALUE='BASE60')

  FieldVal5624 = ['000000'] ; $
;    string(time1,format='(i6)') ]
  FIELD61 = CW_FIELD( BASE60,VALUE=FieldVal5624, $
      ROW=1, $
      LONG=1, $
      ALL_EVENTS=1, $
      FRAME=0, $
      TITLE='Time (hhmmss) :  From', $
      UVALUE='FIELD61', $
      XSIZE=6)

  FieldVal5626 = ['240000'] ; $
;    string(time2, format='(i6)') ]
  FIELD67 = CW_FIELD( BASE60,VALUE=FieldVal5626, $
      ROW=1, $
      LONG=1, $
      ALL_EVENTS=1, $
      FRAME=0, $
      TITLE='To', $
      UVALUE='FIELD67', $
      XSIZE=6)


  LABEL69 = WIDGET_LABEL( MAIN13, $
      UVALUE='LABEL69', $
      VALUE='3.  Center of Observation Field of View (arcseconds)')

  BASE71 = WIDGET_BASE(MAIN13, $
      row=1, $
      MAP=1, $
      UVALUE='BASE71')

  FieldVal5630 = [ $
    string(xcen1, format='(f7.1)') ]
  FIELD72 = CW_FIELD( BASE71,VALUE=FieldVal5630, $
      ROW=1, $
      FLOAT=1, $
      ALL_EVENTS=1, $
      TITLE='X  : From', $
      UVALUE='FIELD72', $
      xsize=7)

  FieldVal5632 = [ $
      string(xcen2, format='(f7.1)')]
  FIELD73 = CW_FIELD( BASE71,VALUE=FieldVal5632, $
      ROW=1, $
      FLOAT=1, $
      ALL_EVENTS=1, $
      TITLE='To', $
      UVALUE='FIELD73', $
      xsize=7)


 ; BASE76 = WIDGET_BASE(MAIN13, $
  ;    COLUMN=2, $
    ;  MAP=1, $
      ;UVALUE='BASE76')

  FieldVal5635 = [ $
    string(ycen1, format='(f7.1)') ]
  FIELD77 = CW_FIELD( BASE71,VALUE=FieldVal5635, $
      ROW=1, $
      FLOAT=1, $
      ALL_EVENTS=1, $
      TITLE='Y : From', $
      UVALUE='FIELD77', $
      xsize=7)

  FieldVal5637 = [ $
    string(ycen2, format='(f7.1)') ]
  FIELD78 = CW_FIELD( BASE71,VALUE=FieldVal5637, $
      ROW=1, $
      FLOAT=1, $
      ALL_EVENTS=1, $
      TITLE='To', $
      UVALUE='FIELD78', $
      xsize=7)


 

  BASE85 = WIDGET_BASE(MAIN13, $
      COLUMN=3, $
      MAP=1, $
      UVALUE='BASE85')

  FieldVal5641 = [ $
    string(wl1, format='(f8.1)') ]
  FIELD87 = CW_FIELD( BASE85,VALUE=FieldVal5641, $
      ROW=1, $
      FLOAT=1, $
      ALL_EVENTS=1, $
      TITLE='4. Wavelength  (Angstrom)  :  From ', $
      UVALUE='FIELD87', $
       xsize=8)

  FieldVal5643 = [ $
      string(wl2, format='(f8.1)') ]
  FIELD88 = CW_FIELD( BASE85,VALUE=FieldVal5643, $
      ROW=1, $
      FLOAT=1, $
      ALL_EVENTS=1, $
      TITLE='To', $
      UVALUE='FIELD88', $
      xsize=8)
 slit=''


field_detector = cw_field(main13, value=detector, $
      row=1, string=1, all_events=1, $
        title='5. Detector(A/B) ? ', uvalue='FIELD_DETECTOR', xsize=1)

 BASE_EXP = WIDGET_BASE(MAIN13, $
      COLUMN=3, $
      MAP=1, $
      UVALUE='BASE_EXP')
 exposure1=0.
  FieldVal = [ $
    string(exposure1, format='(f8.1)') ]
  FIELD_EXP1 = CW_FIELD( BASE_EXP,VALUE=FieldVal, $
      ROW=1, $
      FLOAT=1, $
      ALL_EVENTS=1, $
      TITLE='6.  Exposure Time  (seconds)  :  From ', $
      UVALUE='FIELD_EXP1', $
       xsize=8)
  exposure2=1.e5
  FieldVal = [ $
      string(exposure2, format='(f8.1)') ]
  FIELD_EXP2= CW_FIELD( BASE_EXP,VALUE=FieldVal, $
      ROW=1, $
      FLOAT=1, $
      ALL_EVENTS=1, $
      TITLE='To', $
      UVALUE='FIELD_EXP2', $
      xsize=8)   



  
 LABEL_OP = WIDGET_LABEL( MAIN13, $
      UVALUE='LABEL_OP', $
      VALUE='Optional Criteria : case-insensitive ', $
             frame=4)
   field_slit = cw_field(main13,  value=slit ,  $
       row=1,  string=1, all_events=1, $
      title='-  Slit  Number ? ', uvalue='FIELD_SLIT', xsize=1)
  FIELD_scientist =cw_field(main13, title='- Key-string in Scientist  ? ', $
       row=1,  $
       value=scientist, $
       string=1, $
       all_events=1, $
       uvalue='FIELD_SCIENTIST')
FIELD_sn =cw_field(main13, title='- Key-string in Study Name  ? ', $
       row=1,  $
       value=studyname, $
       string=1, $
       all_events=1, $
       uvalue='FIELD_SN')

  FIELD90 =cw_field(main13, title='- Key-string in Science Objective  ? ', $
       row=1,  $
       value=object, $
       string=1, $
       all_events=1, $
       uvalue='FIELD90')
 FIELD92 = cw_field(main13, title='- Key-string in Observing Sequence ? ', $
        row=1,$
        value=seq_type, $
        string=1, $
        all_events=1, $
        uvalue='FIELD92', xsize=10)  
  FIELD91 = cw_field(main13, title='- POPUDP  Number  ? ', $
        row=1,$
        value=pop, $
        string=1, $
        all_events=1, $
        uvalue='FIELD91', xsize=2)
 
 


  WIDGET_CONTROL, MAIN13, /REALIZE

  XMANAGER , 'XSEL_MAIN', MAIN13
  filelist=files
  cat=catalog
END