;+
; Procedure:
; goesr_fileconfig
;
; Purpose:
; A widget that allows the user to set some of the !goesr variable. The user
; can resettodefault, modify, and save the system variable.
;
;
; $LastChangedBy: jwl $
; $LastChangedDate: 2022-03-01 13:51:02 -0800 (Tue, 01 Mar 2022) $
; $LastChangedRevision: 30635 $
; $URL: svn+ssh://thmsvn@ambrosia.ssl.berkeley.edu/repos/spdsoft/tags/spedas_5_0/projects/goesr/spedas_plugin/goesr_fileconfig.pro $
;-
pro goesr_init_struct,state,struct
compile_opt idl2,hidden
widget_control,state.localdir,set_value=struct.local_data_dir
widget_control,state.remotedir,set_value=struct.remote_data_dir
if struct.no_download eq 1 then begin
widget_control,state.nd_off_button,set_button=1
endif else begin
widget_control,state.nd_on_button,set_button=1
endelse
if struct.no_update eq 1 then begin
widget_control,state.nu_off_button,set_button=1
endif else begin
widget_control,state.nu_on_button,set_button=1
endelse
if struct.downloadonly eq 1 then begin
widget_control,state.do_on_button,set_button=1
endif else begin
widget_control,state.do_off_button,set_button=1
endelse
widget_control,state.v_droplist,set_combobox_select=struct.verbose
end
PRO goesr_fileconfig_event, event
; Get State structure from top level base
Widget_Control, event.handler, Get_UValue=state, /No_Copy
; get the user value of the widget that caused this event
err_xxx = 0
Catch, err_xxx
IF (err_xxx NE 0) THEN BEGIN
Catch, /Cancel
Help, /Last_Message
state.statusbar->update,'Error in File Config.'
state.historywin->update,'Error in File Config.'
Widget_Control, event.TOP, Set_UValue=state, /No_Copy
widget_control, event.top,/destroy
RETURN
ENDIF
Widget_Control, event.id, Get_UValue = uval
CASE uval OF
'LOCALBROWSE':BEGIN
; display the file chooser window so the user can select the
; directory where they want their data files to reside
widget_control, state.localDir, get_value=currentDir
if currentDir ne '' then path = file_dirname(currentDir)
dirName = Dialog_Pickfile(Title='Choose a Local Data Directory:', $
Dialog_Parent=state.master,path=currentDir, /directory, /must_exist); /fix_filter doesn't seem to make a difference on Windows. Does on unix.
IF is_string(dirName) THEN BEGIN
!goesr.local_data_dir = dirName
widget_control, state.localDir, set_value=dirName
ENDIF ELSE BEGIN
; ok = dialog_message('Selection is not a directory',/center)
ENDELSE
END
'LOCALDIR': BEGIN
widget_control, state.localDir, get_value=currentDir
!goesr.local_data_dir = currentDir
END
'REMOTEDIR': BEGIN
widget_control, state.remoteDir, get_value=currentDir
!goesr.remote_data_dir = currentDir
END
'NDON': BEGIN
IF event.select EQ 1 then !goesr.no_download=0 else !goesr.no_download=1
END
'NDOFF': BEGIN
IF event.select EQ 1 then !goesr.no_download=1 else !goesr.no_download=0
END
'NUON': BEGIN
IF event.select EQ 1 then !goesr.no_update=0 else !goesr.no_update=1
END
'NUOFF': BEGIN
IF event.select EQ 1 then !goesr.no_update=1 else !goesr.no_update=0
END
'DOON': BEGIN
IF event.select EQ 1 then !goesr.downloadonly=1 else !goesr.downloadonly=0
END
'DOOFF': BEGIN
IF event.select EQ 1 then !goesr.downloadonly=0 else !goesr.downloadonly=1
END
'VERBOSE': BEGIN
!goesr.verbose = long(widget_info(state.v_droplist,/combobox_gettext))
END
'RESET': BEGIN
; this is basically a cancel and will reset all values to
; the original values at the time this window was first
; displayed
!goesr=state.goesr_cfg_save
widget_control,state.localdir,set_value=!goesr.local_data_dir
widget_control,state.remotedir,set_value=!goesr.remote_data_dir
if !goesr.no_download eq 1 then begin
widget_control,state.nd_off_button,set_button=1
endif else begin
widget_control,state.nd_on_button,set_button=1
endelse
if !goesr.no_update eq 1 then begin
widget_control,state.nu_off_button,set_button=1
endif else begin
widget_control,state.nu_on_button,set_button=1
endelse
if !goesr.downloadonly eq 1 then begin
widget_control, state.do_on_button, set_button=1
endif else begin
widget_Control, state.do_off_button, set_button=1
endelse
widget_control,state.v_droplist,set_combobox_select=!goesr.verbose
state.historywin->update,'Resetting controls to saved values.'
state.statusbar->update,'Resetting controls to saved values.'
END
'RESETTODEFAULT': Begin
goesr_init, /reset
goesr_init_struct,state,!goesr
state.historywin->update,'Resetting configuration to default values.'
state.statusbar->update,'Resetting configuration to default values.'
END
'SAVE': BEGIN
; save the current values of the !goesr system variable
goesr_write_config
state.statusBar->update,'Saved goesr_config.txt'
state.historyWin->update,'Saved goesr_config.txt'
END
ELSE:
ENDCASE
widget_control, event.handler, set_uval = state, /no_copy
Return
END ;--------------------------------------------------------------------------------
PRO goesr_fileconfig, tab_id, historyWin, statusBar
;check whether the !goesr system variable has been initialized
defsysv, 'goesr', exists=exists
if not keyword_set(exists) then goesr_init
goesr_cfg_save = !goesr
;Build the widget bases
master = Widget_Base(tab_id, /col, tab_mode=1,/align_left, /align_top)
;widget base for values to set
vmaster = widget_base(master, /col, /align_left, /align_top)
top = widget_base(vmaster,/row)
;Widget base for save, reset and exit buttons
bmaster = widget_base(master, /row, /align_center, ypad=7)
ll = max(strlen([!goesr.local_data_dir, !goesr.remote_data_dir]))+12
;Now create directory text widgets
configbase = widget_base(vmaster,/col)
lbase = widget_base(configbase, /row, /align_left, ypad=5)
flabel = widget_label(lbase, value = 'Local data directory: ')
localdir = widget_text(lbase, /edit, /all_events, xsiz = ll, $
uval = 'LOCALDIR', val = !goesr.local_data_dir)
loc_browsebtn = widget_button(lbase,value='Browse', uval='LOCALBROWSE',/align_center)
rbase = widget_base(configbase, /row, /align_left, ypad=5)
flabel = widget_label(rbase, value = 'Remote data directory: ')
remotedir = widget_text(rbase, /edit, /all_events, xsiz = ll, $
uval = 'REMOTEDIR', val = !goesr.remote_data_dir)
;Next radio buttions
nd_base = widget_base(configbase, /row, /align_left)
nd_labelbase = widget_base(nd_base,/col,/align_center)
nd_label = widget_label(nd_labelbase, value='Download Data:',/align_left)
nd_buttonbase = widget_base(nd_base, /exclusive, column=2, uval="ND",/align_center)
nd_on_button = widget_button(nd_buttonbase, value='Automatically ', uval='NDON',/align_left)
nd_off_button = widget_button(nd_buttonbase, value='Use Local Data Only', uval='NDOFF',/align_left)
nubase = widget_base(configbase, /row, /align_left)
nu_labelbase = widget_base(nubase,/col,/align_center)
nu_label = widget_label(nu_labelbase, value='Update Files:',/align_left)
nu_buttonbase = widget_base(nubase, /exclusive, column=2, uval="NU",/align_center)
nu_on_button = widget_button(nu_buttonbase, value='Update if Newer ', uval='NUON',/align_left)
nu_off_button = widget_button(nu_buttonbase, value='Use Local Data Only', uval='NUOFF',/align_left)
;downloadonly option
do_base = widget_base(configbase, /row, /align_left)
do_labelbase = widget_base(do_base, /col, /align_center)
do_label = widget_label(do_labelbase, value='Load into GUI:', /align_left)
do_buttonbase = widget_base(do_base, /exclusive, column=2, uval='DO',/align_center)
do_off_button = widget_button(do_buttonbase, value='Load data', uval='DOOFF', /align_left)
do_on_button = widget_button(do_buttonbase, value='Download Files Only', uval='DOON', /align_left)
;Verbosity
v_base = widget_base(configbase, /row, ypad=7)
v_label = widget_label(v_base, value='Verbose (higher value = more comments): ')
v_values = ['0', '1', '2','3', '4', '5', '6', '7', '8', '9', '10']
v_droplist = widget_Combobox(v_base, value=v_values, uval='VERBOSE', /align_center)
;buttons
savebut = widget_button(bmaster, value = ' Save to File ', uvalue = 'SAVE')
resetbut = widget_button(bmaster, value = ' Cancel ', uvalue = 'RESET')
reset_to_dbutton = widget_button(bmaster, value = ' Reset to Default ', uvalue = 'RESETTODEFAULT')
;defaults for reset:
def_values=[0,0,0,2]
state = {localdir:localdir, remotedir:remotedir, goesr_cfg_save:goesr_cfg_save, $
nd_on_button:nd_on_button, nd_off_button:nd_off_button, $
nu_on_button:nu_on_button, nu_off_button:nu_off_button, $
do_on_button:do_on_button, do_off_button:do_off_button, $
v_values:v_values, v_droplist:v_droplist, statusBar:statusBar, $
def_values:def_values, historyWin:historyWin, tab_id:tab_id, master:master}
goesr_init_struct,state,!goesr
widget_control, master, set_uval = state, /no_copy
widget_control, master, /realize
;msg = 'Editing goesr configuration.'
;statusBar->update,msg
;historywin->update, msg
;keep windows in X11 from snaping back to
;center during tree widget events
if !d.NAME eq 'X' then begin
widget_control, master, xoffset=0, yoffset=0
endif
xmanager, 'goesr_fileconfig', master, /no_block
END ;--------------------------------------------------------------------------------