source: trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/selectfile.pro @ 114

;*********************************************************************
PRO selectfile_event, event
;
;
  compile_opt idl2, strictarrsubs
;
@common
;
  widget_control, event.id, get_uvalue = eventuvalue
; default definition of messenger when selectfile_event is called
; directly without calling xmanager
  widget_control, event.handler, get_uvalue = messenger
  *messenger = -1

  IF chkstru(eventuvalue, 'name') EQ 0 THEN return

  case eventuvalue.name of
; cancel button
    'Global Cancel':BEGIN 
      widget_control, event.handler, get_uvalue = messenger
      *messenger = -1
      widget_control, event.handler, /destroy
    END
; data file informations
    'datafilename':BEGIN
      widget_control, event.id, get_value = filename
      filename = isafile(filename = filename[0], iodir = iodir, /onlync, title = 'data file name')
      if size(filename, /type) NE 7 then BEGIN 
        widget_control, event.id, set_value = ''
        return
      ENDIF
      widget_control, event.id, set_value = filename
    END
    'browse datafilename':BEGIN
      filename = isafile(iodir = iodir, /onlync, title = 'data file name')
      if size(filename, /type) NE 7 then return
      widget_control, widget_info(event.handler, find_by_uname = 'datafilename') $
                      , set_value = filename
    END
; switch automatic/by and mesh definition buttons
    'gridload':BEGIN
      IF event.select EQ 1 THEN BEGIN 
        widget_control, widget_info(event.handler, find_by_uname = 'argtxt'), set_value = ''
        widget_control, widget_info(event.handler, find_by_uname = 'kwdtxt'), set_value = ''
        widget_control, widget_info(event.handler, find_by_uname = 'kwd base'), sensitive = 1
        CASE event.value OF
          'via initnetcdf':BEGIN
            widget_control, widget_info(event.handler, find_by_uname = 'meshload'), set_value = 'initncdf', editable = 0
            widget_control, widget_info(event.handler, find_by_uname = 'arg base'), sensitive = 0
            widget_control, widget_info(event.handler, find_by_uname = 'kwdlab'), set_value = 'initncdf keywords:'
          END
          'via perso':BEGIN
            widget_control, widget_info(event.handler, find_by_uname = 'meshload'), set_value = '', editable = 1
            widget_control, widget_info(event.handler, find_by_uname = 'arg base'), sensitive = 1
            widget_control, widget_info(event.handler, find_by_uname = 'kwdlab'), set_value = 'keywords of IDL procedure:'
          END 
        ENDCASE
      ENDIF 
    END
; name of the procedure or batch file
    'meshload':BEGIN
      widget_control, event.id, get_value = filename
      filename = (find(filename[0], /onlypro, /firstfound))[0]
      if filename EQ 'NOT FOUND' then begin
        widget_control, event.id, set_value = ''
        return
      endif 
      CASE protype(filename) OF
; this is a procedure
        'proc':BEGIN 
          widget_control, widget_info(event.handler, find_by_uname = 'arg base'), sensitive = 1
          widget_control, widget_info(event.handler, find_by_uname = 'kwd base'), sensitive = 1
          widget_control, widget_info(event.handler, find_by_uname = 'kwdlab'), set_value = file_basename(filename, '.pro')+' keywords:'
        END
; this is a function, this case is not accepted
        'func':BEGIN 
          widget_control, event.id, set_value = ''
          return
        END
; this is an IDL batch file
        'batch':BEGIN 
          widget_control, widget_info(event.handler, find_by_uname = 'arg base'), sensitive = 0
          widget_control, widget_info(event.handler, find_by_uname = 'kwd base'), sensitive = 0
          widget_control, widget_info(event.handler, find_by_uname = 'kwdlab'), set_value = 'no keywords:'
        END
      ENDCASE
      widget_control, widget_info(event.handler, find_by_uname = 'argtxt'), set_value = ''
      widget_control, widget_info(event.handler, find_by_uname = 'kwdtxt'), set_value = ''
      widget_control, event.id, set_value = file_basename(filename, '.pro')
    END
    'browse meshload':BEGIN
      filename = isafile(iodir = homedir, /onlypro, title = 'to load the grid file')
      if size(filename, /type) NE 7 then return
      meshload_id = widget_info(event.handler, find_by_uname = 'meshload')
      widget_control, meshload_id, set_value = filename
      selectfile_event, {ID:meshload_id, TOP:event.top, HANDLER:event.handler}
    END
; 'Lets Go!' button
    'Lets Go!':BEGIN
      widget_control, widget_info(event.handler, find_by_uname = 'datafilename') $
                      , get_value = datafilename
      datafilename = datafilename[0]
      IF datafilename EQ '' THEN return
      datafilename = isafile(filename = datafilename, iodir = iodir, /onlync, title = 'data file name')
      if size(datafilename, /type) NE 7 then BEGIN 
        widget_control, widget_info(event.handler, find_by_uname = 'datafilename') $
                        , set_value = ''
        return
      ENDIF 
      widget_control, widget_info(event.handler, find_by_uname = 'gridload') $
                      , get_value = gridload
      widget_control, widget_info(event.handler, find_by_uname = 'argtxt') $
                      , get_value = argtxt
      argtxt = strtrim(argtxt[0], 2)
      IF strpos(argtxt, ',') EQ 0 THEN argtxt = strmid(argtxt, 1)
      widget_control, widget_info(event.handler, find_by_uname = 'kwdtxt') $
                      , get_value = kwdtxt
      kwdtxt = strtrim(kwdtxt[0], 2)
      IF strpos(kwdtxt, ',') EQ 0 THEN kwdtxt = strmid(kwdtxt, 1)

      CASE gridload[0] OF
        'via perso':BEGIN
          meshload_id = widget_info(event.handler, find_by_uname = 'meshload')
          widget_control, meshload_id, get_value = meshload
          meshload = meshload[0]
          IF meshload EQ '' THEN return
          meshload = (find(meshload[0], /onlypro, /firstfound))[0]
          if meshload EQ 'NOT FOUND' then begin
            widget_control, meshload_id, set_value = ''
            return
          endif 
        END 
        'via initnetcdf':meshload = datafilename
      ENDCASE
      IF strlen(argtxt) NE 0 THEN meshload = meshload + ', ' + argtxt
      IF strlen(kwdtxt) NE 0 THEN meshload = meshload + ', ' + kwdtxt
      widget_control, event.handler, get_uvalue = messenger
      *messenger = create_struct('datafilename', datafilename, 'meshload', meshload)
      widget_control, event.handler, /destroy
    END

  endcase
  return
end
;*********************************************************************
FUNCTION selectfile, datafilename, idlfile, argspro, _extra = ex
;
;
  compile_opt idl2, strictarrsubs
;
@common
;------------------------------------------------------------
;------------------------------------------------------------
;
; pour recuperer les reponses possees lors de l''utilisation de ce
; widget on cree un pointeur que l''on place dans la uvalue. Comme ca
; une fois que le widget est detruit dans la procedure ...event.pro,
; la variable surlaquelle pointait le pointeur (contenue ds la uvalue
; du widget) n''est pas detruite est on peut recuperer le resultat!
;
  messenger = ptr_new(/allocate_heap)
  base = widget_base(/column, title = 'selectfile', /align_center, uvalue = messenger, _EXTRA = ex)
; cancel button
  dummyid = widget_button(base, value = 'Cancel', uvalue = {name:'Global Cancel'})
; data file informations
  basea = widget_base(base, /row, /align_center)
  dummyid = widget_label(basea, value = 'Data file name: ')
  database = widget_text(basea, value = '', uvalue = {name:'datafilename'} $
                        , uname = 'datafilename', xsize = 45, /EDITABLE)
  dummyid = widget_button(basea, value = 'Browse', uvalue = {name:'browse datafilename'})
; switch automatic/by and mesh definition buttons
  baseb = widget_base(base, /row, /align_center)
  gdldid = cw_bgroup(baseb, ['automatic grid construction with initncdf.pro' $
                              , 'grid construction with other IDL batch or procedure'] $
                      , /exclusive, set_value = 0, uvalue = {name:'gridload'} $
                      , uname = 'gridload', button_uvalue = ['via initnetcdf', 'via perso'])
; name of the procedure or batch file
  basec = widget_base(base, /row, /align_center, uname = 'pro base')
  dummyid = widget_label(basec, value = 'IDL batch file of procedure')
  basemeshload = widget_text(basec, value = 'initncdf', uvalue = {name:'meshload'} $
                        , uname = 'meshload', xsize = 45, editable = 0)
  dummyid = widget_button(basec, value = 'Browse', uvalue = {name:'browse meshload'})
; arguments informations
  based = widget_base(base, /row, /align_center, uname = 'arg base', sensitive = 0)
  dummyid = widget_label(based, value = 'procedure arguments')
  agrbase = widget_text(based, value = '', uvalue = {name:'argtxt'} $
                        , uname = 'argtxt', xsize = 45, /EDITABLE)
; keyword informations
  basee = widget_base(base, /row, /align_center, uname = 'kwd base')
  dummyid = widget_label(basee, uname = 'kwdlab', value = '     keywords of initncdf:')
  dummyid = widget_text(basee, value = '' $
                        , uvalue = {name:'kwdtxt'}, uname = 'kwdtxt', xsize = 45, /EDITABLE)
; 'Lets Go!' button
  basego = widget_button(base, value = 'Lets Go!', uvalue = {name:'Lets Go!'})

;------------------------------------------------------------
  IF n_elements(datafilename) NE 0 THEN BEGIN 
    widget_control, database, set_value = datafilename
    selectfile_event, {ID:database, TOP:base, HANDLER:base}
  ENDIF 
  IF n_elements(idlfile) NE 0 THEN BEGIN 
    widget_control, basemeshload, set_value = idlfile
    selectfile_event, {ID:basemeshload, TOP:base, HANDLER:base}
    widget_control, basemeshload, get_value = idlfile2
    IF idlfile2[0] NE '' THEN widget_control, gdldid, set_value = 1
  ENDIF 
  IF n_elements(argspro) NE 0 THEN widget_control, argbase, set_value = argspro
;------------------------------------------------------------
  IF n_elements(datafilename) EQ 0 THEN BEGIN 
    widget_control, base, /realize
    xmanager, 'selectfile', base, event_handler = 'selectfile_event', no_block = 0
  ENDIF ELSE selectfile_event, {ID:basego, TOP:base, HANDLER:base}
;------------------------------------------------------------
; get back the information from selectfile_event
  res = *messenger
  ptr_free, messenger
  if size(res, /type) NE 8 then return, -1

  loadgrid, res.meshload, _extra = ex

  ccreadparameters = {funclec_name:'read_ncdf' $
          , jpidta:jpidta, jpjdta:jpjdta, jpkdta:jpkdta $
          , ixmindta:ixmindta, ixmaxdta:ixmaxdta $
          , iymindta:iymindta, iymaxdta:iymaxdta $
          , izmindta:izmindta, izmaxdta:izmaxdta}

  res3 = scanfile(res.datafilename, iodir = iodir, _extra = ex)
  if size(res3, /type) NE 8 then return,  -1

  return, {fileparameters:res3, readparameters:ccreadparameters, meshparameters:ccmeshparameters} 
end